PERCORRER LISTVIEW

TRINDADI 18/02/2014 11:56:46
#434953
Boa Tarde

Para percorrer um Listbox e mandar para textbox eu faço assim>
For i = 0 to list1.listcount -1
textbox1.= list1.list(i)
next i

Agora como faço isso com Listview.
alguem pode ajudar.
Depois tenho mais duvidas, tenham paciencia.kk
Obrigado gente
FILMAN 19/02/2014 00:56:34
#434978 Resposta escolhida
Pode fazer da mesma maneira, mas com um toque diferente!

For i = 1 To ListView1.ListItems.Count
Coluna1 = ListView1.ListItems(i).SubItems(1)
Coluna2 = ListView1.ListItems(i).SubItems(2)
Coluna3 = ListView1.ListItems(i).SubItems(3)

MsgBox [Ô]Coluna1: [Ô] & Coluna1 & VbCrLf & [Ô]Coluna2: [Ô] & Coluna2 & VbCrLf & [Ô]Coluna3: [Ô] & Coluna3
Next i

Espero ter ajudado
TRINDADI 19/02/2014 13:41:18
#434983
Valeu Filman, ajudou sim muito Obrigado. Mas como falei tenho outras.
Eu tenho o seguinte código.

Private Sub Command4_Click()
Dim D As Integer, D2 As Integer, Dzna As Integer: Dzna = 1
Dim Lista1 As String: Lista1 = Text1.Text
Dim Seq(1 To 2) As String
For D = LBound(Seq) To UBound(Seq)
Seq(D) = Mid$(Lista1, Dzna, 2)
Dzna = Dzna + 2
Next D
For D = LBound(Seq) To UBound(Seq) - 1
For D2 = D + 1 To UBound(Seq)
Text2.Text = Seq(D)
Text3.Text = Seq(D2)
Next D2
Next D
End Sub

No caso Lista1, pode ser qualquer sequencia,
por exemplo: 01 02 03 04 05 ,,,
No text2 ele me retorna certinho 01
mas no text3 ele so me retorna 0, e eu queria que me retornasse 02
mas nao consigo, se vc tiver uma solução e puder me passar agradeço muito
Um Abraço.
TECLA 20/02/2014 18:22:12
#435039
Tente separar os números [txt-color=#0000f0]01 02 03[/txt-color] usando o operador Split do VB.

Exemplo:
Lista1 = [Ô]01 02 03 04 05[Ô]
[txt-color=#007100][ô] pegar o primeiro número[/txt-color]
Text1.Text = Split(Lista1, [Ô] [Ô])(0)
[txt-color=#007100][ô] pegar o segundo número[/txt-color]
Text2.Text = Split(Lista1, [Ô] [Ô])(1)
[txt-color=#007100][ô] pegar o terceiro número[/txt-color]
Text3.Text = Split(Lista1, [Ô] [Ô])(2)
FILMAN 21/02/2014 00:08:36
#435061
Cara é o que o Tecla descreveu!

Dim Lista1 As String
Dim Seq() As Variant
Dim i As Integer

Lista1 = [Ô]01 02 03 04 05[Ô]

Seq = Split(Lista1, [Ô] [Ô])

For i = 0 To Ubound(Seq) - 1

[ô]Aqui você pode controlar a quantidade de Controls(TextBox)
Select Case i
Case 1: Text1.Text = Format(Seq(i), [Ô]00[Ô])
Case 2: Text2.Text = Format(Seq(i), [Ô]00[Ô])
Case 3: Text3.Text = Format(Seq(i), [Ô]00[Ô])
Case 4: Text4.Text = Format(Seq(i), [Ô]00[Ô])
Case 5: Text5.Text = Format(Seq(i), [Ô]00[Ô])
Case ...
Case ...
End Select
Next i

Veja se te ajuda, valeu
TRINDADI 21/02/2014 02:29:01
#435066
Filman e Tecla, muito obrigado pela ajuda,
Está dando tudo certinho. Talvez vou precisar de mais uma, espero que a ultima, (acho difícil), mas para o próximo tópico
Valeu gente, mais uma vez, obrigado
Tópico encerrado , respostas não são mais permitidas
Voltar