[VBA程序]：如何使非停靠的工具条不可见

XDSoft

Invoking AutoCAD with undocked toolbars in invisible mode  
ID    50798  
Applies to:    AutoCAD 2000
  
This document is part of    AcDb (AutoCAD Database)   COM-ActiveX Interfaces   Visual Basic     


Question
How can I invoke AutoCAD in invisible mode when there are undocked toolbars?
Answer
This is a known problem. A workaround is to dock or hide the undocked toolbars
as soon as AutoCAD is invoked as shown in the following sample code:

2. 
   
3. [FONT=courier new]
   
4. Dim a_app As AcadApplication
   
5. Dim mngrp As AcadMenuGroup
   
6. Dim tbar As AcadToolbar
   
7. 
   
8. Set a_app = CreateObject("Autocad.Application.15")
   
9. For Each mngrp In a_app.MenuGroups
   
10.    For Each tbar In mngrp.Toolbars
    
11.         If tbar.DockStatus = acToolbarFloating And tbar.Visible = True Then
    
12.             tbar.Visible = False 'hide the toolbar
    
13.         End If
    
14.    Next tbar
    
15. Next mngrp
    
16. a_app.Visible = False
    
17. [/FONT]

<br /> [FONT=courier new]<br /> Dim a_app As AcadApplication<br /> Dim mngrp As AcadMenuGroup<br /> Dim tbar As AcadToolbar<br /> <br /> Set a_app = CreateObject("Autocad.Application.15")<br /> For Each mngrp In a_app.MenuGroups<br />    For Each tbar In mngrp.Toolbars<br />         If tbar.DockStatus = acToolbarFloating And tbar.Visible = True Then<br />             tbar.Visible = False 'hide the toolbar<br />         End If<br />    Next tbar<br /> Next mngrp<br /> a_app.Visible = False<br /> [/FONT]