zur Laufzeit erstellte Button ansprechen, wie?
04.03.2009 21:17:21
Matthias
Wie kann ich, die zur Laufzeit erstellten Controls ansprechen?
Im Beispiel erstelle ich 4 Commandbutton
Beim Click auf die Button sollte die MSGBOX aufgerufen werden.
Option Explicit
Private Sub UserForm_Initialize()
Dim ObjCMD As Object
Dim OpjTop As Byte
Dim OpjLeft As Byte
Dim x As Byte
OpjTop = 15
OpjLeft = 50
For x = 1 To 4
Set ObjCMD = Controls.Add("Forms.commandbutton.1")
ObjCMD.Name = "Commandbutton" & x
ObjCMD.Top = OpjTop
ObjCMD.Left = OpjLeft
Set ObjCMD = Nothing
OpjTop = OpjTop + 45
Next
End Sub
So scheint es aber nicht zu funktionieren.
mit ObjCMD.Name = "Commandbutton" & x , so dachte ich
vergebe ich den Button einen eindeutigen Namen. Aber es klappt leider nicht.
Private Sub CommandButton1_Click()
MsgBox "1.Button"
End Sub
Private Sub CommandButton2_Click()
MsgBox "2.Button"
End Sub
Private Sub CommandButton3_Click()
MsgBox "3.Button"
End Sub
Private Sub CommandButton4_Click()
MsgBox "4.Button"
End Sub
Was mache ich falsch, bzw. wie gehts richtig ?
Gruß Matthias
