Returns the number of toolbars found in a currently open toolbar collection file.
Rhino.ToolbarCount (strName)
|
strName |
Required. String. The name of a currently open toolbar collection. |
|
Number |
The number of toolbars in the toolbar collection if successful. |
|
Null |
If not successful, or on error. |
Dim arrNames, intCount
arrNames = Rhino.ToolbarCollectionNames
If IsArray(arrNames) Then
intCount = Rhino.ToolbarCount(arrNames(0))
Rhino.Print "The " & arrNames(0) & " collection contains " & CStr(intCount) & " toolbars."
End If