PEGAR TEXTO NO LIST VIEW

USUARIO.EXCLUIDOS 11/11/2004 11:33:44
#49860
Preciso pegar o texto do Item do List View

oRs.Index = "Codigo"
oRs.Seek "=", lstDefeito.ListItems.Item.Selected

alguém pode me dar a sintaxe correta?
DANIELCPAETE 11/11/2004 12:24:19
#49870 Resposta escolhida 
Private Sub Command1_Click()
  MsgBox ListView1.SelectedItem.Text
End Sub

Private Sub Form_Load()
  ListView1.ColumnHeaders.Add , , "teste"
  For X = 1 To 20
    ListView1.ListItems.Add , , X
  Next
End Sub
DANIELCPAETE 11/11/2004 12:25:57
#49872
ficaria assim

    oRs.Index = "Codigo" 
    oRs.Seek "=", ListView1.SelectedItem.Text


ou para subitem

    oRs.Index = "Codigo" 
    oRs.Seek "=", ListView1.SelectedItem.Subitem(1)
Tópico encerrado , respostas não são mais permitidas
Voltar