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

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

本帖最后由 作者 于 2005-4-28 15:22:14 编辑 <br /><br /> VB做的界面作为父窗体，AuotCAD的窗体作为子窗体，见附图



这种情况下，如何用API获取AutoCAD的菜单跟工具栏的句柄并且实现AutoCAD菜单和工具栏的隐藏？


问了很多人了


都还没有得到一个明确的答案


请高手帮忙指点


邮箱：<A href="mailto:holly413@163.com" target="_blank" ><FONT color=#000000>holly413@163.com</FONT></A>


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

<A href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=29702" target="_blank" >http://bbs.mjtd.com/forum.php?mod=viewthread&tid=29702</A>


这个地址中有讲到去掉工具栏的一个方法,我试了一下还可以,代码如下:


Dim I As AcadMenuGroup<BR>                       Dim j As AcadToolbar<BR>                       For Each I In acadApp.MenuGroups<BR>                                                       For Each j In I.Toolbars<BR>                                                       j.Delete<BR>                                                       Next j<BR>                       Next I

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

现在对于这个问题已经有了一定的理解和实践,产生一种方案:                                                                                                                                                                                                                                                               1.对于菜单,可以用SetMenu hwnd,0消除;                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                               2.对于各式各样的工具栏,可以用如下代码消除:                                                                                                                                                                                                                                                                                                                                                                                                                                                                              Dim        menugroup As AcadMenuGroup<BR>                       Dim        toolbar As AcadToolbar<BR>                       For Each menugroup In acadApp.MenuGroups<BR>                                                       For Each toolbar       In menugroup.Toolbars<BR>                                                       toolbar.Delete<BR>                                                       Next toolbar        <BR>                       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这个函数




页: [1] 2
查看完整版本: VB下如何编程隐藏AutoCAD的菜单跟工具栏？