|
请问楼主你解决添加菜单的问题了吗?
Private Function SwAddin_ConnectToSW(ByVal ThisSW As Object, ByVal Cookie As Long) As Boolean
Set isldworks = ThisSW
icookie = Cookie
bret = isldworks.SetAddinCallbackInfo(App.hInstance, Me, icookie)
bret = isldworks.AddMenu(swDocNONE, "1", 5)
bret = isldworks.AddMenuItem2(swDocNONE, icookie, "2@1", 0, "机架", "机架系统", "机架系统设计")
bret = isldworks.AddMenuItem2(swDocNONE, icookie, "3@2@1", 1, "机箱","机箱系统", "机箱系统设计")
SwAddin_ConnectToSW = True
End Function
我这为什么三级菜单就是添加不了?真心着急啊
bret = isldworks.AddMenu(swDocNONE, "1", 5)
还有这一句话,写成这样就一个都加不上,
bret = isldworks.AddMenu(swDocPART+swDocASSEMBLY+swDocDRAWING+swDocNONE, "1", 5)真心求教啊 |
|