Listview.Finditem()函数用法
2024-09-05 07:33:02
查找LISTVIEW控件中指定的字符串.
Private Sub ListView2_Click()
On Error GoTo ONERROR
Dim strFindMe As String
strFindMe = ListView2.ListItems(ListView2.SelectedItem.Index).Text 获取选定行的第一列的文本
FindItem 方法返回找到的项目的引用，所以必须创建对象变量并将找到的项目设置给它。
Dim itmFound As ListItem “FoundItem 变量”
Set itmFound = ListView1.FindItem(strFindMe, lvwText, , lvwPartial)
若未找到符合条件的 ListItem 则通知用户并退出。如果找到 ListItem，则使用 EnsureVisible 方法滚动控件，并选定 ListItem。
If itmFound Is Nothing Then 若没有匹配成功，则通知用户并退出。
MsgBox "No match found"
Else
itmFound.EnsureVisible 滚动 ListView 以显示找到的 ListItem。
itmFound.Selected = True 选定ListItem。
ListView1.SetFocus 将焦点返回给控件以查看选择。
End If
Set itmFound = Nothing
ONERROR:
If Err.Number <> 0 Then
Select Case Err.Number
Case Else
MsgBox "错误代码：" & Err.Number & " 错误描述：" & Err.Description, vbExclamation, App.ExeName
Resume Next
End Select
End If
End Sub
最新文章
- Linux CentOS 配置JDK环境
- c#List移除列表中的元素
- Web端权限管理新增实用功能：批量增加操作，简单方便快速！
- Android手机截屏
- 理解OAuth2.0
- 【C语言入门教程】3.2 数据的输入 与 输出
- [Effective JavaScript 笔记] 第5条：避免对混合类型使用==运算符
- httplib
- zencart安装第三步出现空白
- 无锁算法CAS 概述
- 青蛙的约会 - poj 1061（扩展欧几里得）
- linker command failed with exit code 1 (use -v to see invocation)，经典Xcode编译错误的出现和解决！
- 初玩RAC
- 我的第一个.NET Core App Windows系统
- T-SQL :SQL Server 定义数据完整性 6大约束（三）
- Android绘制优化（二）布局优化
- 极其好用好学的规则引擎 - A2D规则引擎
- 怎样将M4A音频格式转换成MP3格式
- 当模版引擎遇到点(".")，会按照下列顺序查询：
- 使用ApiPost测试接口时需要先登录怎么办？利用Cookie模拟登陆！