复选框和文本框问题

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

您忘记将字符串初始化为文本框的值，这就是文本框被点击处理程序覆盖的原因。