[Taha Okla]

قم باستخدام هذا الكود فانه يقوم بتحديد كل ما يتشابه مع بدايه أي عنصر من القائمة 
وكلما أضفت أحرف أكثر ضاق نطاق التحديد ..:

كود :

   Private Sub SearchWord(strWord As String)
       If ListView1.Items.Count <= 0 Then Exit Sub
       If Trim(strWord) = "" Then
           For i = 0 To ListView1.Items.Count - 1
               ListView1.Items(i).Selected = False
           Next
           Exit Sub
       End If

       For i = 0 To ListView1.Items.Count - 1
           If LCase(strWord) = LCase(Mid(ListView1.Items.Item(i).Text, 1, Len(strWord))) Then
               ListView1.Items(i).Selected = True
           Else
               ListView1.Items(i).Selected = False
           End If
       Next

   End Sub

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

أو استخدم هذا الكود للبحث عن أي عنصر يشابه بجزء منه ما تبحث عنه حتى لو لم يكن من البدايه ويحدده
وكلما أضفت أحرف أكثر ضاق نطاق التحديد ..:

كود :

   Private Sub SearchWord2(strWord As String)
       If ListView1.Items.Count <= 0 Then Exit Sub
       If Trim(strWord) = "" Then
           For i = 0 To ListView1.Items.Count - 1
               ListView1.Items(i).Selected = False
           Next
           Exit Sub
       End If

       For i = 0 To ListView1.Items.Count - 1
           For j = 1 To Len(ListView1.Items.Item(i).Text)
               If LCase(strWord) = LCase(Mid(ListView1.Items.Item(i).Text, j, Len(strWord))) Then
                   ListView1.Items(i).Selected = True
                   Exit For
               Else
                   ListView1.Items(i).Selected = False
               End If
           Next


       Next

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