caug 发表于 2007-3-2 11:37:00

[求助]如何动态隐藏工具栏

<p>我在Visual Studio 2005下进行ObjectARX 2007的开发，创建了一个工具栏。<br/>我想在AutoCAD载入该工具栏后，通过代码动态改变该工具栏的状态<br/>比如隐藏该工具栏，我将该工具栏的属性Visible改为隐藏，但无法实现隐藏工具栏。<br/>请问如何解决这一问题，是界面得到更新？</p>

caug 发表于 2007-3-5 09:14:00

<p>都几天怎么没有高手指点啊</p>

houlinbo 发表于 2007-5-14 12:59:00

acadtoolbar = nothing

wangfen_feng 发表于 2008-7-31 14:08:00

关注！！！

xwjljh 发表于 2009-1-11 10:47:00

<p>同求！！</p><p>望高手出面，不胜感激</p>

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

VB开发CAD

<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; i = 0<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<br/></font>
页: [1]
查看完整版本: [求助]如何动态隐藏工具栏