Question

VB动态控件如何触发事件

Controls("Combo1").Text = "第1列样本"
For i = 1 To 3
Controls("Combo1").AddItem "第" & i & "列样本"
Next i
如上代码添加了动态下拉菜单控件，请问怎么实行 该控件单击事件（当我选择其他选项是，自动触发事件）
如果不是动态控件应当是以下代码：
Private Sub Combo1_Click()

这里希望给出动态控件时的单击代码

Answer 1

VB中可以用下面的方法动态添加Combo控件

1、在窗体中先手工添加一个 Combo1控件，设置其 Index=0

2、利用程序动态添加需要的 Combo1 控件

    如：

    Dim x As Integer
    Dim y As Integer
    Dim i As Integer
   
    x = Combo1(0).Left    
    y = Combo1(0).Top
   
    For i = 1 To 3
        Load Combo1(i)    '添加 Combo1控件，并排列整齐
        Combo1(i).Left = x
        Combo1(i).Top = y + Combo1(0).Height * i + 2
        Combo1(i).Visible = True
   
        Combo1(i).AddItem "组合选择框(" + Str(i + 1) + ")"
        Combo1(i).Text = ""
    Next i

效果如下图：

3、这样的话，Combo1 控件的Click()事件控制中就更新为：

    Private Sub Combo1_Click(Index As Integer)
          Select Case Index
                    Case 0
                        MsgBox Combo1(Index).Text
                    Case 1    
        
                    Case 2        
         End Select   
    End Sub
    事件中，不同的Combo1()对应的Index 是不同的，利用 Index 区分是哪个Combo1()事件

追问

类似的文本控件也是如此吗？

追答

一样的!

追问

非常感谢你的细心解答，我还想知道下，按照我的哪种方式添加是不是没有触发的方式？