DlgEnd Instruction
Syntax
DlgEnd ReturnCode
Group
Description
Set the return code for the Dialog Function and close the user dialog.
This instruction/function must be called directly or indirectly from a dialogfunc.
Parameters
Parameters | Description |
---|---|
ReturnCode | Return this numeric value. |
Example
Sub Main Begin Dialog UserDialog 210,120,.DialogFunc Text 10,10,190,15,"Please push the Close button" OKButton 30,90,60,20 CheckBox 120,90,60,20,"&Close",.CheckBox1 End Dialog Dim dlg As UserDialog Debug.Print Dialog(dlg) End Sub Function DialogFunc(DlgItem$, Action%, SuppValue?) As Boolean Debug.Print "Action="; Action% Select Case Action% Case 1 ' Dialog box initialization Beep Case 2 ' Value changing or button pressed Select Case DlgItem$ Case "CheckBox1" DlgEnd 1000 End Select End Select End Function