pushbutton示例.sbs

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

Sub Main
	Begin Dialog UserDialog 200,120,"PushButton按钮示例"
		Text 10,10,180,30,"请单击“单击我”按钮："
		OKButton 30,77,50,28
		PushButton 100,77,70,28,"单击我"
	End Dialog
    Dim dlg As UserDialog
    Select Case Dialog(dlg)
    Case 1
      Debug.Print "你单击了“单击我”按钮"
    Case Else
      Debug.Print "你没有单击“单击我”按钮"
    End Select
End Sub