PEGAR DADOS DE UMA OU MAIS CELULAS SELEC LISTVIEW
Ola amigos. Existe alguma maneira de eu pegar os dados de uma determinada celular ou mais de um listview.
Sei que da pra fazer lstview.selecteditem.subitems(x). Mas assim nao funciona. Pois quero fazer da seguinte maneira, ao usuario clicar naquela linha, pegar o valor daquela coluna na primeira linha e da primeira coluna na linha selecionada.
Para explicar melhor. é uma agenda, onde a primeira linha indica a data e o resto indica os horarios. Entao preciso saber a data e o horario onde o usuario vai agendar seus pacientes.
Sei que da pra fazer lstview.selecteditem.subitems(x). Mas assim nao funciona. Pois quero fazer da seguinte maneira, ao usuario clicar naquela linha, pegar o valor daquela coluna na primeira linha e da primeira coluna na linha selecionada.
Para explicar melhor. é uma agenda, onde a primeira linha indica a data e o resto indica os horarios. Entao preciso saber a data e o horario onde o usuario vai agendar seus pacientes.
Vai ai,vb6.
Private Sub ListView1_Click()
Label1.Caption = ListView1.SelectedItem
Label2.Caption = ListView1.SelectedItem.ListSubItems.Item(1).Text
Label3.Caption = ListView1.SelectedItem.ListSubItems.Item(2).Text
End Sub
inté.
Private Sub ListView1_Click()
Label1.Caption = ListView1.SelectedItem
Label2.Caption = ListView1.SelectedItem.ListSubItems.Item(1).Text
Label3.Caption = ListView1.SelectedItem.ListSubItems.Item(2).Text
End Sub
inté.
Olá...
Vê se é isso que procuras...dá só uma adaptada.
Coloquei o script no Evento de clique duplo:
Valeu !
Vê se é isso que procuras...dá só uma adaptada.
Coloquei o script no Evento de clique duplo:
Private Sub Lv1_DblClick()
[ô]
Dim i As Integer
Dim iCol1 As String, iCol2 As String
With Lv1
For i = 1 To .ListItems.Count
If .ListItems(i).Selected = True Then
iCol1 = .ListItems(i).Text
iCol2 = .ListItems(i).SubItems(1)
End If
Next i
End With
MsgBox [Ô]Coluna 1 = [Ô] & iCol1 & vbNewLine _
& [Ô]Coluna 2 = [Ô] & iCol2, vbInformation
End Sub
Valeu !
Galera. obrigado pela força mas meu cliente desistiu do sistema pois achou um [ô]mais barato[ô] na internet e optou por nao fechar.
Porem resolvi o problema usando msflexgrid.
Valeu mesmo
Porem resolvi o problema usando msflexgrid.
Valeu mesmo
Tópico encerrado , respostas não são mais permitidas