Klick-Event in Klassenmodul
15.08.2016 09:22:20
Martin
Ich habe eine Userform mit einem Frame Frame1. Beim Initialisieren wird die Methode AddIntoFrame aus meiner Klasse CTimePicker aufgerufen, die in Frame1 einen Button einfügt:
Option Explicit
Private Sub UserForm_Initialize()
Dim TP As New CTimePicker
TP.AddIntoFrame Me.Frame1
End Sub
Die Klasse sieht so aus:
Option Explicit
Private WithEvents B As MSForms.CommandButton
Public Sub AddIntoFrame(ByVal F As MSForms.Frame)
Set B = F.Controls.Add("Forms.CommandButton.1", "cmd1")
B.Caption = "Taste B"
End Sub
Private Sub B_Click()
MsgBox B.Caption & " was pressed!"
End Sub
Die Methode AddIntoFrame fügt wie gewünscht einen Button B in den als Parameter übergebenen Frame F ein. Klickt man auf den Button, sollte B_Click ausgeführt werden. Das klappt leider nicht, obwohl B als WithEvents deklariert ist. Wo liegt der Fehler?