Question

vb中Toolbar1.Buttons(n)，n与菜单中的菜单项如何对应的，依次数个数，还是

vb中Toolbar1.Buttons(n)，n与菜单中的菜单项如何对应的？
依次数个数，还是看索引数？我看了索引数却还是不行

Answer 1

看下面的示例,你最好是给关键字,因为关键字易懂 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key Case "View" '浏览 Set TabStrip1.SelectedItem = TabStrip1.Tabs(2) Case "Add" '添加 frmAddArticle.Show 1, Me Case "Open" '打开 mnuOperate_Open_Click Case "del" mnuOperate_Del_Click Case "Compact" '压缩 Call frmSetting.cmdCompact_Click Case "Backup" '备份" Call frmSetting.cmdBackup_Click Case "Recover" '恢复 Call mnuChoice_Recover_Click Case "Setting" '设置 frmSetting.Show 1, Me Case "Font" '字体 mnuOperate_Font_Click Case "Exit" '退出 End End Select End Sub 如果是按钮菜单,这样来做:(判断的论据是菜单项的文本内容,也可以是其他的) Private Sub Toolbar1_ButtonMenuClick(ByVal ButtonMenu As MSComctlLib.ButtonMenu) Select Case ButtonMenu Case "添加文章" Load frmAddArticle frmAddArticle.Show 1, Me Case "添加源代码" frmAddCode.Show 1, Me Case "浏览文章" Set TabStrip1.SelectedItem = TabStrip1.Tabs(2) Case "浏览源代码" Set TabStrip1.SelectedItem = TabStrip1.Tabs(1) End Select End Sub