DlgNumber Function
SyntaxGroupDlgNumber(DlgItem$)
Dialog FunctionDescription
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