在列表视图中搜索多个结果

Question

我已经完成搜索我的列表视图项，但不幸的是它只显示第一个结果，除此之外什么都没有

这是我的代码

Private Sub ULButton1_Click(sender As Object, e As EventArgs) Handles ULButton1.Click

        If ComboBox2.Text = "" Then
            MessageBox.Show("Please select an office")
        Else
            Dim itm As ListViewItem

            itm = Me.ListView2.FindItemWithText(TextBox1.Text)

            If Not itm Is Nothing Then
                ListView2.SelectedItems.Clear()
                ListView3.Clear()
                ListView3.View = View.Details
                ListView3.FullRowSelect = True
                ListView3.GridLines = True
                ListView3.Sorting = SortOrder.Ascending
                ListView3.Columns.Add("Username", CInt(ListView1.Width / 2))
                ListView3.Columns.Add("Name", CInt(ListView1.Width / 2))

                Me.ListView2.Items.Item(itm.Index).Selected = True
                For Each itm2 As ListViewItem In Me.ListView2.SelectedItems
                    Me.ListView3.Items.Add(ListView2.Items(itm2.Index).Clone())
                Next
            Else
                MessageBox.Show("Not Found", "")
            End If

            itm = Nothing
        End If
    End Sub

当我在文本框中输入字符串时，此代码将在另一个列表视图中显示列表视图项的结果，有没有办法可以修改它以将多个相关项显示到我在文本框中输入的字符串？

谢谢

Answer 1

FindItemWithText 仅查找第一个匹配项。 您将需要使用另一种形式或采用起始索引并继续在循环中查找下一项的函数。 另外，这个片段看起来很奇怪：

        Me.ListView2.Items.Item(itm.Index).Selected = True
        For Each itm2 As ListViewItem In Me.ListView2.SelectedItems
            Me.ListView3.Items.Add(ListView2.Items(itm2.Index).Clone())
        Next

您迭代选定的项目，但您只选择了一个！你已经知道它是索引...