vb.net在運行時追加組合框文本？

Question

嗨，我有一個組合框與預設列表填充它。我想要的是，如果預設更改（tweeked），則選定的組合框中的項目會附加現有文本...

作爲示例，如果組合框項目是原始（從表單加載事件）顯示爲立方體。 ..我編輯的預設，在組合框中的文本現在顯示立方體...（編輯）...我不想要的，雖然是一個新項目添加稱爲立方體...（編輯）我只是想追加現有項目名稱立方體...到立方體編輯...

這是可能的嗎？

Answer 1

好吧，我在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 

如果您有任何問題，請告訴我，我會盡力回覆您。
快樂編碼！