コンボボックスとテキストボックスのVBA動的配列クリックイベント

Question

こんにちはすべて私は、動的に作成されたコンボボックスとテキストボックスをクリックして、userformにクリックイベントを持たせることができる次のVBAコードを持っています。

ユーザーフォーム：

Option Explicit 

Dim comboboxBoxColct As New Collection 
Dim textboxBoxColct As New Collection 

Private Sub UserForm_Activate() 
Dim comboboxEvent As Class1 
Dim textboxEvent As Class1 

    '..lots more code within here 

    If LCase(TypeName(controller(i))) = "combobox" Then 
     Set comboboxEvent = New Class1 
     Set comboboxEvent.comboboxBox = controller(i) 
     comboboxBoxColct.Add comboboxEvent 
    ElseIf LCase(TypeName(controller(i))) = "textbox" Then 
     Set textboxEvent = New Class1 
     Set textboxEvent.textboxBox = controller(i) 
     textboxBoxColct.Add textboxEvent 
    End If 
End Sub 

のClass1：

Option Explicit 

Public WithEvents comboboxBox As MSForms.ComboBox 
Public WithEvents textboxBox As MSForms.TextBox 

Private Sub comboboxBox_Click() 
    MsgBox "worked" 
End Sub 

Private Sub textboxBox_Click() 
    MsgBox "worked" 
End Sub 

コンボボックスのためにそれを使用している場合、上記のコードがうまくに動作します。しかし、ののテキストボックスに入ると、msgboxポップアップは表示されません。それはを探している可能性があり代わりに何の数がのででその出発代わりの配列であるよう

私はそれは、そのボックスの配列番号としなければならないことが推測していますは、それが見ているアレイの最初のテキストボックスです。

私はそれらを同じアレイ内で動作させるために何ができますか？

Answer 1

Hum ... VBAのテキストボックスにはClickイベントがないようですので、代わりにChange（予定がない）イベントを処理するように変更したとき、テキストボックスに文字を入力するとポップアップが表示されます。

Private Sub textboxBox_Change() 'was textboxBox_Click() 
    MsgBox "worked" 
End Sub