DlgText Instruction/Function
SyntaxGroupDlgText DlgItem, Text -or- DlgText[$](DlgItem)
Dialog FunctionDescription
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