ListView 搜索函数

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

Option Explicit
Public Sub SearchListView(ListViewX As ListView, SearchString As String, ListViewZ As ListView)
    On Error Resume Next
    Dim w, x, y, z As Integer
    Dim a, b As String
    ListViewX.ListItems.Add , , " "
    ListViewX.ListItems.Item(1).Selected = True
    SearchString = LCase(SearchString)

Do Until ListViewX.SelectedItem.Index = ListViewX.ListItems.Count
        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

转自：枕善居

ListView 搜索函数相关推荐

WEB前端 javascript、php关键字搜索函数的使用方法
javascript: a. 代码: ? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 /* @desc:js搜索函数,可用于关键字匹配 ...
php 如何实现关键字查找,javascript、php关键字搜索函数的使用方法
javascript: a. 代码: /* @desc:js搜索函数,可用于关键字匹配 @param key 关键字 @param str 要搜索的字符串 @return out 匹配关键字前后出现的 ...
简单Case函数和Case搜索函数的区别
简单Case函数和Case搜索函数的区别 Case具有两种格式.简单Case函数和Case搜索函数. --简单Case函数 CASE sex WHEN '1' THEN '男' WHEN '2' TH ...
SQL语句中:简单Case函数和Case搜索函数
Case具有两种格式. 简单Case函数和Case搜索函数. --简单Case函数 CASE sexWHEN '1' THEN '男'WHEN '2' THEN '女' ELSE '其他' END - ...
简单Case函数和Case搜索函数。
Case具有两种格式.简单Case函数和Case搜索函数. --简单Case函数 CASE sex WHEN '1' THEN '男' WHEN '2' THEN '女' ELSE '其他' END ...
SQL语句中 Case具有两种格式:简单Case函数和Case搜索函数
转自:http://blog.csdn.net/IBM_hoojo/article/details/5546868 Case具有两种格式.简单Case函数和Case搜索函数. --简单Case函数 ...
Oracle INSTR 用法 Oracle 字符串搜索函数 INSTR Oracle instr 函数和like模糊查询对比 Oracle INSTR 用法
Oracle INSTR 用法 Oracle 字符串搜索函数 INSTR Oracle instr 函数和like模糊查询对比一.instr 函数 1.instr函数语法规则:i ...
如何用excel求平均数？认准average()——搜索函数时千万别输mean，否则会得到geomean()
某一天用excel计算平均数时,下意识地输入'=mean'搜索相关函数,并理所当然使用第一个弹出结果'=geomean'计算平均值.结果可想而知,一堆表格都要重新算 T_T. 为了牢记教训,下面咱就回 ...
100天精通Python（数据分析篇）——第51天：numpy模块常用函数大全（字符串/数学/算术/统计/排序/搜索函数）
文章目录一.字符串函数 1. add() 2. multiply() 3. center() 4. capitalize() 5. title() 6. lower() 7. upper() 8. ...

ListView 搜索函数

ListView 搜索函数相关推荐

最新文章

热门文章