使用控制項ListBox 加入 ListItem

一般來說我們使用控制項Listbox 需要加入值時，就直接打 Listbbox.items.add("whohow") 但這樣加入時，該筆item的text就是"whohow"，value也是"whohow" 如果我們需要將text跟value指定不同的值時，就需要用到ListItem這個控制項了 注意的是~每次加入ListItem到ListBox時，再加入下一筆，就需要再 "new" 一個ListItem 以下是程式碼

Dim dr As SqlDataReader '宣告一個SqlDataReader
        '要用以下的連線字串方法的話要 Imports System 跟 Imports System.Web.Configuration
        Using Conn As SqlConnection = New SqlConnection(WebConfigurationManager.ConnectionStrings("fantasy").ConnectionString.ToString)
            Dim cmd As SqlCommand = New SqlCommand("SELECT [C_Name], [Office_Email] FROM [D001]", Conn)
            Conn.Open()
            dr = cmd.ExecuteReader()
            While dr.Read()
                If (Trim(dr.Item("Office_Email"))) <> "" Then
                    Dim myitem As New ListItem
                    myitem.Text = Trim(dr.Item("c_name"))
                    myitem.Value = Trim(dr.Item("Office_Email"))
                    ListBox1.Items.Add(myitem)
                End If
            End While
        End Using