Programming Reference Manual

DlgFocus

 
Syntax
 
DlgFocus DlgItem|$
-or-
DlgFocus[$]()
 
Description
Instruction: Move the focus to this DlgItem|$.
 
Function: Return the field name which has the focus as a string.
 
This instruction/function must be called directly or indirectly from a dialogfunc. 
 
Parameter
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. 
See Also
 
Example
 
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,"&Hello"
    End Dialog
    Dim dlg As UserDialog
    Debug.Print Dialog(dlg)
End Sub
 
Function DialogFunc%(DlgItem$, Action%, SuppValue%)
    Debug.Print "Action=";Action%
    Select Case Action%
    Case 1 ' Dialog box initialization
        Beep
    Case 2 ' Value changing or button pressed
        If DlgItem$ = "Hello" Then
            MsgBox "Hello"
            DialogFunc% = True 'do not exit the dialog
        End If
    Case 4 ' Focus changed
        Debug.Print "DlgFocus=""";DlgFocus();""""
    End Select
End Function