Private Sub Combo1_Click()
'你的代码
End Sub
中写

解决方案 »

  1.   

    对头
    在Click事件中写,而不是Change事件中写
      

  2.   

    感谢两位仁兄指点,但你们真的没误会我的意思吗?(我现在身边没有VB无法验证)我的意思并不是用鼠标
    点击一下此控件即触发,而是说当点了下拉框之后切换到其他备选项并覆盖了当前框中的老选项之后才触发
    你们能确认一下吗?(例如下拉框里的备选项为A1,A2,A3,原选中项为A1,现切换到A3后才触发程序)
      

  3.   

    这个问题比较简单,用Combo1_Click事件,不是Combo1_Change事件。
    下面是一现成的程序,请Copy到代码中试一下:(不过,先要添加一个
    ComboBox 和Textbox)Private Sub Combo1_click()
        Text1.Text = Combo1.List(Combo1.ListIndex)
    End SubPrivate Sub Form_Load()
        For i = 1 To 10
            Combo1.AddItem i
        Next
    End Sub