combobox示例.sbs

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

Sub Main
    Dim combos$(3)
    combos$(0) = "砂土"
    combos$(1) = "粉土"
    combos$(2) = "粘土"
    combos$(3) = "淤泥"
	Begin Dialog UserDialog 260,119,"下拉式列表框-示例"
		Text 10,7,230,14,"请在下拉式列表框中选择一项："
		ComboBox 10,28,240,63,combos(),.combo
		OKButton 90,98,80,14
	End Dialog
    Dim dlg As UserDialog
    dlg.combo$ = "粘土"
    Dialog dlg   '显示对话框，等待OK键响应
    Debug.Print dlg.combo$
End Sub