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 时,调用一个函数,实现类似二级菜单。请问我应如何做?
Combo1.AddItem "管理一所", 0
Combo1AddItem "管理二所", 1
Combo1.AddItem "管理三所", 2
Combo1.ListIndex = 0 每次点击Combo1_ ,总是调用 Combo1_click() 事件,而不是 Sub Combo1_Change(),
并且 只要一设置 Combo1.ListIndex = 0 ,也调 Combo1_click(),请问我现在 想 每次选择 combox 时,调用一个函数,实现类似二级菜单。请问我应如何做?
解决方案 »
- 怎样把Combo2.Text、Text1.Text和Text2.Text作为查询条件,在数据库中查找符合要求的数据?
- VB里连接字符串语句,请高手请教。
- 如何给函数传递数组参数?
- 怎么修改“用户名”和“密码”?
- 怎样用ADO连Excel文件,能否给个列子?(在线等)
- 各位高手帮帮忙,帮我看看这SQL语句.
- datareport.Sections(5).Controls(15).Caption中的Controls(15)的问题
- win2000下OCX控件不能注册-错误提示"找不到指定的模块"
- vb多参数属性如何赋值?
- 求教 !!!
- MSHFlexGrid的AddItem与RemoveItem交互操作的问题。请指教!
- 做界面登陆的,就简简单单几行代码。错误显示在第一行:对象变量或with块变量未设置
case 0
调用函数1
case 1
调用函数2
end select这样可以吗?
private sub combo1_click()
select case combo1.text
case "管理一所"
调用函数1
case "管理二所"
调用函数2
end select
end sub
Dim suo_id As Integer
suo_id = combo1.listindex+1不知为什么?