Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender Navigationstipps
Klasse für Checkboxen
13.03.2008 13:40:02
Morf
Hallo,
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Klasse für Checkboxen
13.03.2008 13:56:00
Morf
Moin Hajo,
ich finde den fehler nicht!
Mit:
Set Button = frm_test.Controls.Add("Forms.CheckBox.1")
füge ich einen neue Checkbox ein1
Dann definiere ich einen neue Instanz der Klasse cls_chkbox mit:
ReDim Preserve KlassenButton(Anzahl) As New cls_ChkBox
Dieser weise ich dann den neu erzuegten Button zu:
mit:
Set KlassenButton(Anzahl).ChkBox = Button
Warumg reagiert dann die Erignisprozedur der Klasse nicht?

Private Sub ChkBox_Click()
MsgBox "test"
End Sub


Anzeige
AW: Klasse für Checkboxen
13.03.2008 13:53:30
Rudi
Hallo,
ist KlassenButton() Public?
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

AW: Klasse für Checkboxen
13.03.2008 13:57:54
Morf
Danke das wars!!!
Suprcool

301 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige