VB工程--百例76--工具栏

这个例子在写时有些陌生，无从下手，经过仔细研究，三遍才将其完整的运行，第一遍尝试，第二遍五个按钮中有些运行不了，第三遍自己通过理解与记忆，背着完整的写了出来，而且运行非常成功！以此铭记！具体步骤如下！

Option Explicit
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "打开"
MsgBox "你选择的是打开按钮！", , "信息提示框"
Case "复制"
MsgBox "你选择的是复制按钮！", , "信息提示框"
Case "剪切"
MsgBox "你选择的是剪切按钮！", , "信息提示框"
Case "粘贴"
MsgBox "你选择的是粘贴按钮！", , "信息提示框"
Case "保存"
MsgBox "你选择的是保存按钮！", , "信息提示框"
End Select

End Sub