Displays a list of items in a multiple-selection list box dialog.
Rhino.MultiListBox (arrItems [, strMessage [, strTitle]])
arrItems |
Required.Array.A zero-based, one-dimensional array of string items. |
strMessage |
可选参数。字符串。A prompt or message. |
strTitle |
可选参数。字符串。A dialog box title. |
Array |
A zero-based, one-dimensional array containing the selected item if successful. |
Null |
如果执行不成功或出错，返回空值。 |
Dim arrLayers, arrResults, i
arrLayers = Rhino.LayerNames
If IsArray(arrLayers) Then
arrResults = Rhino.MultiListBox(arrLayers, "Layers to lock")
If IsArray(arrResults) Then
For i = 0 To UBound(arrResults)
Rhino.LayerMode arrResults(i), 2
Next
End If
End If