vb.net在运行时附加组合框文本?

时间:2016-05-11 09:29:01

标签: vb.net text combobox runtime

嗨我有一个组合框,里面有一个预设列表。我想要的是,如果预设被更改(tweeked)组合框中的所选项目附加现有文本......

作为示例,如果组合框项目是原始的(从表单加载事件)显示为立方体...并且我编辑预设组合框中的文本现在显示Cube ...(已编辑)...我不想要的虽然是一个名为Cube的新项目...(已编辑)我只想将名为Cube的现有项目附加到多维数据集编辑...

这可能吗?

1 个答案:

答案 0 :(得分:0)

好的,我在c#中创建了这个并使用翻译器将其转换为Visual Basic 它应该从我的问题中理解你的问题。

Public Class Form1

Dim OLDDATA As String

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim myItems = New List(Of String)
    myItems.Add("Hello")
    myItems.Add("World")
    myItems.Add("Cube")

    For Each item As String In myItems
        ComboBox1.Items.Add(item)
    Next

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Try
        ComboBox1.Items.Remove(OLDDATA)
        ComboBox1.Items.Add(ComboBox1.Text)
        ComboBox1.Update()
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

Private Sub ComboBox1_Click(sender As Object, e As EventArgs) Handles ComboBox1.Click
    OLDDATA = ComboBox1.Text
End Sub
End Class

如果您遇到任何问题,请告诉我,我会尽快回复您。
快乐编码!