dlgvisible函数示例.sbs

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

Sub Main
	Begin Dialog UserDialog 200,120,"dlgVisible函数示例",.DialogFunc
		Text 10,10,180,15,"显示或隐藏文本框："
		TextBox 10,40,180,15,.Text
		OKButton 30,90,60,20
		PushButton 110,90,60,20,"&Hide"
	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 ' 值改变或单击按钮
    Select Case DlgItem$
        Case "Hide"
            DlgText DlgItem$,"&Show"
            DlgVisible "Text",False
            DialogFunc% = True '如果单击“显示”按钮，则不退出对话框
        Case "Show"
            DlgText DlgItem$,"&Hide"
            DlgVisible "Text",True
            DialogFunc% = True '如果单击“隐藏”按钮，则不退出对话框
        End Select
    End Select
End Function