das ganze jetzt mit mehreren buttons
leider kann man die deklaration WithEvents nicht mit einem datenfeld kombinieren
darum musst du einen umweg über klassenmodule machen
als erstes machst du eine userform1 mit fogendem code
Private a1(5) As Klasse1
Private Sub UserForm_Initialize()
Set a1(0) = New Klasse1
a1(0).showButton (100)
a1(0).Wert = "Button 1"
Set a1(1) = New Klasse1
a1(1).showButton (130)
a1(1).Wert = "Button 2"
Set a1(2) = New Klasse1
a1(2).showButton (150)
a1(2).Wert = "Button 3"
End Sub
Public Sub Command_clicked(Wert)
MsgBox Wert
End Sub
als nächstes machst du ein Klassenmodul Klasse1 mit folgendem code
Private WithEvents Mycmd As CommandButton
Public Wert
Public Sub showButton(top)
Set Mycmd = UserForm1.Controls.Add("Forms.CommandButton.1") ', CommandButton2, Visible)
Mycmd.Left = 18
Mycmd.top = top
Mycmd.Width = 175
Mycmd.Height = 20
Mycmd.Caption = "This is fun." & Mycmd.Name
End Sub
Private Sub Mycmd_click()
UserForm1.Command_clicked (Wert)
End Sub
------------------
***********************************************
AutoCad 2000i, 2002, 2004 deutsch und englisch
Windows 2000, NT, XP
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP