Syntax:
check box X, Y, DX, DY, Title$, .Field[, Options]
Group: User Dialog
Description:
Define a check box 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.
Field The value of the check box is accessed via this field. Unchecked is 0, checked is 1 and grayed is 2.
Options This numeric value controls the type of check box. Choose one value from following table. (If this numeric value omitted then zero is used.)
Option |
Description |
0 |
Check box is either check or unchecked. |
1 |
Check box is either check, unchecked or grayed, and it switches between checked and unchecked when clicked. |
2 |
Check box is either check, unchecked or grayed, and it cycles through all three states as the button is clicked |
See Also: Begin Dialog, Dim As UserDialog.
Example:
Sub Main
Begin Dialog
UserDialog
200,120
Text 10,10,180,15,"Please
push the OK button"
check box 10,25,180,15,"&Check box",.Check
OKButton
80,90,40,20
End Dialog
Dim
dlg As UserDialog
dlg.Check = 1
Dialog
dlg ' show dialog (wait for ok)
Debug.Print
dlg.Check
End Sub