Combo1.Clear
     Combo1.AddItem "管理一所", 0
     Combo1AddItem "管理二所", 1
     Combo1.AddItem "管理三所", 2
     Combo1.ListIndex = 0     每次点击Combo1_ ,总是调用 Combo1_click() 事件,而不是 Sub Combo1_Change(),
并且 只要一设置  Combo1.ListIndex = 0 ,也调  Combo1_click(),请问我现在 想 每次选择 combox 时,调用一个函数,实现类似二级菜单。请问我应如何做?

解决方案 »

  1.   

    select case combo1.listindex
           case 0
                 调用函数1
           case 1
                 调用函数2
    end select这样可以吗?
      

  2.   

    Combo1_Change事件是在Combo1的文本框中键入、复制、粘贴等操作引起Combo1文本变化时发生的
      

  3.   

    除了一楼的方法,也可以:
    private sub combo1_click()
    select case combo1.text
           case "管理一所"
                 调用函数1
           case "管理二所"
                 调用函数2
    end select
    end sub
      

  4.   

    当函数中调用以下时,报 “实时错误424,要求对象” 
      Dim suo_id As Integer
         suo_id = combo1.listindex+1不知为什么?
      

  5.   

    是在 private sub combo1_click() 里调的
      

  6.   

    你窗体上根本没放combo1这个控件?或者名称不是combo1?