ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Programming (https://www.excelbanter.com/excel-programming/)
-   -   Passing a Forms Control to Function (https://www.excelbanter.com/excel-programming/371351-passing-forms-control-function.html)

Pflugs

Passing a Forms Control to Function
 
I want to write a function that checks a listbox for an entry and reports
true or false. I want the input to be the listbox to check and the potential
entry. How do I pass the listbox to the function?

Thanks,
Pflugs

Bob Phillips

Passing a Forms Control to Function
 
as an example


Function myFunc(lb As MSForms.ListBox)
MsgBox lb.Value
End Function


and in the form

myFunc Me.ListBox1


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Pflugs" wrote in message
...
I want to write a function that checks a listbox for an entry and reports
true or false. I want the input to be the listbox to check and the

potential
entry. How do I pass the listbox to the function?

Thanks,
Pflugs




Dave Peterson

Passing a Forms Control to Function
 
Function myFunction(myLB as msforms.listbox) as boolean

End Function

I'm not sure what you mean by potential entry, though.



Pflugs wrote:

I want to write a function that checks a listbox for an entry and reports
true or false. I want the input to be the listbox to check and the potential
entry. How do I pass the listbox to the function?

Thanks,
Pflugs


--

Dave Peterson

Pflugs

Passing a Forms Control to Function
 
Thank you, that worked well.

I have one more question, if you please. I am trying to return the value of
a list item at index "i"; that is, looping through the list and reporting the
string of the selected items. After reporting them, I'd like to remove them
from the list, but each time I remove one, it changes the indexes. Is there
a better way to get around this?

Thanks,
Pflugs


"Bob Phillips" wrote:

as an example


Function myFunc(lb As MSForms.ListBox)
MsgBox lb.Value
End Function


and in the form

myFunc Me.ListBox1


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Pflugs" wrote in message
...
I want to write a function that checks a listbox for an entry and reports
true or false. I want the input to be the listbox to check and the

potential
entry. How do I pass the listbox to the function?

Thanks,
Pflugs





Tom Ogilvy

Passing a Forms Control to Function
 
loop in reverse

With listbox1
for i = .listcount - 1 to 0 step -1
if .selected(i) then
.removeitem i
end if
next
End with

--
Regards,
Tom Ogilvy


"Pflugs" wrote:

Thank you, that worked well.

I have one more question, if you please. I am trying to return the value of
a list item at index "i"; that is, looping through the list and reporting the
string of the selected items. After reporting them, I'd like to remove them
from the list, but each time I remove one, it changes the indexes. Is there
a better way to get around this?

Thanks,
Pflugs


"Bob Phillips" wrote:

as an example


Function myFunc(lb As MSForms.ListBox)
MsgBox lb.Value
End Function


and in the form

myFunc Me.ListBox1


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Pflugs" wrote in message
...
I want to write a function that checks a listbox for an entry and reports
true or false. I want the input to be the listbox to check and the

potential
entry. How do I pass the listbox to the function?

Thanks,
Pflugs





Pflugs

Passing a Forms Control to Function
 
Good call. Thanks.
Pflugs

"Tom Ogilvy" wrote:

loop in reverse

With listbox1
for i = .listcount - 1 to 0 step -1
if .selected(i) then
.removeitem i
end if
next
End with

--
Regards,
Tom Ogilvy


"Pflugs" wrote:

Thank you, that worked well.

I have one more question, if you please. I am trying to return the value of
a list item at index "i"; that is, looping through the list and reporting the
string of the selected items. After reporting them, I'd like to remove them
from the list, but each time I remove one, it changes the indexes. Is there
a better way to get around this?

Thanks,
Pflugs


"Bob Phillips" wrote:

as an example


Function myFunc(lb As MSForms.ListBox)
MsgBox lb.Value
End Function


and in the form

myFunc Me.ListBox1


--
HTH

Bob Phillips

(replace somewhere in email address with gmail if mailing direct)

"Pflugs" wrote in message
...
I want to write a function that checks a listbox for an entry and reports
true or false. I want the input to be the listbox to check and the
potential
entry. How do I pass the listbox to the function?

Thanks,
Pflugs





All times are GMT +1. The time now is 10:29 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com