menu1的Click中Call插入按钮的Click是事件处理: 如: private sub menu1_click() call cmdInsert_click() end subprivate sub cmdInsert_click() '插入操作 ...... end sub 同样如法炮制menu2的处理等。
想共用一个功能的话,将插入、删除等写到一个过程中,添加一个操作类型的参数: public function DoOperation(byval nType as integer) select case ntype case 1 '插入 case 2 '删除 ... case else end select end function 然后 private sub menu1_click() call DoOperation(1) end subprivate sub menu2_click() call DoOperation(2) end sub
如:
private sub menu1_click()
call cmdInsert_click()
end subprivate sub cmdInsert_click()
'插入操作
......
end sub
同样如法炮制menu2的处理等。
public function DoOperation(byval nType as integer)
select case ntype
case 1 '插入
case 2 '删除
...
case else
end select
end function
然后
private sub menu1_click()
call DoOperation(1)
end subprivate sub menu2_click()
call DoOperation(2)
end sub