VB下如何编程隐藏AutoCAD的菜单跟工具栏？

galayan · 发表于 2005-4-27 14:08:00

本帖最后由作者于 2005-4-28 15:22:14 编辑

VB做的界面作为父窗体，AuotCAD的窗体作为子窗体，见附图这种情况下，如何用API获取AutoCAD的菜单跟工具栏的句柄并且实现AutoCAD菜单和工具栏的隐藏？问了很多人了都还没有得到一个明确的答案请高手帮忙指点邮箱：holly413@163.com QQ：34740594

雪山飞狐_lzh · 发表于 2005-4-27 22:03:00

看看对象模型，可以直接解决的就不用调用API了

BigJue · 发表于 2005-4-28 10:32:00

在编程申请中我回了个帖子

galayan · 发表于 2005-4-28 10:51:00

谢谢了

BigJue · 发表于 2005-4-28 11:46:00

其实刚才的方法有致命的问题,还是不可取的.我现在在考虑另外一种方法.

首先隐藏菜单(已实现):SetMenu hwnd,0 hwnd是acad应用程序的句柄.

隐藏工具栏的方法我想通过获得控件的句柄,然后调用API函数showwindow来实现,正在努力中

galayan · 发表于 2005-4-28 11:50:00

万分感谢

研究出来了之后

麻烦您告诉我一下方法哦

BigJue · 发表于 2005-4-28 11:53:00

BigJue · 发表于 2005-4-28 13:28:00

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=29702 这个地址中有讲到去掉工具栏的一个方法,我试了一下还可以,代码如下: Dim I As AcadMenuGroup
Dim j As AcadToolbar
For Each I In acadApp.MenuGroups
For Each j In I.Toolbars
j.Delete
Next j
Next I

BigJue · 发表于 2005-4-28 15:17:00

现在对于这个问题已经有了一定的理解和实践,产生一种方案: 1.对于菜单,可以用SetMenu hwnd,0消除; 2.对于各式各样的工具栏,可以用如下代码消除: Dim menugroup As AcadMenuGroup
Dim toolbar As AcadToolbar
For Each menugroup In acadApp.MenuGroups
For Each toolbar In menugroup.Toolbars
toolbar.Delete
Next toolbar
Next menugroup 3.对于剩余的可见窗体,如状态栏和命令行,可以通过设置acad窗口的size来隐藏,注意,实际上状态兰和命令行是存在的,只是因为acad的大小超过了Form的窗口大小而变的不可见,在Form的Resize函数中,适当调整acad窗口的left,right,height,width,就可以使acad包含在form中,效果是你只能看到ActiveDocument,我随便做了几个操作,效果挺不错的,就是感觉这个方法不太正规.如果有谁知道更好的办法,请告诉我,谢谢.

galayan · 发表于 2005-4-28 15:27:00

我试了

用SetMenu acadApp.ActiveDocument.hwnd,0语句

但是不行啊

找不到SetMenu这个函数

账号		自动登录	找回密码
密码			注册

VB下如何编程隐藏AutoCAD的菜单跟工具栏？

本帖子中包含更多资源