大家来看看程序
我在运行下面一段程序时,说Private Sub Toolbar1_ButtonClick(ByVal button As MSComctlLib.button),用户类型未定义,请问是怎么回事,如何做Private Sub Toolbar1_ButtonClick(ByVal button As MSComctlLib.button)
Select Case button.Index
Case 1
frmaddnew.Show 1
Case 2
frmdzxxgl.Show 1
Case 3
frmdzjsgl.Show 1
Case 4
frmdzhsgl.Show 1
Case 5
frmcqtx.Show 1
Case 6
frm_lb_cx.Show 1
Case 7
Unload Me
End Select
End Sub