ListView控件搜索函数(VB)

ListView 搜索函数

'**************************************
'函数名:SearchListView
'描述:ListView搜索函数
'日期:2005.03.05
'**************************************

OptionExplicit
PublicSubSearchListView(ListViewXAsListView,SearchStringAsString,ListViewZAsListView)
OnErrorResumeNext
Dimw,x,y,zAsInteger
Dima,bAsString
ListViewX.ListItems.Add,,""
ListViewX.ListItems.Item(1).Selected=True
SearchString=LCase(SearchString)


DoUntilListViewX.SelectedItem.Index=ListViewX.ListItems.Count
a=LCase(ListViewX.SelectedItem.Text)
z=Len(a)
y=Len(SearchString)


Forx=1Toz


IfMid(a,x,y)=SearchStringThen


IfListViewX.SelectedItem=bThen
Else
ListViewZ.ListItems.Add,,ListViewX.SelectedItem
b=ListViewX.SelectedItem
EndIf
EndIf
Nextx
w=ListViewX.SelectedItem.Index
w=w+1
ListViewX.ListItems.Item(w).Selected=True
Loop
ListViewX.ListItems.Remove(ListViewX.ListItems.Count)
EndSub