Question

vb中toolbar 的问题

在窗体中加入了一个Toolbar控件，
当按钮中有子菜单时，如何添加代码？即如何确定子菜单索引值
我是指按钮中有下拉菜单，如何添加代码，我试过用索引和关键字，都不行

Answer 1

个人见到过的做法是这样的：
1.先在数据库的用户信息表加上“权限”字段，在权限字段中加入toolbar控件上按钮你认为不可以使用的按钮的名字作为字段值如。

举例：假设需要不可用按钮是机构设置. 学籍管理. 课程管理. 成绩管理. 奖惩管理.等5个。
在数据库字段下给字段赋值：
如果是管理员用户，权限字段值，写：机构设置 ： 学籍管理 ： 课程管理 ： 成绩管理 ： 奖惩管理
普通用户的不写
2.然后在登录界面登录框中设置如：普通用户、管理员等combobox选项
3.在主窗体的Form_load里面加上判断权限的过程，举例代码如下：
Dim rst As ADODB.Recordset
Dim rights As String
Dim sTokens() As String
Dim msg As String
'查找权限
SQL = " select 权限 from 用户信息表 where 用户ID='" & UserID & "'"
Set rst = SelectSQL(SQL, msg)
If rst.RecordCount > 0 Then
rights = Trim(rst.Fields(0))
rst.Close
Else
MsgBox ("没有用户信息！")
Exit Sub
End If
'设置权限
机构设置.Enabled = InStr(rights, "机构设置") '机构设置是toolbar按钮的名字
学籍管理.Enabled = InStr(rights, "学籍管理")
课程管理.Enabled = InStr(rights, "课程管理")
成绩管理.Enabled = InStr(rights, "成绩管理")
奖惩管理.Enabled = InStr(rights, "奖惩管理")
系统管理.Enabled = InStr(rights, "系统管理")

过程就是这样，仅做参考，可以根据这样的做法自己想到更好的做法，还不明白在网上下载一个有类似功能系统 参考着去做一做。

Answer 2

在TOOLBAR控件的ButtonClic事件中写代码即可，例如：

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
Form1.Show
Case 2
Form2.Show
Case 3
Form3.Show
End Select
End Sub

Answer 3

楼上正解～！