optionbutton示例.sbs

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

Sub Main
	Begin Dialog UserDialog 290,161,"单选钮-示例"
		OKButton 100,126,90,21
		GroupBox 20,21,60,84,"性别",.GroupBox1
		GroupBox 100,21,150,84,"成绩",.GroupBox2
		OptionGroup .Group1
			OptionButton 30,42,40,14,"男",.OptionButton1
			OptionButton 30,70,40,14,"女",.OptionButton2
	   OptionGroup .Group2
			OptionButton 120,49,60,14,"优",.OptionButton3
			OptionButton 120,70,60,21,"良",.OptionButton4
			OptionButton 190,49,50,14,"中",.OptionButton5
			OptionButton 190,77,50,14,"差",.OptionButton6
	End Dialog
    Dim dlg As UserDialog
    dlg.Group1 = 0
    dlg.Group2 = 2
    Dialog dlg 
    Select Case dlg.Group1
    Case 0
      Debug.Print "性别：男"
    Case 1
      Debug.Print "性别：女"
    End Select
    Select Case dlg.Group2
    Case 0
      Debug.Print "成绩：优"
    Case 1
      Debug.Print "成绩：良"
    Case 2
      Debug.Print "成绩：中"
    Case 3
      Debug.Print "成绩：差"
    End Select
End Sub