各位老大，VB中用AddMenuItem调用SUB可以吗？
各位老大，VB中用AddMenuItem调用SUB可以吗？下面是我在VB中的代码Option Explicit
Public SAPCAD As AcadApplication
Sub Main()
On Error Resume Next
Set SAPCAD = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set SAPCAD = CreateObject("AutoCAD.Application")
If Err Then
MsgBox ("请安装CAD")
Exit Sub
End If
End If
SAPCAD.WindowState = acMax
Dim currmenugroup As AcadMenuGroup
Set currmenugroup = SAPCAD.Application.MenuGroups.Item(0)
'创建新菜单
Dim newmenu As AcadPopupMenu
Set newmenu = currmenugroup.Menus.Add("SAP接口1")
'在新菜单上增加菜单项
Dim newmenuitem1 As AcadPopupMenuItem
Dim newmenuitem2 As AcadPopupMenuItem
Dim SubMacro As String
SubMacro = Chr(3) & Chr(3) & Chr(95) & "call Create_bom" & Chr(32)
Set newmenuitem1 = newmenu.AddMenuItem(newmenu.Count + 1, "根据BOM生成明细表", SubMacro)
Set newmenuitem2 = newmenu.AddMenuItem(newmenu.Count + 1, "根据明细表生成BOM", SubMacro)
newmenu.InsertInMenuBar (SAPCAD.Application.MenuBar.Count + 1)
End Sub
Sub Select_material()
Dim s As String
MsgBox "select material"
End Sub
Sub Create_bom()
Dim s As String
MsgBox "select BOM"
End Sub
这样处理后，在CAD中菜单可以出来，可以点了菜单行后没有运行sub Create_bom,有劳老大们指点一下，谢谢！
http://bbs.mjtd.com/xwb/images/bgimg/icon_logo.png 该贴已经同步到 billyang99的微博
页:
[1]