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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!