vba - 向多个组合框添加事件监听器-6ren

vba - 向多个组合框添加事件监听器

转载作者：行者123 更新时间：2023-12-02 11:55:51

我基本上试图根据组合框获取的值在用户窗体上显示不同的文本框集。我创建了一个名为 CControlEvents 的类模块，在其中描述了更改组合框的值时应发生的事件:

Private WithEvents mclsCbx As MSForms.ComboBox

Private WithEvents UnitmclsTbx As MSForms.TextBox
Private WithEvents UnitmclsTbxLabel As MSForms.Label

Private WithEvents SpecMinMoymclsTbxLabel As MSForms.Label
Private WithEvents SpecMaxMoymclsTbxLabel As MSForms.Label

Private WithEvents SpecMinIndmclsTbxLabel As MSForms.Label
Private WithEvents SpecMaxIndmclsTbxLabel As MSForms.Label

Private WithEvents SpecMinMoymclsTbx As MSForms.TextBox
Private WithEvents SpecMaxMoymclsTbx As MSForms.TextBox
Private WithEvents SpecMinIndmclsTbx As MSForms.TextBox
Private WithEvents SpecMaxIndmclsTbx As MSForms.TextBox

Private WithEvents ListmclsTbxLabel As MSForms.Label
Private WithEvents ListmclsTbx As MSForms.TextBox

Private mMyProperty As Integer

Public Property Set Cbx(ByVal clsCbx As MSForms.ComboBox): Set mclsCbx = clsCbx: End Property
Public Property Get Cbx() As MSForms.ComboBox: Set Cbx = mclsCbx: End Property

'Property pour les textbox et labels
'TextBox d'unité
Public Property Set UnitTbx(ByVal clsTbx As MSForms.TextBox): Set UnitmclsTbx = clsTbx: End Property
Public Property Get UnitTbx() As MSForms.TextBox: Set UnitTbx = UnitmclsTbx: End Property
'Label d'unité
Public Property Set UnitTbxLabel(ByVal clsTbx As MSForms.Label): Set UnitmclsTbxLabel = clsTbx: End Property
Public Property Get UnitTbxLabel() As MSForms.Label: Set UnitTbxLabel = UnitmclsTbxLabel: End Property

'TextBox de spécification minimum moyenne
Public Property Set SpecMinMoyTbx(ByVal clsTbx As MSForms.TextBox): Set SpecMinMoymclsTbx = clsTbx: End Property
Public Property Get SpecMinMoyTbx() As MSForms.TextBox: Set SpecMinMoyTbx = SpecMinMoymclsTbx: End Property
'Label de spécification minimum moyenne
Public Property Set SpecMinMoyTbxLabel(ByVal clsTbx As MSForms.Label): Set SpecMinMoymclsTbxLabel = clsTbx: End Property
Public Property Get SpecMinMoyTbxLabel() As MSForms.Label: Set SpecMinMoyTbxLabel = SpecMinMoymclsTbxLabel: End Property
'Label de spécification maximum moyenne
Public Property Set SpecMaxMoyTbxLabel(ByVal clsTbx As MSForms.Label): Set SpecMaxMoymclsTbxLabel = clsTbx: End Property
Public Property Get SpecMaxMoyTbxLabel() As MSForms.Label: Set SpecMaxMoyTbxLabel = SpecMaxMoymclsTbxLabel: End Property
'TextBox de spécification max moy
Public Property Set SpecMaxMoyTbx(ByVal clsTbx As MSForms.TextBox): Set SpecMaxMoymclsTbx = clsTbx: End Property
Public Property Get SpecMaxMoyTbx() As MSForms.TextBox: Set SpecMaxMoyTbx = SpecMaxMoymclsTbx: End Property

'TextBox de spécification minimum individuelle
Public Property Set SpecMinIndTbx(ByVal clsTbx As MSForms.TextBox): Set SpecMinIndmclsTbx = clsTbx: End Property
Public Property Get SpecMinIndTbx() As MSForms.TextBox: Set SpecMinIndTbx = SpecMinIndmclsTbx: End Property
'Label de spécification minimum individuelle
Public Property Set SpecMinIndTbxLabel(ByVal clsTbx As MSForms.Label): Set SpecMinIndmclsTbxLabel = clsTbx: End Property
Public Property Get SpecMinIndTbxLabel() As MSForms.Label: Set SpecMinIndTbxLabel = SpecMinIndmclsTbxLabel: End Property
'Label de spécification maximum individuelle
Public Property Set SpecMaxIndTbxLabel(ByVal clsTbx As MSForms.Label): Set SpecMaxIndmclsTbxLabel = clsTbx: End Property
Public Property Get SpecMaxIndTbxLabel() As MSForms.Label: Set SpecMaxIndTbxLabel = SpecMaxIndmclsTbxLabel: End Property
'TextBox de spécification max individuelle
Public Property Set SpecMaxIndTbx(ByVal clsTbx As MSForms.TextBox): Set SpecMaxIndmclsTbx = clsTbx: End Property
Public Property Get SpecMaxIndTbx() As MSForms.TextBox: Set SpecMaxIndTbx = SpecMaxIndmclsTbx: End Property

'TextBox de liste déroulante
Public Property Set ListTbx(ByVal clsTbx As MSForms.TextBox): Set ListmclsTbx = clsTbx: End Property
Public Property Get ListTbx() As MSForms.TextBox: Set ListTbx = ListmclsTbx: End Property
'Label de liste déroulante
Public Property Set ListTbxLabel(ByVal clsTbx As MSForms.Label): Set ListmclsTbxLabel = clsTbx: End Property
Public Property Get ListTbxLabel() As MSForms.Label: Set ListTbxLabel = ListmclsTbxLabel: End Property

Public Property Get MyProperty() As Integer
MyProperty = mMyProperty
End Property

Public Property Let Transition(Value As Integer)
mMyProperty = Value
End Property


Private Sub mclsCbx_Change()

If (Me.Cbx.Text = "NUM") Then

    UnitTbx.Visible = True
    UnitmclsTbxLabel.Visible = True
    SpecMinMoymclsTbxLabel.Visible = True
    SpecMinMoymclsTbx.Visible = True
    SpecMaxMoymclsTbx.Visible = True
    SpecMaxMoymclsTbxLabel.Visible = True

    SpecMinIndmclsTbxLabel.Visible = True
    SpecMinIndmclsTbx.Visible = True
    SpecMaxIndmclsTbx.Visible = True
    SpecMaxIndmclsTbxLabel.Visible = True

    ListmclsTbx.Visible = False
    ListmclsTbxLabel.Visible = False

Else
    If (Me.Cbx.Text = "LIST") Then
        UnitTbx.Visible = False
        UnitmclsTbxLabel.Visible = False
        SpecMinMoymclsTbxLabel.Visible = False
        SpecMinMoymclsTbx.Visible = False
        SpecMaxMoymclsTbx.Visible = False
        SpecMaxMoymclsTbxLabel.Visible = False

        SpecMinIndmclsTbxLabel.Visible = False
        SpecMinIndmclsTbx.Visible = False
        SpecMaxIndmclsTbx.Visible = False
        SpecMaxIndmclsTbxLabel.Visible = False

        ListmclsTbx.Visible = True
        ListmclsTbxLabel.Visible = True

    End If
End If

End Sub

在用户窗体的代码中，我动态添加这样的组合框:

Set gclsControlEvents = New CControlEvents
    'On attribue la comboBox à une propriété de la classe créée
    Set gclsControlEvents.Cbx = oleCbx
    'On attribue une zone de texte à une propriété de la classe créée
    Set gclsControlEvents.UnitTbx = numUnitTextBox
    'Label unité
    Set gclsControlEvents.UnitTbxLabel = UnitmclsTbxLabel
    'Label spéc moy min
    Set gclsControlEvents.SpecMinMoyTbxLabel = SpecMinMoyTbxLabel
    'Zone de texte spéc moy min
    Set gclsControlEvents.SpecMinMoyTbx = SpecMinMoymclsTbx
    'Label spéc max min
    Set gclsControlEvents.SpecMaxMoyTbxLabel = SpecMaxMoyTbxLabel
    'Zone de texte spéc moy max
    Set gclsControlEvents.SpecMaxMoyTbx = SpecMaxMoymclsTbx

因此，我基本上在用户窗体代码中添加控件并将它们分配给类的属性，然后我可以简单地根据需要隐藏/显示。问题是，当我尝试根据此原理使用 for 循环添加多个组合框时，它仅适用于最后一个组合框。

编辑:for循环

    For i = 1 To NewSheetModelColumnsCount
     Set Lbl = Frame1.Controls.Add("Forms.Label.1", "lbl1")
     Set txtB1 = Frame1.Add("Forms.TextBox.1")

'Create the combobox
Set oleCbx = Frame1.Add("Forms.ComboBox.1") 'Bug at this line

With oleCbx
    .name = "list" & i
    .Height = 15
    .Width = 100
    .Left = 70
    .Top = 10 * i * 3
    .AddItem "NUM"
    .AddItem "LIST"
End With

        With txtB1
            .name = "chkDemo" & i
            .Height = 15
            .Width = 100
            .Left = 230
            .Top = 10 * i * 3
        End With

        Lbl.Caption = "Colonne n°" + CStr(i)
        Lbl.Top = txtB1.Top
        Lbl.Left = 10

        Set lbl2 = Frame1.Controls.Add("Forms.Label.1", "lbl2")

        lbl2.Caption = "Intitulé : "
        lbl2.Top = txtB1.Top
        lbl2.Left = 180
        lbl2.Visible = True
        lbl2.Width = 50

Set UnitmclsTbxLabel = UserForm1.Frame1.Controls.Add("Forms.Label.1", "UnitmclsTbxLabel")
Set ListmclsTbxLabel = UserForm1.Frame1.Controls.Add("Forms.Label.1", "ListmclsTbxLabel")

Set SpecMinMoyTbxLabel = UserForm1.Frame1.Controls.Add("Forms.Label.1", "SpecMinMoyTbxLabel")
Set SpecMaxMoyTbxLabel = UserForm1.Frame1.Controls.Add("Forms.Label.1", "SpecMinMoyTbxLabel")

Set SpecMinIndTbxLabel = UserForm1.Frame1.Controls.Add("Forms.Label.1", "SpecMinIndTbxLabel")
Set SpecMaxIndTbxLabel = UserForm1.Frame1.Controls.Add("Forms.Label.1", "SpecMinIndTbxLabel")

UnitmclsTbxLabel.Caption = "Unité : "
UnitmclsTbxLabel.Left = 360

UnitmclsTbxLabel.Visible = False

Set numUnitTextBox = UserForm1.Frame1.Add("Forms.TextBox.1")
Set SpecMinMoymclsTbx = UserForm1.Frame1.Add("Forms.TextBox.1")
Set SpecMaxMoymclsTbx = UserForm1.Frame1.Add("Forms.TextBox.1")

Set SpecMinIndmclsTbx = UserForm1.Frame1.Add("Forms.TextBox.1")
Set SpecMaxIndmclsTbx = UserForm1.Frame1.Add("Forms.TextBox.1")

Set ListTextBox = UserForm1.Frame1.Add("Forms.TextBox.1")

SpecMinMoymclsTbx.Width = 50
SpecMaxMoymclsTbx.Width = 50
SpecMinIndmclsTbx.Width = 50
SpecMaxIndmclsTbx.Width = 50

With numUnitTextBox
        .name = "Unit" & i
        .Height = 15
        .Width = 50
        .Left = 360 + UnitmclsTbxLabel.Width - 40
        .Top = 10 * i * 3
        .Value = "Unit"
End With

ListTextBox.Top = numUnitTextBox.Top
ListTextBox.Left = numUnitTextBox.Left + numUnitTextBox.Width - 40
ListTextBox.Visible = False
ListTextBox.Width = 200

ListmclsTbxLabel.Caption = "Options : "
ListmclsTbxLabel.Visible = False
ListmclsTbxLabel.Top = numUnitTextBox.Top
ListmclsTbxLabel.Left = 360

UnitmclsTbxLabel.Top = numUnitTextBox.Top
SpecMinMoyTbxLabel.Top = numUnitTextBox.Top
SpecMinMoyTbxLabel.Left = numUnitTextBox.Left + numUnitTextBox.Width + 5
SpecMinMoyTbxLabel.Caption = "Spéc min Moy : "
SpecMinMoyTbxLabel.Visible = False
SpecMinMoymclsTbx.Top = numUnitTextBox.Top
SpecMinMoymclsTbx.Visible = False
SpecMinMoymclsTbx.Left = SpecMinMoyTbxLabel.Left + SpecMinMoyTbxLabel.Width - 15
SpecMaxMoyTbxLabel.Visible = False
SpecMaxMoyTbxLabel.Caption = "Spéc max moy : "
SpecMaxMoyTbxLabel.Left = SpecMinMoymclsTbx.Left + SpecMinMoymclsTbx.Width
SpecMaxMoyTbxLabel.Top = numUnitTextBox.Top
SpecMaxMoymclsTbx.Visible = False
SpecMaxMoymclsTbx.Top = numUnitTextBox.Top
SpecMaxMoymclsTbx.Left = SpecMaxMoyTbxLabel.Left + SpecMaxMoyTbxLabel.Width

SpecMinIndTbxLabel.Top = numUnitTextBox.Top
SpecMinIndTbxLabel.Left = SpecMaxMoymclsTbx.Left + SpecMaxMoymclsTbx.Width + 5
SpecMinIndTbxLabel.Caption = "Spéc min Ind : "
SpecMinIndTbxLabel.Visible = False
SpecMinIndmclsTbx.Top = numUnitTextBox.Top
SpecMinIndmclsTbx.Visible = False
SpecMinIndmclsTbx.Left = SpecMinIndTbxLabel.Left + SpecMinIndTbxLabel.Width - 15
SpecMaxIndTbxLabel.Visible = False
SpecMaxIndTbxLabel.Caption = "Spéc max moy : "
SpecMaxIndTbxLabel.Left = SpecMinIndmclsTbx.Left + SpecMinIndmclsTbx.Width
SpecMaxIndTbxLabel.Top = numUnitTextBox.Top
SpecMaxIndmclsTbx.Visible = False
SpecMaxIndmclsTbx.Top = numUnitTextBox.Top
SpecMaxIndmclsTbx.Left = SpecMaxIndTbxLabel.Left + SpecMaxIndTbxLabel.Width

numUnitTextBox.Visible = False

Set gclsControlEvents = New CControlEvents
'On attribue la comboBox à une propriété de la classe créée
Set gclsControlEvents.Cbx = oleCbx
'On attribue une zone de texte à une propriété de la classe créée
Set gclsControlEvents.UnitTbx = numUnitTextBox
'Label unité
Set gclsControlEvents.UnitTbxLabel = UnitmclsTbxLabel
'Label spéc moy min
Set gclsControlEvents.SpecMinMoyTbxLabel = SpecMinMoyTbxLabel
'Zone de texte spéc moy min
Set gclsControlEvents.SpecMinMoyTbx = SpecMinMoymclsTbx
'Label spéc max min
Set gclsControlEvents.SpecMaxMoyTbxLabel = SpecMaxMoyTbxLabel
'Zone de texte spéc moy max
Set gclsControlEvents.SpecMaxMoyTbx = SpecMaxMoymclsTbx

'Label spéc moy min
Set gclsControlEvents.SpecMinIndTbxLabel = SpecMinIndTbxLabel
'Zone de texte spéc moy min
Set gclsControlEvents.SpecMinIndTbx = SpecMinIndmclsTbx
'Label spéc max min
Set gclsControlEvents.SpecMaxIndTbxLabel = SpecMaxIndTbxLabel
'Zone de texte spéc moy max
Set gclsControlEvents.SpecMaxIndTbx = SpecMaxIndmclsTbx
'Zone de texte des options de la liste déroulante
Set gclsControlEvents.ListTbx = ListTextBox
'Label Options liste déroulante
Set gclsControlEvents.ListTbxLabel = ListmclsTbxLabel

Let gclsControlEvents.Transition = i

    Next i

编辑:
我尝试通过创建一个包含与我需要的组合框一样多的 CControlEvents 类实例的变体数组来解决该问题，然后在每次迭代时使用索引 i-1 处的该数组的元素，但它不起作用，这里是代码:

If (NewSheetModelColumnsCount > 0) Then

       For i = 1 To 6
           Controls("headerTextBox" + CStr(i)).Visible = True
           Controls("CheckBox" + CStr(i)).Visible = True
       Next i

       For i = 11 To 16
           Controls("label" + CStr(i)).Visible = True
       Next i

       Me.indicationLabel.Visible = False

      'Name of the frame
        With Me.Frame1
            'This will create a vertical scrollbar
            .ScrollBars = fmScrollBarsVertical

            'Change the values of 2 as Per your requirements
            .ScrollHeight = 30 * NewSheetModelColumnsCount + 50
            .ScrollWidth = 30 * 50 + 50
            '
        End With

        'Tentative
        Dim classList As Variant
        ReDim classList(0 To NewSheetModelColumnsCount - 1)

        For i = 0 To NewSheetModelColumnsCount - 1
           Set classList(i) = New CControlEvents
        Next i

    For i = 1 To NewSheetModelColumnsCount
     Set Lbl = Frame1.Controls.Add("Forms.Label.1", "lbl1")
     Set txtB1 = Frame1.Add("Forms.TextBox.1")
   '  Set ListBoxB1 = Frame1.Controls.Add("Forms.ComboBox.1")

    '    With ListBoxB1
    '        .Name = "list" & i
    '        .Height = 15
    '        .Width = 100
    '        .Left = 70
    '        .Top = 10 * i * 3
    '        .AddItem "NUM"
    '        .AddItem "LIST"
    '    End With

'Create the combobox
Set oleCbx = Frame1.Add("Forms.ComboBox.1") 'Bug at this line

With oleCbx
    .name = "list" & i
    .Height = 15
    .Width = 100
    .Left = 70
    .Top = 10 * i * 3
    .AddItem "NUM"
    .AddItem "LIST"
End With

        With txtB1
            .name = "chkDemo" & i
            .Height = 15
            .Width = 100
            .Left = 230
            .Top = 10 * i * 3
        End With

        Lbl.Caption = "Colonne n°" + CStr(i)
        Lbl.Top = txtB1.Top
        Lbl.Left = 10

        Set lbl2 = Frame1.Controls.Add("Forms.Label.1", "lbl2")
        'Set txtB2 = Frame1.Add("Forms.TextBox.1")

       ' With txtB2
       '    .name = "unitTextBox" & i
       '    .Height = 15
       '    .Width = 100
       '    .Left = 240
       '    .Top = 10 * i * 3
       '    .Value = "txtB2"
       ' End With

        lbl2.Caption = "Intitulé : "
        lbl2.Top = txtB1.Top
        lbl2.Left = 180
        lbl2.Visible = True
        lbl2.Width = 50

Set UnitmclsTbxLabel = UserForm1.Frame1.Controls.Add("Forms.Label.1", "UnitmclsTbxLabel")
Set ListmclsTbxLabel = UserForm1.Frame1.Controls.Add("Forms.Label.1", "ListmclsTbxLabel")

Set SpecMinMoyTbxLabel = UserForm1.Frame1.Controls.Add("Forms.Label.1", "SpecMinMoyTbxLabel")
Set SpecMaxMoyTbxLabel = UserForm1.Frame1.Controls.Add("Forms.Label.1", "SpecMinMoyTbxLabel")

Set SpecMinIndTbxLabel = UserForm1.Frame1.Controls.Add("Forms.Label.1", "SpecMinIndTbxLabel")
Set SpecMaxIndTbxLabel = UserForm1.Frame1.Controls.Add("Forms.Label.1", "SpecMinIndTbxLabel")

UnitmclsTbxLabel.Caption = "Unité : "
UnitmclsTbxLabel.Left = 360

UnitmclsTbxLabel.Visible = False

Set numUnitTextBox = UserForm1.Frame1.Add("Forms.TextBox.1")
Set SpecMinMoymclsTbx = UserForm1.Frame1.Add("Forms.TextBox.1")
Set SpecMaxMoymclsTbx = UserForm1.Frame1.Add("Forms.TextBox.1")

Set SpecMinIndmclsTbx = UserForm1.Frame1.Add("Forms.TextBox.1")
Set SpecMaxIndmclsTbx = UserForm1.Frame1.Add("Forms.TextBox.1")

Set ListTextBox = UserForm1.Frame1.Add("Forms.TextBox.1")

SpecMinMoymclsTbx.Width = 50
SpecMaxMoymclsTbx.Width = 50
SpecMinIndmclsTbx.Width = 50
SpecMaxIndmclsTbx.Width = 50

With numUnitTextBox
        .name = "Unit" & i
        .Height = 15
        .Width = 50
        .Left = 360 + UnitmclsTbxLabel.Width - 40
        .Top = 10 * i * 3
        .Value = "Unit"
End With

ListTextBox.Top = numUnitTextBox.Top
ListTextBox.Left = numUnitTextBox.Left + numUnitTextBox.Width - 40
ListTextBox.Visible = False
ListTextBox.Width = 200

ListmclsTbxLabel.Caption = "Options : "
ListmclsTbxLabel.Visible = False
ListmclsTbxLabel.Top = numUnitTextBox.Top
ListmclsTbxLabel.Left = 360

UnitmclsTbxLabel.Top = numUnitTextBox.Top
SpecMinMoyTbxLabel.Top = numUnitTextBox.Top
SpecMinMoyTbxLabel.Left = numUnitTextBox.Left + numUnitTextBox.Width + 5
SpecMinMoyTbxLabel.Caption = "Spéc min Moy : "
SpecMinMoyTbxLabel.Visible = False
SpecMinMoymclsTbx.Top = numUnitTextBox.Top
SpecMinMoymclsTbx.Visible = False
SpecMinMoymclsTbx.Left = SpecMinMoyTbxLabel.Left + SpecMinMoyTbxLabel.Width - 15
SpecMaxMoyTbxLabel.Visible = False
SpecMaxMoyTbxLabel.Caption = "Spéc max moy : "
SpecMaxMoyTbxLabel.Left = SpecMinMoymclsTbx.Left + SpecMinMoymclsTbx.Width
SpecMaxMoyTbxLabel.Top = numUnitTextBox.Top
SpecMaxMoymclsTbx.Visible = False
SpecMaxMoymclsTbx.Top = numUnitTextBox.Top
SpecMaxMoymclsTbx.Left = SpecMaxMoyTbxLabel.Left + SpecMaxMoyTbxLabel.Width

SpecMinIndTbxLabel.Top = numUnitTextBox.Top
SpecMinIndTbxLabel.Left = SpecMaxMoymclsTbx.Left + SpecMaxMoymclsTbx.Width + 5
SpecMinIndTbxLabel.Caption = "Spéc min Ind : "
SpecMinIndTbxLabel.Visible = False
SpecMinIndmclsTbx.Top = numUnitTextBox.Top
SpecMinIndmclsTbx.Visible = False
SpecMinIndmclsTbx.Left = SpecMinIndTbxLabel.Left + SpecMinIndTbxLabel.Width - 15
SpecMaxIndTbxLabel.Visible = False
SpecMaxIndTbxLabel.Caption = "Spéc max moy : "
SpecMaxIndTbxLabel.Left = SpecMinIndmclsTbx.Left + SpecMinIndmclsTbx.Width
SpecMaxIndTbxLabel.Top = numUnitTextBox.Top
SpecMaxIndmclsTbx.Visible = False
SpecMaxIndmclsTbx.Top = numUnitTextBox.Top
SpecMaxIndmclsTbx.Left = SpecMaxIndTbxLabel.Left + SpecMaxIndTbxLabel.Width

numUnitTextBox.Visible = False

'Set gclsControlEvents = New CControlEvents
'On attribue la comboBox à une propriété de la classe créée
Set classList(i - 1).Cbx = oleCbx
'On attribue une zone de texte à une propriété de la classe créée
Set classList(i - 1).UnitTbx = numUnitTextBox
'Label unité
Set classList(i - 1).UnitTbxLabel = UnitmclsTbxLabel
'Label spéc moy min
Set classList(i - 1).SpecMinMoyTbxLabel = SpecMinMoyTbxLabel
'Zone de texte spéc moy min
Set classList(i - 1).SpecMinMoyTbx = SpecMinMoymclsTbx
'Label spéc max min
Set classList(i - 1).SpecMaxMoyTbxLabel = SpecMaxMoyTbxLabel
'Zone de texte spéc moy max
Set classList(i - 1).SpecMaxMoyTbx = SpecMaxMoymclsTbx

'Label spéc moy min
Set classList(i - 1).SpecMinIndTbxLabel = SpecMinIndTbxLabel
'Zone de texte spéc moy min
Set classList(i - 1).SpecMinIndTbx = SpecMinIndmclsTbx
'Label spéc max min
Set classList(i - 1).SpecMaxIndTbxLabel = SpecMaxIndTbxLabel
'Zone de texte spéc moy max
Set classList(i - 1).SpecMaxIndTbx = SpecMaxIndmclsTbx
'Zone de texte des options de la liste déroulante
Set classList(i - 1).ListTbx = ListTextBox
'Label Options liste déroulante
Set classList(i - 1).ListTbxLabel = ListmclsTbxLabel

Let classList(i - 1).Transition = i

       ' Set Lbl3 = Frame1.Controls.Add("Forms.Label.1", "lbl3")
       ' Set txtB3 = Frame1.Add("Forms.TextBox.1")

    '    With txtB3
     '        .Name = "specMin" & i
     '        .Height = 15
     '        .Width = 200
     '        .Left = 410
     '        .Top = 10 * i * 3
     '  End With

      ' Lbl3.Caption = "Eléments : "
      ' Lbl3.Top = txtB3.Top
      ' Lbl3.Left = 360

    Next i
 '
    'On modifie la visibilité des éléments pour ne permettre que la saisie du modèle courant
    Me.RedefineModelParamButton.Visible = True
    '
    Me.Label1.Visible = False
    Me.Label2.Visible = False
    Me.Label3.Visible = False
    Me.Label21.Visible = False

    Me.NewSheetModelLabelTextBox.Visible = False
    Me.NewSheetModelColumnsNumberTextBox.Visible = False
    Me.SheetCategoryComboBox.Visible = False
    Me.EnterNewSheetModelColumnsCountValidateButton.Visible = False
    Me.EnterNewSheetModelColumnsCountCancelButton.Visible = False
    Me.fcmIndexComboBox1.Visible = False
    Me.fcmIndexComboBox2.Visible = False

End If

最佳答案

在用户表单中声明一个VBA-Collection并将包装Combo-Boxes的类的实例存储在此集合中。在您的类中声明一个 Combo-Box 变量 WithEvents，以便您可以处理 Combo-Box 的事件。 HTH。

User Form

Private m_combos As New Collection

Private Sub UserForm_Initialize()
    Set m_combos = New Collection

    Dim i
    Dim newCombo As CControlEvents

    For i = 0 To 2
        Set newCombo = New CControlEvents

        With newCombo
            Set .Combo = Me.Frame1.Add("Forms.ComboBox.1")
            .Combo.Top = 20 * i
            .Combo.AddItem "A"
            .Combo.AddItem "B"
            .Combo.AddItem "C"
        End With

        m_combos.Add newCombo
    Next
End Sub

CControlEvents

Private WithEvents m_combo As MSForms.ComboBox

Private Sub m_combo_Change()
    MsgBox "Change: " & Me.Combo.Name
End Sub

Public Property Get Combo() As MSForms.ComboBox
    Set Combo = m_combo
End Property

Public Property Set Combo(ByVal newCombo As MSForms.ComboBox)
    Set m_combo = newCombo
End Property

关于vba - 向多个组合框添加事件监听器，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/31896707/

文章推荐： azure-service-fabric - Azure Service Fabric 中的可靠 blob 状态？

文章推荐： webrtc - 如何开始使用 WebRTC？

文章推荐： Drupal 为 View 显示中的一行设置主题

文章推荐： kubernetes - 如何在 EKS 中设置 Kubernetes 节点的名称

wpf - 如何翻译 CodeBehind WPF 事件；事件、处理程序、事件 setter 到 MVVM 模式？
我正在尝试将 WPF CodeBehid 事件(如 Event、Handler、EventSetter)转换为 MVVM 模式。我不允许使用 System.Windows.Controls，因为我使用
javascript - 向对象添加 Backbone 事件，修改时未注册 "on"事件
我可能误解了 Backbone 中的事件系统，但是当我尝试以下代码时什么也没有发生。当我向 Backbone.Events 扩展对象添加新属性时，它不应该触发某种更改、更新或重置事件吗？就像模型一样吗
javascript - Vue 事件 - 无法从子组件收听 $emit 事件
我遇到了一个简单的问题，就是无法弄清楚为什么它不起作用。我有一个子组件“app-buttons”，其中我有一个输入字段，我想听，所以我可以根据输入值过滤列表。如果我将输入放在我有列表的根组件中，一切
c# - Elapsed 事件 v Tick 事件？
System.Timers.Timer 的 Elapsed 事件实际上与 System.Windows.Forms.Timer 的 Tick 事件相同吗？在特定情况下使用其中一种比使用另一种有优势吗
javascript - evt = (evt) 的含义？事件 : window. 事件
嗨，这个 javascript 代码段是什么意思。(evt) 部分是如此令人困惑.. evt 不是 bool 值。这个怎么运作？ function checkIt(evt) { evt
jquery - 完整日历 + 事件 + 事件 Drop + Ajax - 不发送日期值
我正在使用jquery full calendar我试图在事件被删除时保存它。 $('calendar').fullCalendar ({
jquery - 为什么我可以关闭 mousedown 事件，但不能关闭其链接的 mouseup 事件？
我有两个链接的鼠标事件: $('body > form').on("mousedown", function(e){ //Do stuff }).on("mouseup", function(
javascript - 函数适用于 'keypress' 事件，但不适用于我触发的相同 'keypress' 事件
这是我的代码: $( '#Example' ).on( "keypress", function( keyEvent ) { if ( keyEvent.which != 44 ) {
c# - C# 中有没有一种方法可以触发 onclick() 事件，并且仍然能够在按住鼠标单击的同时检测到 onDrag() 事件
我尝试了 dragOver 事件处理程序，但它没有正常工作。我正在研究钢琴，我希望能够弹奏音符，即使那个键上没有发生鼠标按下。是否有事件处理程序？下面是我正在制作的钢琴的图片。最佳答案您应该
javascript - 如何在 onClick 事件(ReactJS)之后停止 onMouseOut 事件？
当悬停在相邻文本上时，我需要使隐藏按钮可见。这是通过 onMouseEnter 和 onMouseLeave 事件完成的。但是当点击另外的文本时，我需要使按钮完全可见并停止 onMouseLeave
javascript - 仅在 mouseup 事件 Jquery 中启用 Click 事件
我有ul标签内 div标签。我申请了mouseup事件 div标记和 click事件 ul标签。问题每当我点击 ul标签，然后都是 mouseup和 click事件被触发。我想要的是当我点击 u
javascript - e = 事件 ||窗口.事件;声明在 Firefox 中无法正常工作
我是 Javascript 和 jQuery 的新手，所以我有一个非常愚蠢的疑问，请耐心等待 $(document).click(function () { alert("!"); v
javascript - 如何使 'keydown' 事件 block 成为 'keyup' 事件？
我有一个邮政编码解析器，我正在使用 keyup 事件处理程序来跟踪输入长度何时达到 5，然后查询服务器以解析邮政编码。但是我想防止脚本被不必要地调用，所以我想知道是否有一种方法可以跟踪 keydown
php - 使用 facebook 事件 API 在创建时将封面照片上传到 facebook 事件
使用事件 API，我有以下代码来发布带有事件照片的事件 $facebook = new Facebook(array( "appId" => "XXX", "se
c# - 由于加载时未触发 NewDocument 事件，如何处理 Word DocumentChange 事件
首次加载 Microsoft Word 时，既不会触发 NewDocument 事件也不会触发 DocumentOpen 事件。当 Word 实例已打开并打开新文档或现有文档时，这些事件会正常触发。
Javascript:Keydown 事件: "Up"箭头键阻止进一步的箭头键 Keydown 事件？ (回答:键盘重影)
我发现了很多相关问题(这里和其他地方)，但还没有具体找到这个问题。我正在尝试监听箭头键 (37-40) 的按键事件，但是当以特定顺序使用箭头键时，后续箭头不会生成“按键”事件。例子: http:/
javascript - keydown 事件(TAB 键)修改元素值时未触发 Change 事件
给定的 HTML: 和 JavaScript 的: var $test = $('#test'); $test.on('keydown', function(event) { if (eve
Node.js – 事件 js 72 抛出未处理的 'error' 事件
我是 Node.js 的新手，希望使用流运行程序。对于其他程序，我必须同时启动一个服务器(mongodb、redis 等)，但我不知道我是否应该用这个运行一个服务器。请让我知道我哪里出了问题以及如何纠
cocoa - Swift NSViewController 响应 mouseDown 事件，但不响应 keyDown 事件
我正在尝试使用 Swift 和 Cocoa 创建一个适用于 OS X 的应用程序。我希望应用程序能够响应关键事件，而不将焦点放在文本字段上/文本字段中。我在 Xcode 中创建了一个带有 Storyb
javascript - GTM、事件 - 点击、目标 - 链接、GA 事件 - 空
我有以下代码: (function(w,d,s,l,i){ w[l]=w[l]||[];w[l].push({

行者123

个人简介

我是一名优秀的程序员,十分优秀！

作者热门文章

滴滴打车优惠券免费领取

全站热门文章

首页

博学

6Ren·AI

商城

vba - 向多个组合框添加事件监听器