.show出问题了,帮忙看一下吧!
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Button.Index
Case 2
frm_in.Show , 1
Case 4
frm_out.Show , 1
Case 6
QUERY.Show , 1
Case 8
STAT.Show , 1
Case 10
BACKUP.Caption = "数据备份"
BACKUP.Show , 1
Case 12
BACKUP.Caption = "数据恢复"
BACKUP.Show , 1
Case 14
c = MsgBox("确认要退出吗？", 33, "提示")
If c = vbOK Then
Unload Me
End If
End Select
End Sub
当我运行时,点击toolbar中的按钮,就会显示 类型不匹配 是.show出问题,还是别的什么,还需要添加引用吗?麻烦高手帮我看一下,先谢
