Multipage userform

K

KC

I have this multipage userform, containing 16 listboxes in 16 pages.
page0 has no listbox.
Whenever an item is selected in one of these listboxes, some 30 lines of
code is needed to process that item.
The original code thus contained 16 x 30 lines of code.

It took me 2 years on and off to construct a loop to do the same stuff, in
about 40 lines of code.
It turns out that each list box is not a list box, it is a control.
Its position has nothing to do with page number, which in turn is
multipage.value

Amazing
 
B

Bob Phillips

A listbox is a listbox, a control is a more generic term for the controls on
a form. So a listbox is a listbox, a textbox is a textbox, but both are also
controls.

You can test the controls collection for the control type


For Each ctl In Me.Controls
Select Case TypeName(ctl)
Case "CommandButton": MsgBox ctl.Caption
Select Case TypeName(ctl)
Case "TextBox": MsgBox ctl.Value
Select Case TypeName(ctl)
Case "Label": MsgBox ctl.Caption
'etc.
Next
 
K

KC

I agree.
I have read similar examples many times in the past.
They all led me elsewhere.
Today when I read this again, I know where I have misunderstood it.
 
B

Bob Phillips

Whilst I have no idea what you are on about, surely all dalmations are
dalmatians!

And, not all dalmatians are dogs, some Dalmatians are inhabitants of a
southern coastal region of Croatia.

Bob
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top