Syntax
| MultiListBox X, Y, DX, DY, StrArray$( ), .Field[, Options]
| ||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Description
| Define a multiple selection listbox item.
| ||||||||||||||||||||||||||
See Also
| |||||||||||||||||||||||||||
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
|