Klassenmodul
29.03.2007 10:44:09
Specke
Hallo Experten,
das Thema Klassenmodul beschäftigt mich jetzt schon eine ganze Weile, aber s richtig will es mir nicht einleuchten. Für dynamisch erzeugte Checkboxen habe ich es schon mit viel "Gewurschtel" hinbekommen.
Jetzt habe ich 10 CommandButton auf einer Userform und möchte die mit einer Klasse verarzten und bekomme es nicht hin. Die CommandButtons sind Tag1, Tag2 usw benannt. Wenn ein Button angeklickt wird, soll eine Messagbox mit dem Namen desselben erscheinen.
Ich habe es so versucht, aber beim Klicken passiert nichts :-(
im Klassenmodul cls_CmdButton_Zeit:
Option Explicit
Public WithEvents ButtonControl As MsForms.CommandButton
Private Sub ButtonControl_Click()
MsgBox ButtonControl.Name
End Sub
Option Explicit
Dim i As Integer
Dim CommandButton() As cls_CmdButton_Zeit
Private Sub UserForm_Activate()
Dim CommandButton() As New cls_CmdButton_Zeit
For i = 1 To 2
ReDim Preserve CommandButton(i)
Set CommandButton(i).ButtonControl = UserForm1.Controls("Tag" & Format(i, "00"))
Next i
End Sub
Vielen Dank und Gruß
Specke