ListBox Dialog Item Definition

Syntax                  ListBox X, Y, DX, DY, StrArray( ), .Field[, Options]

Group                   User Dialog

Description           Define a 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, MultiListBox.

Example               '#Language "WWB.NET"
SubMain
    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"
        ListBox 10,25,180,60,lists(),.list
        OKButton 80,90,40,20
    EndDialog
    Dim dlg As UserDialog
    dlg.list = 2
    Dialog dlg ' show dialog (wait for ok)
    Debug.Print dlg.list
EndSub