DlgCount Function
Syntax
DlgCount()
Group
Description
Return the number of dialog items in the dialog. This instruction/function must be called directly or indirectly from a dialogfunc.
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 SubFunction DialogFunc(DlgItem$, Action%, SuppValue?) As Boolean Debug.Print "Action="; Action% Select Case Action% Case 1 ' Dialog box initialization Beep Debug.Print "DlgCount="; DlgCount() ' 3 End Select End Function