arrays - 组合框和文本框单击事件的 VBA 动态数组

Question

嘿，我有下面的 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

第一类:

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。

我猜这可能与该框的数组编号有关，因为它可能正在寻找 0 而不是数组中的任何数字 6 所以它从 开始6 而不是 0 因为它是它看到的数组中的第一个文本框。

我该怎么做才能让它们都在同一个数组中工作？

Answer 1

嗯...似乎VBA中的文本框没有Click事件，所以当我改变它来处理 Change (不是双关语)事件，如果我在文本框中输入一个字母，它会显示弹出窗口。

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