dlgcount函数示例.sbs

来自「SPSS的实战介绍」· SBS 代码 · 共 29 行

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