关于toolbar,我点击了toolbar某个按钮后，如何让代码判断我点击的是哪个按钮？
关于toolbar,我点击了toolbar某个按钮后，如何让代码判断我点击的是哪个按钮？
请教了，在线等，急！请各位大狭，各路高人帮帮兄弟！先谢了！
[解决办法]
鼠标右键点击Toolbar控件,选属性,对按钮页进行编辑,设置索引及关键字,然后用鼠标左键双击Toolbar控件,出现如下事件代码,在其间写代码:
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
End Sub
下面给出一段代码,其中 "仪表屏 "等就是关键字:
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "仪表屏 "
frmYibiao.Show
frmYibiao.Width = Me.ScaleWidth
frmYibiao.Height = Me.ScaleHeight
frmYibiao.Top = 0
frmYibiao.Left = 0
frmMdiMain.Caption = "工业实时控制系统-[仪表屏] "
Frmjly.Hide
frmchaxun.Hide
Case "记录仪 "
Frmjly.Show
Frmjly.Width = Me.ScaleWidth
Frmjly.Height = Me.ScaleHeight
Frmjly.Top = 0
Frmjly.Left = 0
frmMdiMain.Caption = "工业实时控制系统-[记录仪] "
Case "历史记录 "
frmchaxun.Show
frmchaxun.Width = Me.ScaleWidth
frmchaxun.Height = Me.ScaleHeight
frmchaxun.Top = 0
frmchaxun.Left = 0
frmMdiMain.Caption = "工业实时控制系统-[历史记录] "
Case "仪表设置 "
frmSet.Show
Case "操作设置 "
frmCxInput.Show
Case "退出 "
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Msg = "结束程序 ? " ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "结束程序 " ' 定义标题。
Help = "DEMO.HLP " ' 定义帮助文件。
Ctxt = 1000 ' 定义标题
' 上下文。
' 显示信息。
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes " ' 完成某操作。
End
Else ' 用户按下“否”。
MyString = "No " ' 完成某操作。
End If
End Select
End Sub
