textbox示例.sbs

SPSS的实战介绍

Sub Main
	Begin Dialog UserDialog 360,154,"文本框示例" 
		GroupBox 10,7,330,105,"单科成绩"
		OKButton 140,126,80,21
		TextBox 90,28,60,14,.Txt1
		Text 20,28,50,14,"语文",.Text1
		Text 20,56,50,14,"数学",.Text2
		TextBox 90,56,60,14,.Txt2
		Text 20,84,50,14,"英语",.Text3
		TextBox 90,84,60,14,.Txt3
		Text 190,28,50,14,"物理",.Text4
		TextBox 260,28,50,14,.Txt4
		Text 190,56,50,14,"化学",.Text5
		TextBox 260,56,50,14,.Txt5
		Text 190,84,50,14,"生物",.Text6
		TextBox 260,84,50,14,.Txt6
	End Dialog
    Dim dlg As UserDialog
Dialog dlg '显示对话框
Debug.Print "语文：" & dlg.Txt1
Debug.Print "数学：" & dlg.Txt2
Debug.Print "英语：" & dlg.Txt3
Debug.Print "物理：" & dlg.Txt4
Debug.Print "化学：" & dlg.Txt5
Debug.Print "生物：" & dlg.Txt6
End Sub