droplistbox示例.sbs

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

Sub Main
    Dim lists$(3)
    lists$(0) = "教授"
    lists$(1) = "副教授"
    lists$(2) = "讲师"
    lists$(3) = "助教"
	Begin Dialog UserDialog 240,119,"下拉式列表框示例"
		Text 10,7,230,14,"请在下拉式列表框中选择一项："
		DropListBox 10,28,220,63,lists(),.list
		OKButton 70,98,90,14
	End Dialog
    Dim dlg As UserDialog
    dlg.list = 0
    Dialog dlg '显示对话框
    Select Case dlg.list
    Case 0 
      Debug.Print "教授"
    Case 1
      Debug.Print "副教授"
    Case 2
      Debug.Print "讲师"
    Case 3
      Debug.Print "助教"
    End Select
End Sub