Verifies that a toolbar in a currently open toolbar collection is visible.
Rhino.IsToolbarVisible (strName, strToolbar)
|
strName |
Required. String. The name of a currently open toolbar collection. |
|
strToolbar |
Required. String. The name of a toolbar in the collection to verify. |
|
Boolean |
True or false indicating success or failure. |
|
Null |
On error. |
Dim strFile, strName
strFile = "C:\Program Files\Rhinoceros\System\Default.tb"
strName = Rhino.IsToolbarCollection(strFile)
If Not IsNull(strName) Then
If Rhino.IsToolbarVisible(strName, "Layer") Then
Rhino.Print "The Layer toolbar is visible."
Else
Rhino.Print "The Layer toolbar is not visible."
End If
End If