Control dynamisch laden VB-Version:  VB5, VB6
	Views:  6.121

Wie man Steuerelemente zur Laufzeit einem Programm hinzufügt haben wir schonin der FAQ unter dem Titel  Steuerelemente zur Laufzeit hinzufügen erklärt. Der Nachteil dieser Methode ist, dass manzumindest ein Control bereits zur Entwurfszeit auf der Form platzieren muss.

Man kann aber Controls auch dynamisch hinzufügen, ohne ein"Muster" vorher festgelegt zu haben. Hier mal ein Beispiel anhandeines Labels, das beim Laden einer Form vorhanden sein soll:

Private Sub Form_Load()
 
  ' Label deklarieren
  Dim oLabel As Label
 
  ' Label der Form1 hinzufügen
  Set oLabel = Form1.Controls.Add("VB.Label", "Name_des_Labels")
  ' Position bestimmen
  oLabel.Move 0, 0, 1000, 225
  ' Label "sichtbar" machen
  oLabel.Visible = True
  ' da ein Label die gleiche Farbe wie eine Form hat
  ' bietet es sich an, die Hintergrundfarbe zu ändern :-)
  oLabel.BackColor = vbRed
  ' dann noch etwas Text drauf
  oLabel.Caption = "vb@rchiv"
 
End Sub

Natürlich können Sie Labels oder andere Steuerelemente auch mittels einesCommandButtons der Form hinzufügen. Dann den Code einfach in das Click-Ereignisdes entsprechenden Buttons reinschreiben.