---

Hallo Leute

Weis vielleicht jemand wie ich einem „CommandButton“ den ich zu Laufzeit erzeigt habe ein Unterprogramm zuweisen kann.
Wenn möglich sollten mehrere Schaltflächen das gleiche Unterprogramm aufrufen nur mit einem anderen Startparameter.

Joe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

in vba ist das etwas komplizierter als in VB6

Private WithEvents Mycmd As CommandButton

Private Sub UserForm_Initialize()

Set Mycmd = Controls.Add("Forms.CommandButton.1", "TEST1", True) ', CommandButton2, Visible)
    Mycmd.Left = 18
    Mycmd.top = 100
    Mycmd.Width = 175
    Mycmd.Height = 20
    Mycmd.Caption = "This is fun." & Mycmd.Name
   
End Sub

Private Sub Mycmd_Click()
  Debug.Print "aa"
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

---

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

---

Hallo fuchsi

Dein Beispiel läuft super.
Danke für die Hilfe.

Joe

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP