Klasse für Checkboxen
13.03.2008 13:40:02
Morf
ich habe in einem Formular dynamisch ein paar Checkboxen erzeugt.
Es sollen dann beim Anklicken dieser kleiner Programme laufen.
Ich habe versucht eine Klasse zu definieren
im Klassenmodul "cls_ChkBox"
Public WithEvents ChkBox As MSForms.CheckBox
Private Sub ChkBox_Click()
MsgBox "test"
End Sub
und diese auf diese Checkboxen anzuwenden.
Private Sub Test()
Set Button = frm_test.Controls.Add("Forms.CheckBox.1")
ReDim Preserve KlassenButton(Anzahl) As New cls_ChkBox
Set KlassenButton(Anzahl).ChkBox = Button
End Sub
Allerdings funtioniert dies nicht.
Beim anklicken der dynamisch erzeugten Button passiert nichts. Ich habe erwartet, das die Meldung "test" kommt.
Was fehlt?
Vielen Dank im Voraus
Nico
Anzeige