Rubrik: Allgemein | 15.11.03 |
Control dynamisch laden VB-Version: VB5, VB6 | ||
Views: 15.050 |
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.