dlgcount函数示例.sbs

SPSS的实战介绍

Sub Main
	Begin Dialog UserDialog 200,119,"dlgCount函数示例",.DialogFunc
		TextBox 90,91,90,14,.Text
		OKButton 20,84,60,21
		GroupBox 10,7,130,63,"GroupBox1",.GroupBox1
		Picture 160,21,30,42,"Picture1",0,.Picture1
		TextBox 70,28,50,21,.TextBox1
		Text 20,28,30,28,"Text1",.Text1
	End Dialog
    Dim dlg As UserDialog
    Dialog dlg
End Sub

Function DialogFunc%(DlgItem$, Action%, SuppValue%)
    Debug.Print "Action=";Action%
    Select Case Action%
    Case 1     ' 对话框初始化
        Beep
        Debug.Print "对话框中的控件个数为：";DlgCount() 
    End Select
End Function