vb 工具栏
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)Select Case Botton.Key
Case "R_Designed"
File_Type = Receiver_Designed
Rs.Open "select * from rec_designed order by name", Cn, adOpenKeyset, adLockOptimistic
Me.Adodc1.RecordSource = "select * from rec_designed order by name"
Me.DataGrid1.Caption = "检波点设计坐标"
Case "S_Desinged"
File_Type = Source_Designed
.......
编译时,提示实时错误424,要求对象??? --------------------编程问答-------------------- Botton--->Button --------------------编程问答-------------------- thank you very much ,what i need is more chariness
补充:VB , 基础类