Variables for Labels

[tcgoh]

Types

Sub Globals
    Dim Btn1, Btn2, Btn3 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Btn1.Initialize("Btn")
    Btn2.Initialize("Btn")
    Btn3.Initialize("Btn")
    Activity.AddView(Btn1, 10dip, 10dip, 200dip, 50dip)
    Activity.AddView(Btn2, 10dip, 70dip, 200dip, 50dip)
    Activity.AddView(Btn3, 10dip, 130dip, 200dip, 50dip)
End Sub

Sub Btn_Click
    Dim b As Button
    b = Sender 'Cast the Object to Button
    b.Color = Colors.RGB(Rnd(0, 255), Rnd(0, 255), Rnd(0, 255))
End Sub

The above code could also be written more elegantly:

Sub Globals

End Sub

Sub Activity_Create(FirstTime As Boolean)
    For i = 0 To 9 'create 10 buttons
        Dim Btn As Button
        Btn.Initialize("Btn")
        Activity.AddView(Btn, 10dip, 10dip + 60dip * i, 200dip, 50dip)
    Next
End Sub

Sub Btn_Click
    Dim b As Button
    b = Sender
    b.Color = Colors.RGB(Rnd(0, 255), Rnd(0, 255), Rnd(0, 255))
End Sub

.

Can I do the above to a Label control?

Sub GlobalsEnd SubSub Activity_Create(FirstTime As Boolean)    
       For i = 0 To 9 'create 10 Labels        
       Dim Lbl As Label        
       Lbl.Initialize("Lbl")        
       Activity.AddView(Lbl, 10dip, 10dip + 60dip * i, 200dip, 50dip)
       Lbl.textcolor = colors.back
       next

       Lbl(1).text = "TEST"

end sub

I can not get the above code working?

Thanks for any Help.

 

[Erel]

Your code looks a bit broken.

I also don't see the relation between the code I posted and the code that you posted.
You should create an array of labels and then assign the label to the array.

Dim lbls(10) As Label
For i = 0 to 0
 Dim lbl As Label
 ...
 lbls(i) = lbl
Next
lbls(0).Text = "Test"

 

[tcgoh]

Tks Erel,

Sorry for quoting the wrong code. I got the multiple labels running.
Thanks again.