Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Key
Case "New"
Call mnuFileNew_Click
Case "Open"
Call mnuFileOpen_Click
Case "Save"
Call mnuFileSave_Click
End Select
End Sub
以上代码中Select Case Key更改为Select Case button.Key
主要添加一个参数对象的引用。作者: bayqishi 时间: 2010-1-12 14:33