checkbox示例.sbs

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

Sub Main
	Begin Dialog UserDialog 270,119
		Text 20,7,200,14,"请选择一种统计分析方法："
		OKButton 80,91,100,21
		CheckBox 20,35,90,14,"回归分析",.CheckBox1
		CheckBox 20,63,90,14,"相关分析",.CheckBox2
		CheckBox 140,35,110,14,"聚类分析",.CheckBox3
		CheckBox 140,63,100,14,"因子分析",.CheckBox4
	End Dialog
    Dim dlg As UserDialog
    dlg.CheckBox1 = 1
    dlg.CheckBox2=1
    dlg.CheckBox3=1
    dlg.CheckBox4=1
    Dialog dlg    ' 显示对话框,等待OK键响应
    If dlg.CheckBox1=1 Then
      Debug.Print "选择了回归分析方法"
    End If
    If dlg.CheckBox2=1 Then
      Debug.Print "选择了相关分析方法"
    End If
    If dlg.CheckBox3=1 Then
      Debug.Print "选择了聚类分析方法"
    End If
    If dlg.CheckBox4=1 Then
      Debug.Print "选择了因子分析方法"
    End If
End Sub