German Dynamische Labels

[Rallig]

Guten Abend,

ich würde gerne dynamisch Labels erzeugen. Bekomme dies aber irgendwie nicht hin.
Ist dies überhaupt möglich? Könnt ihr mir einen Hinweis geben?

Gruß
Rallig

 

[Petrus]

So z.B.:

Sub Activity_Create(FirstTime As Boolean)

   Dim Label1 As Label
   Label1.Text = "Label 1"
   Label1.Initialize("")
   Activity.AddView(Label1, 0, 0, Activity.Width, 50dip)

End Sub

Gruß
Petrus

 

[Rallig]

Vielen Dank Dir Petrus für die Antwort.

Da habe ich mich wohl etwas missverständlich ausgedrückt.
Ich würde gerne eine gewisse Anzahl an Labels anordnen. Das können aber gerne mal 4 oder 6 sein. Deswegen möchte ich im vornherein nicht unbedingt einfach mal 20 Labels anlegen, um dann nach Bedarf eine Menge von diesen anzuzeigen.

Elegant fände ich dann einfach eine Schleife, die die Labels erzeugt.

Gruß
Rallig

 

[Petrus]

Ich würde die maximale Anzahl anlegen und die momentan nicht erforderlichen unsichtbar machen.

Sub Globals
   
   Dim mLabel(10) As Label

End Sub

Sub Activity_Create(FirstTime As Boolean)

   Dim x As Int
   For x = 0 To 9
      mLabel(x).Initialize("")
      mLabel(x).Visible = False
      Activity.AddView(mLabel(x), 0, 0, 10, 10)
   Next
   
End Sub

Gruß
Petrus