Dynamisch hinzugefügt Benutzerformular Textbox Steuerelement _click Ereignis nicht feuern? (aber _change funktioniert) (VBA)

Question

Also versuche ich das _click-Ereignis zu einem dynamisch hinzugefügten Textbox-Steuerelement auf einem Benutzerformular arbeiten.

Hier ist mein Code, es bekommt die _change Ereignisse gut, aber die _click -Ereignis nicht feuern.

' Userform code 
Dim myControlsEventH As Collection 

Private Sub UserForm_Initialize() 
    Set myControlsEventH = New Collection 
End Sub 

Public Sub AddTextbox(myName As String) 

    'Dim MyTextBox As Object 
    Dim myTextbox As MSForms.TextBox 

    Set myTextbox = frmStamps.Controls.Add("Forms.TextBox.1", myName, True) 

    myTextbox.TextAlign = 2 
    myTextbox.Font.Size = 18 
    myTextbox.WordWrap = False 
    'MyTextBox.AutoSize = True 
    AdjustSize 

    Dim txtbxEvent As ctxtbxEventH 
    Set txtbxEvent = New ctxtbxEventH 
    Set txtbxEvent.frm = frmStamps 
    Set txtbxEvent.txtbox = myTextbox 

    myControlsEventH.Add txtbxEvent 

End Sub 

' ctxtbxEventH Class code 
Public WithEvents txtbox As MSForms.TextBox 
Public frm As UserForm 

Private Sub txtbox_Click() 
    Debug.Print "clicked" 
End Sub 

Private Sub txtbox_Change() 
    Debug.Print "changed" 
End Sub 

(BONUS Frage (wo kann ich die Liste aller möglichen Ereignisse für jede der MSForms Kontrollen finden?))

Answer 1

A MSForms.TextBox hat keine Click Ereignis. Aber ein Ereignis MouseUP ist verfügbar.

Private Sub txtbox_MouseUp(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) 
    Debug.Print "mouse up" 
End Sub 

Sie eine Liste der möglichen Ereignisse haben die Liste in der Deklarations/Verfahren Navigationsbox im VBA-Editor, nachdem stellen Sie das benötigte Objekt im Objekt-Navigationsfeld mit: