how to use a variable in with me.label(x)

[smartphreak]

Hey guys,

I am trying to create a dynamic form where I loop through the variable and create labels (and ultimately cbo) using the variable.

Do While d >= dx
With Me.Label(dx)
    .Caption = "How many task in Phase " & dx & "?"
    .Width = 150
    .Height = 30
    .Left = 5
    .Top = 10 * dx + 30 * (dx - 1)
End With

dx = dx + 1

Loop

I get a Compile error... Any thoughts?

 

[Zot]

Something like this

Dim ctl As Control

For Each ctl In Me.Controls
    If TypeName(ctrl) = "Label" Then
        <your code here>
    End If
Next ctl

 

[diddi]

@Zot . i think the OP is looking for dynamic labels...

this may be the sort of code you are looking for (Note, these labels require extra code to enable events)
this example should help

    Do While d >= dx
        Set But = Controls.Add("Forms.Label.1", "MyLabel" & dx, True)
        But.Left = 5
        But.Height = 30
        But.Width = 150
        But.Top = 10 * dx + 30 * (dx - 1)
        But.Caption = "How many task in Phase " & dx & "?"
        But.TabStop = False
    Loop

 

[RoryA]

If you are trying to adjust labels that you have already created, and they are named Label1, Label2 etc, you can use:

For dx = 1 to d
With Me.Controls("Label" & dx)
    .Caption = "How many task in Phase " & dx & "?"
    .Width = 150
    .Height = 30
    .Left = 5
    .Top = 10 * dx + 30 * (dx - 1)
End With

Next dx

 

[diddi]

plenty of choices now
@RoryA would it be prudent to DoEvents after the caption update?

 

[Zot]

@Zot . i think the OP is looking for dynamic labels...

this may be the sort of code you are looking for (Note, these labels require extra code to enable events)
this example should help

    Do While d >= dx
        Set But = Controls.Add("Forms.Label.1", "MyLabel" & dx, True)
        But.Left = 5
        But.Height = 30
        But.Width = 150
        But.Top = 10 * dx + 30 * (dx - 1)
        But.Caption = "How many task in Phase " & dx & "?"
        But.TabStop = False
    Loop

Aha ... I read title me.label(x) and misunderstood

 

[RoryA]

It shouldn't really be necessary, but I suppose you could add a Me.Repaint line after the loop.