(VBA): Events dynamisch erzeugter Buttons

Computer: Software & Programmierung Visual Basic
1

Hallo Forum!
Wie kann ich bei folgendem Code auf das ClickEvent eines jeden Buttons zugreifen?

Public WithEvents BT As MSForms.ToggleButton

Public Sub Generieren()
Dim I as Integer
For I = 0 To 80
Set BT = Me.Frame1.Controls.Add(„Forms.ToggleButton.1“, „BT“ + CStr(I), True)
BT.Height = 24
BT.Width = 54
BT.Caption = „?“
BT.Font.Bold = True
Next I
End Sub

'Dieses Event funktioniert nur für den letzten Button, es soll
'aber für alle gültig sein!
Private Sub BT_Click()
BT.BackColor = vbRed
BT.Enabled = False
BT.Caption = „“
End Sub

2

Hallo
Unter Umständen musst Du den Public Teil in ein Modul legen
Grüsse Sebastian

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

3

Wie kann ich bei folgendem Code auf das ClickEvent eines jeden
Buttons zugreifen?

Hi Andi,
das ist doch Code eines Klassenmoduls und Klassenmodule beherrschen nicht so sehr viele, ich z.B. nicht.
Schau mal hier:

http://www.wer-weiss-was.de/cgi-bin/forum/showarticl…

Vielleicht kannst du da herausfinden wie du deinen Code umbasteln musst damit er auf Withevents aler Togglebuttons reagiert und nicht nur auf den letzten mittels Set definierten Togglebutton.
Gruß
Reinhard

4

Hallo,

hier wird der Umgang mit dynamisch erzeugten Steuerelementen in einem Formular mit Hilfe von Klassenmodulen beschrieben.
Mit ein wenig umdenken kann man dies sicherlich auch auf andere dynamisch erzeugte Steuerelemente übertragen:

http://www.vb-fun.de/cgi-bin/loadframe.pl?ID=vb/tuto…

Gruß, tester