DlgEnd Instruction

Syntax              DlgEnd ReturnCode

Group                Dialog Function

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. 

Example            '#Language "WWB-COM"
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
    EndDialog
    Dim dlg As UserDialog
    Debug.PrintDialog(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
        EndSelect
    End Select
EndFunction