Question

VB 提示用户定义类型未定义，代码如下。

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Select Case Button.Index

Case 1 'edit

FrmEdit.Show
FrmMain.Enabled = False

Case 2 'del
If DBGA.SelBookmarks.Count = 1 Then
If MsgBox("确定要删除吗？", vbOKCancel, "确定") = vbOK Then DataA.Recordset.Delete
cuAp = 0
Else
MsgBox "请选择要删除的条目！"
End If

Case 3 'seek
FrmSearch.Show

Case 4 'setup
FrmSetup.Show

End Select

End Sub

Answer 1

ByVal Button As MSComctlLib.Button

这里提示错误？

追问

enen就是这里

追答

MSComctlLib是一个类型库，请先添加Windows Common Control部件，步骤如图：