MAIS UMA DÊVIDA DE NOVATO SOBRE LISTVIEW

Citação:

Postada em 31/7/2003 por cacá
O controle Listview expõe um método para pesquisa em seus items. A sintaxe é:

FindItem string, [where], [index], [fPartial]

O argumento string é o valor que você quer achar

Where é um argumento opcional que define onde você fará a pesquisa. Os valores que configuram esse argumento são:
lvwText ou 0 - Pesquisa na propriedade text dos ListItems
lvwSubItem ou 1 - Pesquisa nos ListSubItems
lvwTag ou 2 - Pesquisa na propriedade Tag do ListItem

O argumento index define a partir de qual item da lista será iniciada a busca. Se quiser buscar a partir do quinto item, defina esse argumento como 5 por exemplo

O argumento fPartial, também opcional, define o modo de comparação na pesquisa. Ele pode ter os seguintes valores:
lvwWholeWord ou 0 - Busca por coincidências exatas da palavra procurada. Ex: Se buscar por [Ô]Visual Basic[Ô], items que contenham [Ô]Visual Basic 6[Ô] não serão considerados
lvwPartial ou 1 - Busca por strings que começam com o texto procurado

Utilizando na prática:
Vou buscar por coincidências exatas de [Ô]Visual Basic[Ô] nos ListSubItems

If Not Listview.FindItem([Ô]Visual Basic[Ô], lvwSubItem, , lvwWholeWord) Is Nothing Then
   Msgbox [Ô]Texto encontrado[Ô]
End If

Listview.SelectedItem = Listview.FindItem string, [where], [index], [fPartial] 

 Private Function EncontraItem(ByVal LV As ListView, ByVal TextToFind As String) As Integer
        [ô] percorre os ListViewItems.
        For i As Integer = 0 To LV.Items.Count - 1
            If Trim(LV.Items(i).Text) = Trim(TextToFind) Then
                [ô] Se encontrar retorna o numero da linha
                Return (i)
            End If
            For subitem As Integer = 0 To LV.Items(i).SubItems.Count - 1
                If Trim(LV.Items(i).SubItems(subitem).Text) = Trim(TextToFind) Then
                    [ô] se encontrar retorna o numero da linha
                    Return (i)
                End If
            Next
        Next
        [ô] Se não encontrar nada retorna -1.
        Return -1
    End Function

Private Sub btnLocalizar_Click(sender As Object, e As EventArgs) Handles btnLocalizar.Click
        lvCustomers.MultiSelect = False
        lvCustomers.FullRowSelect = True

        [ô]chama a função para encontrar o item
        Dim verificaItem As Integer = EncontraItem(lvCustomers, TextBox1.Text)
        [ô]se não retornou -1 então exibe a linha no listview
        If verificaItem <> -1 Then
            lvCustomers.Items(verificaItem ).Selected = True
            [ô]define o foco no controle Listview
            lvCustomers.Focus()
            [ô]assegura que se o item estiver em uma parte não visível ele será exibido 
            lvCustomers.SelectedItems(0).EnsureVisible()
        Else
            lblmsg.Text = [Ô]Não localizado ![Ô]
        End If
    End Sub

seuTextBox.Text = seuListview.Items(DIGITA SEU INDICE AQUI).Text [ô] esse código vai jogar o item pro textbox
seuListview.Items(DIGITA SEU INDICE AQUI).Selected = True [ô] esse código vai selecionar o item