OptionButton Dialog Item Definition

Syntax:

OptionButton X, Y, DX, DY, Title$[, .Field]

Group: User Dialog

Description:
Define an option button 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.

Title$ The value of this string is the title of the option button.

See Also: Begin Dialog, Dim As UserDialog, OptionGroup.

Example:

Sub Main
  Begin Dialog UserDialog 200,120
  Text 10,10,180,15,"Please push the OK button"
  OptionGroup .options
  OptionButton 10,30,180,15,"Option &0"
  OptionButton 10,45,180,15,"Option &1"
  OptionButton 10,60,180,15,"Option &2"
  OKButton 80,90,40,20
  End Dialog

Dim dlg As UserDialog
dlg.options = 2

Dialog dlg ' show dialog (wait for ok)

Debug.Print dlg.options

End Sub