DlgCount Function

Syntax              DlgCount()

Group                Dialog Function

Description       Return the number of dialog items in the dialog.

This instruction/function must be called directly or indirectly from a dialogfunc. 

Example            '#Language "WWB-COM"
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
    EndDialog
    Dim dlg As UserDialog
    Dialog dlg
EndSub

Function 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