ComboBox控件问题

Question

这个控件是一个下拉菜单，我想在程序运行时，根据下来菜单的内容变化来触发对应的事件，能做到吗？？？？？？

Answer 1

要用click事件，不要使用change事件

Answer 2

也可用combobox控件的dropdown事件

Answer 3

DropDown 事件
      该事件是当 ComboBox 控件的列表部分正要被放下时发生；如果 ComboBox 控件的 Style 属性设置为 1（简单的 Combo）时此事件不会发生。语法Private Sub object_DropDown([index As Integer])DropDown 事件的语法包含下列部分：部分 描述 
object 一个对象表达式，其值是“应用于”列表中的一个对象。 
index 一个整数，用来唯一地标识一个在控件数组中的控件。 
说明DropDown 事件过程可以用在接受选择之前对 ComboBox 列表进行最后的各种更新。于是允许使用 AddItem 或 RemoveItem 方法从该列表添加或删除条目。在需要控件间有某些相互作用时，这种灵活性是很有用的，例如，需要根据在 OptionButton 组中的选择才能决定加载到 ComboBox 列表的内容时，就可以利用该事件。

Answer 4

'添加一个组合框，Style设置成2
Option ExplicitPrivate Sub Combo1_Click()
    Select Case Combo1.Text
        Case "1"
            '你想干的事情
        Case "2"
            '你想干的事情
        Case "3"
            '你想干的事情
        Case "4"
            '你想干的事情
    End Select
End SubPrivate Sub Form_Load()
    Combo1.AddItem "1"
    Combo1.AddItem "2"
    Combo1.AddItem "3"
    Combo1.AddItem "4"
End Sub

Answer 5

我有combo1,combo2，我做的是:利用combo1.text的不同来给combo2赋予不同的下拉内容，但目前
最难的问题是，如何把combo2清空在赋予值，不然多次内容叠加了/
      
       Private Sub Form_Load()
        Combo1.AddItem "a"
        Combo1.AddItem "b"
        combo1.text="a"
        call a
       End Sub       Private Sub Combo1_Click()
          If Combo1.Text = "a" Then
               Call a 
          Else
               Call b
          End If
       End Sub     Private Sub a()
        '在这如何把combo2原来的内容清空？？？？？？？？？？
       Combo2.AddItem "a1"
       Combo2.AddItem "a2"
       Combo2.AddItem "a3"
       Combo2.AddItem "a4"
     End Sub    Private Sub b()
      '在这如何把combo2原来的内容清空？？？？？？？？？？？？？？？？//
      Combo2.AddItem "b1"
      Combo2.AddItem "b2"
      Combo2.AddItem "b3"
      Combo2.AddItem "b4"
    End Sub请高手帮忙

Answer 6

请问楼上的楼上：
  '添加一个组合框，Style设置成2
  这个有啥用？我不改这个一样可以实现我的程序啊？请讲讲被。

Answer 7

Private Sub Form_Load()
        Combo1.AddItem "a"
        Combo1.AddItem "b"
        combo1.text="a"
        call a
       End Sub       Private Sub Combo1_Click()
          If Combo1.Text = "a" Then
               Call a 
          Else
               Call b
          End If
       End Sub     Private Sub a()
       Combo2.Clear
       Combo2.AddItem "a1"
       Combo2.AddItem "a2"
       Combo2.AddItem "a3"
       Combo2.AddItem "a4"
     End Sub    Private Sub b()
      Combo2.Clear
      Combo2.AddItem "b1"
      Combo2.AddItem "b2"
      Combo2.AddItem "b3"
      Combo2.AddItem "b4"
    End Sub