dlgenable函数示例.sbs

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

Sub Main
	Begin Dialog UserDialog 200,119,"DlgEnable函数示例",.DialogFunc
		TextBox 10,40,180,15,.Text
		OKButton 30,90,60,20
		PushButton 110,90,60,20,"&Disable"
		Text 10,7,170,14,"使文本框可用或不可用",.Text1
	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 "Disable"
            DlgText DlgItem$,"&Enable"
            DlgEnable "Text",False
            DialogFunc% = True      '如果单击“Disable”按钮，不退出对话框
        Case "Enable"
            DlgText DlgItem$,"&Disable"
            DlgEnable "Text",True
            DialogFunc% = True      '如果单击“Enalbe”按钮，不退出对话框
        End Select
    End Select
End Function