列表框、组合框（相关vb.net教程)
一、列表框Listbox:
作用：在一个框中可以添加一些项，然后选某项并执行一定的操作。
例：在列表框中列出电脑上安装的常用软件单击可运行它。
WORD字处理系统| 计算器| 红豆红|退出
常用属性：
Items:显示的列表项
Selectindex:列表框中选择项的序号，从0开始
Selectitem:列表框中选择项的内容。
Text:选择项的内容，同上
常用处理方法：
Items.add:向列表框中添加项
Items.insert:从当前位置前插入项，位置在第一个参数中指明。
Items.clear:清空列框中各项
Items.remove:从列表框中删除指定内容的当前项
Items.removeat:从列表框中删除指定序号的当前项
常用事件：
Click—单击列表框中的某一项
Dbclick—双击
Getfocus—选择指定项
Lostfocus—从指定选择项中移出
说明：在vb.net中调用其它软件的方法：Shell函数
例5列表框属性方法应用实例．
见，列表框中常用软件的运行
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim y As String
        y = InputBox("输入要添加的项", "输入", "第一个")
        ListBox2.Items.Add(y)
    End Sub
 
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox2.Items.Insert(1, "我是新来的")
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ListBox2.Items.Clear()
    End Sub
 
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        ListBox2.Items.Remove(ListBox2.Text)
    End Sub
 
    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        ListBox2.Items.Remove(ListBox2.SelectedItem)
    End Sub
 
    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        ListBox2.Items.RemoveAt(ListBox2.SelectedIndex)
    End Sub
例６：在列表框中列出电脑上安装的常用软件单击可运行它。见，列表框与常用软件。[实验报告25]
程序为:
Dim x As String
    Private Sub ListBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.Click
        Select Case ListBox1.SelectedIndex
            Case 0
                x = Shell("C:\WINDOWS\system32\calc.exe", 1)
            Case 1
                x = Shell("C:\Program Files\TTPlayer\TTPlayer.exe", 1)
            Case 2
                x = Shell("C:\Program Files\Microsoft Office\OFFICE11\excel.exe", 1)
            Case 3
                End
        End Select
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ListBox1.Items.Add("计算器")
        ListBox1.Items.Add("千千静听")
        ListBox1.Items.Add("EXCEL电子表格")
        ListBox1.Items.Add("退出软件")
    End Sub
练习：在列表框中列出几个图片名，单击之可以加载对应图片．见，图片列表与显示
Combobox:
应用与列表项似，常用属性：
Dropdownstyle:有三个取值
Simple:单组合框，是一个文本框与一个列表框的组合，可以输入内容。
Dropdown:下拉式组合框，文本框与下拉列表框的组合，可以输入内容，
Dropdownlist:下拉列表框，不许输入内容
Text:列表框中输入的内容
应用见，列表框应用，程序为：
Public Class Form1
    Private Sub ComboBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ComboBox1.Click
        ComboBox1.Items.Add(ComboBox1.Text)
    End Sub

End Class