dlgvalue函数示例.sbs

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

Sub Main
	Begin Dialog UserDialog 150,147,"dlgValue函数示例",.DialogFunc
		GroupBox 10,7,130,77,"Direction",.Field1
		PushButton 100,28,30,21,"&up"
		PushButton 100,56,30,21,"&dn"
		OptionGroup .direction
			OptionButton 20,21,80,14,"&北",.North
			OptionButton 20,35,80,14,"&南",.South
			OptionButton 20,49,80,14,"&东",.East
			OptionButton 20,63,80,14,"&西",.West
		OKButton 10,91,130,21
		CancelButton 10,119,130,21
	End Dialog
    Dim dlg As UserDialog
    Dialog dlg
    MsgBox "Direction=" & dlg.direction
End Sub

Function DialogFunc%(DlgItem$, Action%, SuppValue%)
    Select Case Action%
    Case 1 
        Beep
    Case 2 
        Select Case DlgItem$
        Case "up"
            DlgValue "Direction",0
            DialogFunc% = True 
        Case "dn"
            DlgValue "Direction",1
            DialogFunc% = True 
        End Select
    End Select
End Function