問題與複選框和文本框

Question

我有一個小問題，我的代碼顯示不正確。現在，如果文本框中有文本，並且我從複選框列表中選擇了某些內容，則我從複選框列表中選擇的內容會覆蓋文本框中的內容。我想保留文本框中的內容，只需添加所選內容即可。

例如：本田在文本框中......我選擇道奇和馬自達我想表明 本田，道奇，馬自達

Dim i As Integer = 0 
    Dim strText As String = "" 

    For i = 0 To cbCars.Items.Count - 1 
     If cbCars.Items(i).Selected Then 
      If strText = "" Or strTeethText = Nothing Then 
       strText += cbTeeth.Items(i).Text 
      Else 
       strText += ", " & cbCars.Items(i).Text 
      End If 
     End If 
    Next 
    txtCars.Text = strText.ToString() 

Answer 1

嘗試

txtCars.Text += strText; 

或

txtCars.AppendText(strText); 

Answer 2

更改

Dim strText As String = "" 

到

Dim strText As String = txtCars.Text 

你忘了你的初始化字符串的文本框，這就是爲什麼文本框是越來越您單擊處理程序重寫的值。