9.0

151
OKButton 30,90,60,20
End
Dialog
Dim
dlg As UserDialog
Dialog
dlg
End
Sub
C:\ABCTemp\vbs\Function_Definition.htm
Function
DialogFunc%(DlgItem$, Action%, SuppValue%)
Debug
.Print "Action=";Action%
Select
Case Action%
Case 1 ' Dialog
box initialization
Beep
For
I = 0 To DlgCount()-1
Debug
.Print I;DlgName(I)
Next I
End Select
End
Function
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
.
Parameter Description
DlgItem$ This string value is the dialog item's field name.
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
End
Dialog
Dim
dlg As UserDialog
Dialog
dlg
End
Sub
C:\ABCTemp\vbs\Function_Definition.htm
Function
DialogFunc%(DlgItem$, Action%, SuppValue%)
Debug
.Print "Action=";Action%
Select
Case Action%
Case 1 ' Dialog
box initialization
Beep
Case 4 ' Focus changed
Debug
.Print DlgItem$;"=";DlgNumber(DlgItem$)