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.


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