|
《VB 从入门到实践》9.3.7章节的实例工具栏控件Toolbar1_ButtonClick存在错误
在学习《VB 从入门到实践》时,在9.3.7章节(P125页)的实例中有段代码:
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Key
Case "New"
Call mnuFileNew_Click
Case "Open"
Call mnuFileOpen_Click
Case "Save"
Call mnuFileSave_Click
End Select
End Sub
以上代码中Select Case Key更改为Select Case button.Key
主要添加一个参数对象的引用。 |
|