Passing a Forms Control to Function

[Guest]

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]

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)

 

[Dave Peterson]

Function myFunction(myLB as msforms.listbox) as boolean

End Function

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

 

[Guest]

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

 

[Guest]

loop in reverse

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

 

[Guest]

Good call. Thanks.
Pflugs

loop in reverse

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