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

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

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

雪山飞狐_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


这个地址中有讲到去掉工具栏的一个方法,我试了一下还可以,代码如下:
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这个函数
页: [1]
查看完整版本: VB下如何编程隐藏AutoCAD的菜单跟工具栏？