21 使用的Combobox

界面上 一个combobox,一个lbl,会把你选的东西,显示在lbl。
一个btn,添加,把txt里的内容添加到conbo
另一个btn,del,删除你combo的SelectItem

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text <> "" Then
            ComboBox1.Items.Add(TextBox1.Text)
            TextBox1.Text = ""
        End If
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
    
        Label1.Text = "你选择了" & ComboBox1.SelectedItem & "!"
            End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ComboBox1.Items.Remove(ComboBox1.SelectedItem)
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load

        ComboBox1.Items.Insert(3, "Ada")
        ComboBox1.Items.Insert(4, "Java")
    End Sub
End Class

posted on 2006-05-18 16:57  zljini  阅读(144)  评论(0)    收藏  举报