dlgcontrolid函数示例.sbs

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

Sub Main
	Begin Dialog UserDialog 200,120,"DlgControlId函数示例",.DialogFunc
		TextBox 10,28,180,14,.Text
		OKButton 30,84,60,21
		PushButton 110,84,60,21,"&Hello"
	End Dialog
    Dim dlg As UserDialog
    Debug.Print Dialog(dlg)
End Sub

Function DialogFunc%(DlgItem$, Action%, SuppValue%)
    Debug.Print "Action=";Action%
    Select Case Action%
    Case 1              ' 对话框初始化
        Beep
    Case 2              ' 改变值或单击按钮
        If DlgItem$ = "Hello" Then
            DialogFunc% = True '如果单击“Hello”按钮，不退出对话框
        End If
    Case 4              ' 改变焦点
        Debug.Print "DlgFocus=""";DlgFocus();""""
        Debug.Print "DlgControlId(";DlgItem$;")=";
        Debug.Print DlgControlId(DlgItem$)
    End Select
End Function