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

caug

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

caug

都几天怎么没有高手指点啊

houlinbo

acadtoolbar = nothing

wangfen_feng

关注！！！

xwjljh

同求！！

望高手出面，不胜感激

pmq

Private Sub HideTool_Click()  '隐藏/显示CAD工具栏
    On Error Resume Next
    Dim Menugroup As Object
    Dim Toolbar As Object
    Dim i As Integer
    Static CadTools() As Boolean
    i = 0
    If Hidetool.Checked = False Then
        For Each Menugroup In AcadApp.MenuGroups
            ReDim CadTools(1 To Menugroup.Toolbars.Count)
            For Each Toolbar In Menugroup.Toolbars
                i = i + 1
                CadTools(i) = Toolbar.Visible '添加工具栏状态
                Toolbar.Visible = False
            Next Toolbar
        Next Menugroup
        Hidetool.Checked = True
    Else
        For Each Menugroup In AcadApp.MenuGroups
            For Each Toolbar In Menugroup.Toolbars
                i = i + 1
                Toolbar.Visible = CadTools(i)
            Next Toolbar
        Next Menugroup
        Hidetool.Checked = False
    End If
End Sub