ListView控件搜索函数(VB)

最新推荐文章于 2025-07-26 11:24:29 发布

最新推荐文章于 2025-07-26 11:24:29 发布 · 467 阅读

本文介绍了一个用于ListView组件的搜索函数SearchListView。该函数接收三个参数：目标ListView、搜索字符串及另一个ListView用于显示结果。通过遍历目标ListView的所有项并比较文本内容来实现搜索，将匹配的项添加到结果ListView中。

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