DlgListBoxArray Instruction/Function

Syntax DlgListBoxArray DlgItem, StrArray$( )
-or-
DlgListBoxArray(DlgItem[, StrArray$( )])

Group Dialog Function

Description Instruction: Set the list entries for DlgItem.

Function: Return the number entries in DlgItem's list.

This instruction/function must be called directly or indirectly from a dialogfunc. The DlgItem should refer to a ComboBox, DropListBox, ListBox or MultiListBox.

Parameter Description

DlgItem If this is a numeric value then it is the dialog item number. The first item is 0, second is 1, etc. If this is a string value then it is the dialog item's field name.

StrArray$( ) Set the list entries of DlgItem. This one-dimensional array of strings establishes the list of choices. All the non-null elements of the array are used.

Example            '#Language "WWB-COM"
Dim lists$()

SubMain
    ReDim lists$(0)
    lists$(0) = "List 0"
    Begin Dialog UserDialog 200,119,.DialogFunc
        Text 10,7,180,14,"Please push the OK button"
        ListBox 10,21,180,63,lists(),.list
        OKButton 30,91,40,21
        PushButton 110,91,60,21,"&Change"
    EndDialog
    Dim dlg As UserDialog
    dlg.list = 2
    Dialog dlg ' show dialog (wait for ok)
    Debug.Print dlg.list
EndSub

Function DialogFunc(DlgItem$, Action%, SuppValue?) As Boolean
    Select Case Action%
    Case 2 ' Value changing or button pressed
        If DlgItem$ = "Change" Then
            Dim N As Integer
            N = UBound(lists$)+1
            ReDim Preserve lists$(N)
            lists$(N) = "List " & N
            DlgListBoxArray "list",lists$()
            DialogFunc = True 'do not exit the dialog
        EndIf
    End Select
EndFunction