DlgText Instruction/Function

Syntax
DlgText DlgItem, Text
-or-
DlgText[$](DlgItem)
Group
Dialog Function
Description
Instruction: Set the text for DlgItem.

Function: Return the text from DlgItem.

This instruction/function must be called directly or indirectly from a dialogfunc.
Parameters Description
DlgItem If this is a numeric value then it is the dialog item number. The first item is 0, second is 1, etc. If this is a string value then it is the dialog item's field name. Note: Use -1 to access the dialog's title.
Text Set the text of DlgItem to this string value.

Sub Main
    Begin Dialog UserDialog 200,120,.DialogFunc
        Text 10,10,180,15,"Please push the OK button"
        TextBox 10,40,180,15,.Text
        OKButton 30,90,60,20
        PushButton 110,90,60,20,"&Now"
    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 "Now"
            DlgText "Text",CStr(Now)
            DialogFunc = True 'do not exit the dialog
        End Select
    End Select
End Function