Question

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

VB6.0的Toolbar1控件方法
在这个控件上，我创建了增加（ADD）,保存（SAV）两个按钮。

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

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

End Sub

我用的是Adodc1数据控件。

Answer 1

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