Sub DisplayScrollBars_Example()
' This example toggles the DisplayScrollBars property
Dim myPrefs As AcadPreferences
Set myPrefs = ThisDrawing.Application.preferences
Dim scrollBarStatus As Boolean
scrollBarStatus = myPrefs.Display.DisplayScrollBars
MsgBox "The DisplayScrollBars property is: " & scrollBarStatus
'Toggle the visibility of the scroll bars.
myPrefs.Display.DisplayScrollBars = Not (scrollBarStatus)
MsgBox "The DisplayScrollBars property is now: " & myPrefs.Display.DisplayScrollBars
End Sub
| Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved. |