Listview.Finditem()函数用法

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