50分 求ListView 搜索函数的使用实例,该如何解决(2)

a = LCase(ListViewX.SelectedItem.Text)
z = Len(a)
y = Len(SearchString)


For x = 1 To z


If Mid(a, x, y) = SearchString Then


If ListViewX.SelectedItem = b Then
Else
ListViewZ.ListItems.Add , , ListViewX.SelectedItem
b = ListViewX.SelectedItem
End If
End If
Next x
w = ListViewX.SelectedItem.Index
w = w + 1
ListViewX.ListItems.Item(w).Selected = True
Loop
ListViewX.ListItems.Remove (ListViewX.ListItems.Count)
End Sub

Private Sub Command1_Click()
SearchListView ListView1, "test ", ListView2
End Sub

Private Sub Form_Load()
Dim i As Long
For i = 0 To 20
ListView1.ListItems.Add Text:= "line " & CStr(i)
ListView1.ListItems.Add Text:= "test " & CStr(i)
Next
End Sub