البحث داخل listview - نسخة قابلة للطباعة

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        ListView1.SelectedItems.Clear()

        For i = 0 To ListView1.Items.Count - 1

            If ListView1.Items(i).SubItems(0).Text = TextBox1.Text Then

                ListView1.Items(i).Selected = True



            End If

        Next

        ListView1.Focus()

    End Sub

كود :

   Private Sub SearchWord1(strWord As String, listv1 As ListView, listv2 As ListView)

        listv2.Items.Clear()

        If listv1.Items.Count <= 0 Then Exit Sub

        If Trim(strWord) = "" Then

            For i = 0 To ListView1.Items.Count - 1

                listv2.Items.Add(listv1.Items(i).Text)

            Next

            Exit Sub

        End If



        For i = 0 To ListView1.Items.Count - 1

            If LCase(strWord) = LCase(Mid(listv1.Items.Item(i).Text, 1, Len(strWord))) Then

                listv2.Items.Add(listv1.Items(i).Text)

            End If

        Next



    End Sub

    Private Sub SearchWord2(strWord As String, listv1 As ListView, listv2 As ListView)

        listv2.Items.Clear()

        If listv1.Items.Count <= 0 Then Exit Sub

        If Trim(strWord) = "" Then

            For i = 0 To ListView1.Items.Count - 1

                listv2.Items.Add(listv1.Items(i).Text)

            Next

            Exit Sub

        End If



        For i = 0 To listv1.Items.Count - 1

            For j = 1 To Len(listv1.Items.Item(i).Text)

                If LCase(strWord) = LCase(Mid(listv1.Items.Item(i).Text, j, Len(strWord))) Then

                    listv2.Items.Add(listv1.Items(i).Text)

                    Exit For

                End If

            Next





        Next



    End Sub

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

        SearchWord1(TextBox1.Text, ListView1, ListView2)

    End Sub



    Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs) Handles TextBox2.TextChanged

        SearchWord2(TextBox2.Text, ListView1, ListView2)

    End Sub