VB动态控件如何触发事件

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

这里希望给出动态控件时的单击代码
展开
 我来答
满以柳J7
推荐于2017-09-15 · TA获得超过539个赞
知道小有建树答主
回答量:545
采纳率:66%
帮助的人:553万
展开全部

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()事件

更多追问追答
追问
类似的文本控件也是如此吗?
追答
一样的!
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式