VB中如何对工具栏的各个图标进行功能设置

先设置 TOOLBAR 的属性页，右击控件 - 按钮 - 索引对应的是按钮编号 然后在 关键字 的地方输入 one 再插入一个按钮 在 关键字 的地方输入 two ，这样就有两个按钮了 Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "one"
MsgBox "第一个按钮被按了" Case "two" msgbox "第二个按钮被按了"
End Select
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Index
Case 0
MsgBox "第一个按钮被按了" Case 1 msgbox "第二个按钮被按了"
End SubButton.Index是根据你设置的索引值进行判断的 和楼上两种方法都可以的