No arquivo que baixei deste tópico, nome ListViewFitroCritério é possivel clicando em uma linha ele envia para os textbox e etc...mas algo que percebi é que ele só copia para os textbox quando é clicado na linha. Há possibilidade de que quando eu utilizo as setas do teclado no listview entre as linhas ele também faça esta copia para os textbox's e não somente quando clicar??
Código: Selecionar todos
Private Sub ListView1_click()
Dim linha, Index
'linha = ListView1.ListItems(Index).ListSubItems(4).Text 'linha da plan
Index = (ListView1.SelectedItem.Index) 'linha do ListView
Me.LblLinha.Caption = linha
Me.TextBox1.Value = ListView1.ListItems(Index) '1ª coluna do ListView
'2ª coluna do ListView
Me.TextBox2.Value = ListView1.ListItems(Index).ListSubItems(1).Text
'3ª coluna do ListView
Me.TextBox3.Value = ListView1.ListItems(Index).ListSubItems(2).Text
'4ª coluna do ListView
Me.TextBox4.Value = ListView1.ListItems(Index).ListSubItems(3).Text
Me.LblLinha.Caption = ListView1.ListItems(Index).ListSubItems(4).Text
'Me.TextBox1.SetFocus
End Sub