MultiListBox Dialog Item Definition
Syntax
MultiListBox X, Y, DX, DY, StrArray$( ), .Field[, Options]
Group
Description
Define a multiple selection listbox item.
Parameters
Parameters | Description |
---|---|
X | This number value is the distance from the left edge of the dialog. It is measured in 1/8 ths of the average character width for the dialog's font. |
Y | This number value is the distance from the top edge of the dialog. It is measured in 1/12 ths of the character height for the dialog's font. |
DX | This number value is the width. It is measured in 1/8 ths of the average character width for the dialog's font. |
DY | This number value is the height. It is measured in 1/12 ths of the character height for the dialog's font. |
StrArray$( ) | This one-dimensional array of strings establishes the list of choices. All the non-null elements of the array are used. |
Field | The values of the list box are accessed by way of this field. It is the index of the StrArray$( ) var. |
Options | This numeric value controls the type of list box. Choose one value from following table. (If this numeric value omitted then zero is used.) |
Option | Description |
---|---|
0 | List is not sorted. |
1 | List is not sorted and horizontally scrollable. |
2 | List is sorted. |
3 | List is sorted and horizontally scrollable. |
Example
Sub Main Dim lists$(3) lists$(0) = "List 0" lists$(1) = "List 1" lists$(2) = "List 2" lists$(3) = "List 3" Begin Dialog UserDialog 200,120 Text 10,10,180,15,"Please push the OK button" MultiListBox 10,25,180,60,lists$(),.list OKButton 80,90,40,20 End Dialog Dim dlg As UserDialog dlg.list = Array(0,2) Dialog dlg ' show dialog (wait for ok) Dim i As Integer For i = LBound(dlg.list) To UBound(dlg.list) Debug.Print dlg.list(i); Next i Debug.Print End Sub
See also