freejustin 发表于 2006-7-14 16:41:00

[ARX]如何用程序暂时隐藏ＡＣＡＤ的菜单和工具条？

如何用程序暂时隐藏ＡＣＡＤ的菜单和工具条？<BR>比如文件－－》帮助；标准－对象捕获等

黄昏先生 发表于 2006-7-15 05:52:00

<P>ctrl+0</P>

pmq 发表于 2010-5-31 14:42:00

VB开发CAD

<p><font face="Verdana"><font face="Verdana">Public Declare Function SetMenu Lib "user32" (ByVal hwnd As Long, ByVal hMenu As Long) As Long</font></font></p>
<p><font face="Verdana"><font face="Verdana"><br/>&nbsp;</p></font></font>
<p><font face="Verdana">Private Sub HIdeMenus_Click() ''隐藏/显示CAD菜单<br/>&nbsp;&nbsp;&nbsp; On Error Resume Next<br/>&nbsp;&nbsp;&nbsp; If hMenu &lt;&gt; 0 Then Exit Sub<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; If HIdeMenus.Checked = False Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; cMenu = GetMenu(lHwnd)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SetMenu lHwnd, 0<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; HIdeMenus.Checked = True<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; SetMenu lHwnd, cMenu<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; HIdeMenus.Checked = False<br/>&nbsp;&nbsp;&nbsp; End If<br/>End Sub</font></p>
<p><font face="Verdana"><br/><font face="Verdana">Private Sub HideTool_Click()&nbsp; '隐藏/显示CAD工具栏<br/>&nbsp;&nbsp;&nbsp; On Error Resume Next<br/>&nbsp;&nbsp;&nbsp; Dim Menugroup As Object<br/>&nbsp;&nbsp;&nbsp; Dim Toolbar As Object<br/>&nbsp;&nbsp;&nbsp; Dim i As Integer<br/>&nbsp;&nbsp;&nbsp; Static CadTools() As Boolean<br/>&nbsp;&nbsp;&nbsp; If Hidetool.Checked = False Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each Menugroup In AcadApp.MenuGroups<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ReDim CadTools(1 To Menugroup.Toolbars.Count)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each Toolbar In Menugroup.Toolbars<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; i = i + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; CadTools(i) = Toolbar.Visible '添加工具栏状态<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Toolbar.Visible = False<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next Toolbar<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next Menugroup<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Hidetool.Checked = True<br/>&nbsp;&nbsp;&nbsp; Else<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each Menugroup In AcadApp.MenuGroups<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For Each Toolbar In Menugroup.Toolbars<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; i = i + 1<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Toolbar.Visible = CadTools(i)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next Toolbar<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next Menugroup<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Hidetool.Checked = False<br/>&nbsp;&nbsp;&nbsp; End If<br/>End Sub</font></p></font>

luowy 发表于 2010-6-1 13:58:00

用COM！不过觉得实用性不大
页: [1]
查看完整版本: [ARX]如何用程序暂时隐藏ＡＣＡＤ的菜单和工具条？