Userform Label question

D

David Goodall

Hello,

I have a form which contains 10 labels, named Lb1 to Lb10. The form has
a combobox and a command button. What I would like to is each time the
command button is clicked the text in combobox is added to the labels.

I've tried the following but it doesnt work.
sub commandbutton_click()
dim count as integer
dim lablename as string

count = 1

lablename = CStr(count) ' I thought I would need to cast the variable

Lb & lablename.caption = cblist.text

count = count + 1

' I will need to create a loop so that the count stops at 10.
end sub

Also I'm sure there's a much better way to do this. Could you create an
array of label names then loop through them using count?

Any help as always greatly appreciated.

David
 
T

Tom Ogilvy

sub commandbutton_click()
Static count as integer
dim lablename as string

if count = 0 then _
count = 1

if count > 10 then
count = 1
lablename = CStr(count) ' I thought I would need to cast the variable

Userform1.Controls("Lb" & lablename).caption = cblist.text

count = count + 1
End Sub


or if you want the same value placed in all labels:


sub commandbutton_click()
Dim c count as integer
dim lablename as string

for count = 1 to 10

lablename = CStr(count) ' I thought I would need to cast the variable

Userform1.Controls("Lb" & lablename).caption = cblist.text

Next

End Sub
 
Top