什么情况下调用 combox_change() 事件

[liuchanghu]

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 时，调用一个函数，实现类似二级菜单。请问我应如何做？

[liuchanghu]

当函数中调用以下时，报 “实时错误424，要求对象”
Dim suo_id As Integer
suo_id = combo1.listindex+1

不知为什么？

[liuchanghu]

是在 private sub combo1_click() 里调的

[happy_sea]

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

[Ericchow]

select case combo1.listindex
case 0
调用函数1
case 1
调用函数2
end select

这样可以吗？

[happy_sea]

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

[happy_sea]

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