listbox示例.sbs

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

Sub Main
    Dim lists$(3)
    lists$(0) = "王  军"
    lists$(1) = "李  明"
    lists$(2) = "孙成雨"
	Begin Dialog UserDialog 300,161,"列表框示例"
		ListBox 10,14,280,98,lists(),.list
		OKButton 110,126,90,21
	End Dialog
    Dim dlg As UserDialog
    dlg.list = 1
    Dialog dlg '显示对话框
    Select Case dlg.list
    Case 0
      Debug.Print "王  军"
    Case 1
      Debug.Print "李  明"
    Case 2
      Debug.Print "孙成雨"
    End Select
End Sub