ListView控件的简单查询功能

 

例1：实现简单查找

        Dim myList As New ListViewItem
        myList = ListView1.FindItemWithText(‘查询字串’, True, 0, True)
        ListView1.Focus()
        If Not myList Is Nothing Then
            ListView1.Items.Item(myList.Index).Selected = True
        End If

例2：实现连续查询（这里要定义一个变量，用于保存查询起始的Index值）

 

        Dim myList As New ListViewItem
        Dim myIndex As Integer = 0    ‘myIndex的定义为全局变量
        If myIndex > ListView1.Items.Count - 1 Then myIndex = 0
        myList = ListView1.FindItemWithText(TextBox1.Text.Trim, True, myIndex, CheckBox1.Checked)
        ListView1.Focus()
        ListView1.MultiSelect = False
        If Not myList Is Noth