DlgNumber Function

Syntax
DlgNumber(DlgItem$)
Group
Dialog Function
Description
Return the number of the DlgItem$. The first item is 0, second is 1, etc.

This instruction/function must be called directly or indirectly from a dialogfunc.
Parameters Description
DlgItem$ This string value is the dialog item's field name.

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
    End Dialog
    Dim dlg As UserDialog
    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 4 ' Focus changed
        Debug.Print DlgItem$; "="; DlgNumber(DlgItem$)
    End Select
End Function