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

前端之家收集整理的这篇文章主要介绍了VB工程--百例76--工具栏前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

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

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

猜你在找的VB相关文章