VB Controls.Add und Aktion
Hallo,
weiss wer wie ich einem, beim Ausführen erstellten Button eine Aktion zuweisen kann?
[CODE]
Private WithEvents B2 As CommandButton
Private Sub Form_Load()
Set B1 = ME.Controls.Add("VB.CommandButton", "B1")
B1.Caption = "B1"
B1.Move 0, 0
B1.Visible = True
End Sub
[/CODE]
Quasi das unten mit in die Anweisung oben oder so ähnlich.
[CODE]
Private Sub B1_Click()
MsgBox "B1"
End Sub
[/CODE]
So das am Ende nach dem ausführen des Code ein Button inklusive Befehl (z.b.: MsgBox "B1") erstellt wird.
Gruß waldgnarf
weiss wer wie ich einem, beim Ausführen erstellten Button eine Aktion zuweisen kann?
[CODE]
Private WithEvents B2 As CommandButton
Private Sub Form_Load()
Set B1 = ME.Controls.Add("VB.CommandButton", "B1")
B1.Caption = "B1"
B1.Move 0, 0
B1.Visible = True
End Sub
[/CODE]
Quasi das unten mit in die Anweisung oben oder so ähnlich.
[CODE]
Private Sub B1_Click()
MsgBox "B1"
End Sub
[/CODE]
So das am Ende nach dem ausführen des Code ein Button inklusive Befehl (z.b.: MsgBox "B1") erstellt wird.
Gruß waldgnarf
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 109929
Url: https://administrator.de/forum/vb-controls-add-und-aktion-109929.html
Ausgedruckt am: 23.12.2024 um 14:12 Uhr
2 Kommentare
Neuester Kommentar