從一個列表框選擇項目到另一個列表框

Question

我有一個兩個列表框列表框1和列表框2。我想要獲取ListBox1中的所有重複項目，我將在TextBox中搜索並將其放入ListBox2中，並且當我搜索的所有重複項目都在ListBox2中時，它的自動計數請幫助我。

例如，在ListBox1中項

DOG 
DOG 
DOG 
CAT 
CAT 

當我在文本框鍵入DOG在ListBox1中所有的DOG將被複制到ListBox2。我該怎麼做？

我想這

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

我也嘗試這一點，但它錯了伯爵的，我會尋找確切的字前行。 例如 DOG DOG DOG CAT CAT 我會搜索在文本框CAT在listbox2輸出爲3 這裏是我的代碼：

昏暗的支票作爲字符串

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