查找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
