Question

我有两个ListBoxes listbox1和listbox2。我想获取ListBox1中我在TextBox中搜索并放入ListBox2的所有重复项目，当我搜索的所有重复项目都在ListBox2中时，它会自动计数，请帮助我。

例如，ListBox1中的项目

DOG
DOG
DOG
CAT
CAT

当我在TextBox中键入DOG时，ListBox1中的所有DOG都将被复制到ListBox2。我该怎么办？

我试过这个

Dim check As Boolean
For Each item In ListBox1.Items
    check = ListBox1.FindStringExact(item)
    ListBox2.Items.Add(item)
Next

我也试过这个，但它的错误在我搜索的确切单词之前算了一行。例如狗狗狗猫猫我在文本框中搜索CAT，listbox2中的输出为3 这是我的代码：

Dim check As String

    check = ListBox1.FindStringExact(TextBox1.Text)
    ListBox2.Items.Add(check)

Answer 1

listBox2.Items.AddRange(listBox1.Items.Cast(Of ListItem)().Where(Function(x) x.Text = TextBox1.Text ).ToArray(Of ListItem)())

Answer 2

在文本框中输入值后，在按钮单击中尝试以下代码。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim searchFor As String = TextBox1.Text
    For Each item In ListBox1.Items
        If item = searchFor Then
            ListBox2.Items.Add(item)
        End If
    Next

    Do While ListBox1.Items.Contains(searchFor)
        ListBox1.Items.Remove(searchFor)
    Loop
End Sub

从一个ListBox中选择项目到另一个

2 个答案: