搜索项目多文本框，然后检查相应的checkedlistbox项目，如果发现[VB.NET]

Question

您好我无法得到这个代码能够正常工作。我想从一个多行TextBox加载项，然后搜索CheckedListBox他们和检查他们，如果他们被发现。

我CheckedListBox有4个项目。红，绿，黑蓝

我的文本框有2项。绿，蓝

我的问题是，当我使用下面的代码，则返回1（绿色）0（红色）和3（蓝色）。它不应该返回0（红）

为什么这样做，我怎么能阻止它从返回0？

我试图改变TextBox2.Text.Split（）来TextBox2.Text.Split（vbNewLine），但不起作用。

谢谢！

Public Class Form1
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    For Each strLine As String In TextBox2.Text.Split()
        Dim i As Integer = CheckedListBox1.FindString(strLine)
        CheckedListBox1.SelectedIndex = i
        CheckedListBox1.SetItemChecked(i, True)
        MsgBox(i)
    Next
End Sub

末级

Answer 1

我解决了这个问题我自己。我需要删除换行符。我用下面的代码这样做。

Public Class Form1
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    For Each strLine As String In TextBox2.Text.Split(vbNewLine)
        Dim i As Integer = CheckedListBox1.FindString(strLine)
        CheckedListBox1.SelectedIndex = i
        CheckedListBox1.SetItemChecked(i, True)

    Next
End Sub

Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged
    TextBox2.Text = Replace(TextBox2.Text, vbLf, "")
End Sub

末级