请教！

Question

请教！
我在用vb6.0做一个收支本，当我在toolbar上加了保成.查询等工具小图片后，请问应怎样在这些小图片上加入命令按钮（commandbutton)的代码？具体操作过程是什么？我点这工具小图片后在代码表内出现的是给toolbar加代码啊！！谢谢！！！

Answer 1

1.将COMMADN1的Style在设计时设为1.
2. Command1.Caption = Toolbar1.Buttons(1).Image

Answer 2

我说的不是这意思，我是说：当点下保成.查询等工具小图片后，怎样给它们加“保成.查询等命令的代码”啊？？？ 因为小图片和Toolbar是一个整体，不能单独将小图片点下而加入代码啊！！，请进一步指教，谢谢！！！

Answer 3

Private Sub Toolbar1_ButtonClick(ByVal Button As ComctlLib.Button)
Select Case Button.Index
Case 1
form1.show
case 2
fomr2.show
case 3
form3.show
End Select
End Sub

Answer 4

可用标准集合方法（例如 Add 和 Remove 方法）操作 Button 对象。集合的每个元素都可通过其索引，即 Index 属性值来访问，也可通过唯一关键字，即 Key 属性值来访问。

Answer 5

来晚了，呵呵select语句
通过Index或者Key属性值来访问你点击的是哪个Button

Answer 6

3， 获取当前按钮的事件
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
      Dim SelStr As String
        
        SelStr = UCase$(Button.Key)        Select Case SelStr
                Case "Q"
                  MsgBox "ok"
                Case "U"
                Case "D"
        End Select
        Exit Sub
         
End Sub