VB编程简单的Toolbar1控件使用方法问题。

来源:百度知道 编辑:UC知道 时间:2024/06/23 04:09:56
VB6.0的Toolbar1控件方法
在这个控件上,我创建了增加(ADD),保存(SAV)两个按钮。

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

***这里应该怎么写代码?

End Sub

我用的是Adodc1数据控件。

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComCtlLib.Button)
On Error Resume Next
Select Case Button.Key
Case "add"
MsgBox "添加 '按钮' 按钮代码。"
Case "sav"

MsgBox "sav '保存' 按钮代码。"
End Select
End Sub