Syntax 

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


Group 

User Dialog 


Description 

Define a listbox item. 


Parameters

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

List is not sorted. 

List is not sorted and horizontally scrollable. 

List is sorted. 

List is sorted and horizontally scrollable. 


See Also 

Begin Dialog, MultiListBox


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"

        ListBox 10,25,180,60,lists$(),.list

        OKButton 80,90,40,20

    End Dialog

    Dim dlg As UserDialog

    dlg.list = 2

    Dialog dlg ' show dialog (wait for ok)

    Debug.Print dlg.list

End Sub