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