Property VisibilityViewTools As System.Boolean

Dim instance As IModelView
Dim value As System.Boolean
 
instance.VisibilityViewTools = value
 
value = instance.VisibilityViewTools

System.bool VisibilityViewTools {get; set;}

property System.bool VisibilityViewTools {
   System.bool get();
   void set ( &   System.bool value);
}

Property Value

'-----------------------------------------

'

' Preconditions: Drawing document is open and

'                Heads-up View toolbar is visible.

'

' Postcondition: Heads-up View toolbar is hidden.

'

'------------------------------------------

Option Explicit

Dim swApp As SldWorks.SldWorks

Dim swModel As SldWorks.ModelDoc2

Dim swModelView As SldWorks.ModelView

Dim vRect as Variant

Sub main()

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc

Set swModelView = swModel.ActiveView

' Assume Heads-up View toolbar is visible (True)

Debug.Print "Heads-up View toolbar visible: " & swModelView.VisibilityViewTools

' Hide Heads-up View toolbar (False)

swModelView.VisibilityViewTools = False

Debug.Print "Hands-up View toolbar visible: " & swModelView.VisibilityViewTools

swModelView.GraphicsRedraw(vRect)

End Sub

After setting this property to false, call IModelView::GraphicsRedraw or IModelView::IGraphicsRedraw to repaint the entire graphics window.