首页 文章

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

提问于
浏览
0

我有两个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

我也尝试了这个,但它的错误是它在我搜索的确切单词之前的行 . 例如DOG DOG DOG CAT CAT我在文本框中搜索CAT,listbox2中的输出是3这里是我的代码:

Dim check As String

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

2 回答

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

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

    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
    

相关问题