难道此论坛没人能解决此问题吗 ~~~~~~~!!!!!!!!!!!!!!!!!
难道此论坛没人能解决此问题吗 ~~~~~~~!!!!!!!!!!!!!!!!!!1~~~~~~我想在中加个栏或者菜单,要求点击工具栏某个按钮(或者菜单项)后能弹出一个对话框,用来输入一些参数。请各位高手们指点,用vb做 可以实现改功能吗? 本人看到的一个例子是这样写的:Private Sub 添加菜单_Click()
Dim currmenugroup As AcadMenuGroup
Set currmenugroup = acadapp.MenuGroups.Item(0)
Dim newmenu As AcadPopupMenu
Set newmenu = currmenugroup.Menus.Add("testmenu")
Dim newmenuitem As AcadPopupMenuItem
Dim openmacro As String
openmacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)
Set newmenuitem = newmenu.AddMenuItem(newmenu.Count + 1, "open", openmacro)
newmenu.InsertInMenuBar (acadapp.MenuBar.Count + 1)
End Sub
但不知道 ,openmacro = Chr(3) & Chr(3) & Chr(95) & "open" & Chr(32)这一行能否vb开发的插价来代替,如果可以代替的话,就可以实现弹出对话框来输入参数。
小弟 先谢了,各位大虾们帮帮小弟吧
可以解释一下插件是什么意思么?ActiveX Dll?Activex Control? 如果你仅仅要求弹出对话框,要这东东干什么?
你问的问题几天前都有回复,自己先搜索一下吧
(乖乖,怎么想扣分编程加分了,晕了) 如果你的过程写在模块中,而且过程前带Public,则可以把运行宏写成:复制代码
页:
[1]