Programming Reference Manual

MultiListBox

 
Syntax
 
MultiListBox X, Y, DX, DY, StrArray$( ), .Field[, Options]
Description
Define a multiple selection listbox item.
 
Parameter
Description
X
This number value is the distance from the left edge of the dialog box. 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 box. 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 value of the list box is accessed via 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.
See Also
Begin Dialog, Dim As UserDialog, ListBox.
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(2)
    Dialog dlg ' show dialog (wait for ok)
    For i = LBound(dlg.list) To UBound(dlg.list)
        Debug.Print dlg.list(i);
    Next i
    Debug.Print
End Sub