Begin Dialog Statement
Syntax
Begin Dialog name [X, Y,] DX, DY[, Title$[, Font$]] _
[, .dialogfunc]
User Dialog Item
[User Dialog Item]...
End Dialog
Group
Description
Define a user dialog type to be used later in a Dim As name statement.
Parameters |
Description |
This numeric value is the distance from the left edge of the screen to the left edge of the dialog box. It is measured in 1/8 ths of the average character width for the dialog's font. If this is omitted then the dialog will be centered. |
|
This numeric value is the distance from the top edge of the screen to the top edge of the dialog box. It is measured in 1/12 ths of the average character width for the dialog's font. If this is omitted then the dialog will be centered. |
|
This number value is the width. It is measured in 1/8 ths of the average character width for the dialog's font. |
|
This number value is the height. It is measured in 1/12 ths of the character height for the dialog's font. |
|
This string value is the title of the user dialog. If this is omitted then there is no title. |
|
This string value is the font of the user dialog. Use "n" or "n:name" where "n" is the point size of the font and "name" is the font name. (If the font name is omitted then the standard user dialog font name is used.) If this is omitted then standard user dialog font is used. |
|
This is the function name that implements the DialogFunc for this user dialog. If this is omitted then the UserDialog doesn't have a dialogfunc. |
|
User Dialog Item |
One of: CancelButton, CheckBox, ComboBox, DropListBox, GroupBox, ListBox, MultiListBox, OKButton, OptionButton, OptionGroup, Picture, PushButton, Text, TextBox. |
Example
Sub Main
Begin Dialog UserDialog 200,120
Text 10,10,180,15,"Please push the OK button"
OKButton 80,90,40,20
End Dialog
Dim dlg As UserDialog
Dialog dlg ' show dialog (wait for ok)
End Sub