ComboBox Dialog Item Definition
Syntax
ComboBox X, Y, DX, DY, StrArray$( ), .Field$[, Options]
Group
Description
Define a combobox item. Combo boxes combine the functionality of an edit box and a list box.
| Parameter | Description |
|---|---|
| X | This number value is the distance from the left edge of the dialog box. It is measured in 1/8ths 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/12ths of the character height for the dialog's font. |
| DX | This number value is the width. It is measured in 1/8ths of the average character width for the dialog's font. |
| DY | This number value is the height. It is measured in 1/12ths 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 combo box is accessed via this field. This is the text in the edit box. |
| Options | This numeric value controls the type of combo box. Choose one value from following table. (If this numeric value omitted then zero is used.) |
| Option | Description |
|---|---|
| 0 | List is not sorted. |
| 2 | List is sorted. |
See Also: Begin Dialog, Dim As UserDialog.
Example
Sub Main
Dim combos$(3)
combos$(0) = "Combo 0"
combos$(1) = "Combo 1"
combos$(2) = "Combo 2"
combos$(3) = "Combo 3"
Begin Dialog UserDialog
200,120
Text 10,10,180,15,"Please push the OK button"
ComboBox 10,25,180,60,combos$(),.combo$
OKButton 80,90,40,20
End Dialog
Dim dlg As UserDialog
dlg.combo$ = "none"
Dialog dlg ' show dialog (wait for ok)
Debug.Print dlg.combo$
End Sub