dialogfunc示例.sbs

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

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
        PushButton 110,90,60,20,"&Hello"
    End Dialog
    Dim dlg As UserDialog
    Debug.Print Dialog(dlg)
End Sub

Function DialogFunc%(DlgItem$, Action%, SuppValue%)
    Debug.Print "Action=";Action%
    'Debug.Print DlgItem$;"=""";DlgText$(DlgItem$);""""
    Debug.Print "SuppValue=";SuppValue%
    Select Case Action%
    Case 1 ' 对话框初始化
        Beep
    Case 2 ' 控件的值改变或控件被单击
        If DlgItem$ = "Hello" Then
            MsgBox "Hello"
            DialogFunc% = True '如果单击了“Hello”按钮，则不关闭对话框
        End If
    'Case 3
    '    Debug.Print "文本框的内容改为：" & dlg.Text
    Case 4 ' 焦点已经改变
    Debug.Print "DlgFocus=""";DlgFocus();""""
    End Select
End Function