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

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

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

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

总结

以上是内存溢出为你收集整理的VB工程--百例76--工具栏全部内容，希望文章能够帮你解决VB工程--百例76--工具栏所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。