Help on label name

[frenchteck]

This is my VB6 program, I know that it doesn't work but I would like too know the solution to put a caption into 100 labels without named all.
for i = 1 to 100
nom(i) = "label" & i
Next
for i = 1 to 100
nom(i).caption = i
Next

 

[TomKane]

You could try something like this:

For i = 0 to frmForm.Controls.Count - 1
If Left(frmForm.Controls(i).Name, 5) = "Label" then
frmForm.Controls(i).Name = i
End If
End If

frmForm could be any form name

Hope it helps...

 

[bridamol]

TomKane you cannot change the Name property of any control at run time.

frenchteck i am not able to understand your question clearly. but if i am right, you want to change the caption of all the labels on your form irrespective of their name.

See this code.

Dim ctl As Control
Dim i As Integer

For Each ctl In Me.Controls
If TypeOf ctl Is Label Then
ctl.Caption = i
i = i + 1
End If
Next

Bye.
Amol

 

[TomKane]

Sorry - I meant to say .caption not .name

 

[frenchteck]

Thank you for your help TomKane and bridamol.
I'm going to try your solution.