DADOS DA LISTBOX EM UM TEXTBOX
Olá amigos,
venho mais uma vez pedir uma ajuda para selecionar um item de uma listbox, é o seguinte:
Tenho vários itens que podem variar em uma listbox exemplo:
10
22
34
67
89
14
23
E
98
76
29
21
preciso receber o terceiro dado após o caractere [Ô]E[Ô] dessa listbox em um textbox, essa listbox ficara invisÃve, portanto usarei um botão para fazer a seleçãol. Coloquei o caractere [Ô]E[Ô] como final em cada vez que importo alguma coisa para a listbox, isso vem por uma porta serial.
Usei esse código, mas não está funcionando, ele passou por vários [Ô]E[Ô] e só parou no último que encontrou.
[ô]=================================================
Private Sub Command3_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.List(i) = [Ô]E[Ô] Then
List1.Selected(i) = True
Text37.Text = [Ô]encontrado[Ô]
Text38.Text = i
End If
Next
End Sub
[ô]===============================================
Abraço.
venho mais uma vez pedir uma ajuda para selecionar um item de uma listbox, é o seguinte:
Tenho vários itens que podem variar em uma listbox exemplo:
10
22
34
67
89
14
23
E
98
76
29
21
preciso receber o terceiro dado após o caractere [Ô]E[Ô] dessa listbox em um textbox, essa listbox ficara invisÃve, portanto usarei um botão para fazer a seleçãol. Coloquei o caractere [Ô]E[Ô] como final em cada vez que importo alguma coisa para a listbox, isso vem por uma porta serial.
Usei esse código, mas não está funcionando, ele passou por vários [Ô]E[Ô] e só parou no último que encontrou.
[ô]=================================================
Private Sub Command3_Click()
Dim i As Integer
For i = 0 To List1.ListCount - 1
If List1.List(i) = [Ô]E[Ô] Then
List1.Selected(i) = True
Text37.Text = [Ô]encontrado[Ô]
Text38.Text = i
End If
Next
End Sub
[ô]===============================================
Abraço.
Se for para ele parar no 1º e coloque um exit for
For i = 0 To List1.ListCount - 1
If List1.List(i) = [Ô]E[Ô] Then
List1.Selected(i) = True
Text37.Text = [Ô]encontrado[Ô]
Text38.Text = i
Exit For
End If
Next
For i = 0 To List1.ListCount - 1
If List1.List(i) = [Ô]E[Ô] Then
List1.Selected(i) = True
Text37.Text = [Ô]encontrado[Ô]
Text38.Text = i
Exit For
End If
Next
Olá Luizcomino, agora sim ele achou o primeiro [Ô]E[Ô]. Obrigado.
Mais uma coisinha, existe uma forma de ir buscando na listbox até não aparecerem mais os caracteres [Ô]E[Ô], e ao mesmo tempo ir preenchendo textbox com os valores?
nesse caso que te passei, eu tenho 88 itens na listbox, mas podem ser muito mais, em torno de 300 dados + ou -.
Se o programa fosse localizando e organizando nas textbox, seria show . Só preciso de uma idéia de como fazer isso.
Obrigado.
Mais uma coisinha, existe uma forma de ir buscando na listbox até não aparecerem mais os caracteres [Ô]E[Ô], e ao mesmo tempo ir preenchendo textbox com os valores?
nesse caso que te passei, eu tenho 88 itens na listbox, mas podem ser muito mais, em torno de 300 dados + ou -.
Se o programa fosse localizando e organizando nas textbox, seria show . Só preciso de uma idéia de como fazer isso.
Obrigado.
se for para colocar tudo em uma textbox seria assim
For i = 0 To List1.ListCount - 1
If List1.List(i) = [Ô]E[Ô] Then
List1.Selected(i) = True
Text37.Text = [Ô]encontrado[Ô]
Text38.Text =Text38.Text & [Ô] - [Ô] & i
End If
Next
era essa sua ideia?
For i = 0 To List1.ListCount - 1
If List1.List(i) = [Ô]E[Ô] Then
List1.Selected(i) = True
Text37.Text = [Ô]encontrado[Ô]
Text38.Text =Text38.Text & [Ô] - [Ô] & i
End If
Next
era essa sua ideia?
se for melhor crie mais um list ai basta adicionar no novo list tudo que ele achar ficaria assim:
For i = 0 To List1.ListCount - 1
If List1.List(i) = [Ô]E[Ô] Then
List1.Selected(i) = True
List2.AddItem i
End If
Next
O List2 ficaria só com os resultados encontrados.
For i = 0 To List1.ListCount - 1
If List1.List(i) = [Ô]E[Ô] Then
List1.Selected(i) = True
List2.AddItem i
End If
Next
O List2 ficaria só com os resultados encontrados.
Grande dica 
, vou trabalhar em cima disso, muito obrigado pela ajuda.
Sempre em frente!!
, vou trabalhar em cima disso, muito obrigado pela ajuda. Sempre em frente!!
Olá denovo,
usei o código acima, funcionou perfeitamente, porém estou sofrendo com um problema. A minha listbox1 está assim:
12:20:22
24/10/2011
121212
12445
22334
3322
E
12:20:30
24/10/2011
131
1265
22334
3327
E
o código que usei é este:
[ô]---------------------------------------
Private Sub Command4_Click()
Dim i, x As Integer
x = 4
For i = 0 To List1.ListCount - 1
If List1.List(i) = [Ô]E[Ô] Then
List1.Selected(i + x) = True
List2.AddItem List1.Text
End If
Next
End Sub
[ô]--------------------------------------
Ou seja, depois do [Ô]E[Ô] estou pegando o 4º item da list para colocar em ordem, mas ao chegar no último [Ô]E[Ô] o programa dá erro porque não existem mais itens após ele.
Como poderia fazer com que ele saiba que não existe mais nada após encontrar o ultimo [Ô]E[Ô]?
O erro que aparece é esse: [Ô]Invalid proporty array index[Ô]
aqui eu tenho uma textbox que me mostra quantos itens eu tenho na listbox, estou tentando várias maneiras para tentar corrigir este problema, mas não estou conseguindo.
Abraço.
usei o código acima, funcionou perfeitamente, porém estou sofrendo com um problema. A minha listbox1 está assim:
12:20:22
24/10/2011
121212
12445
22334
3322
E
12:20:30
24/10/2011
131
1265
22334
3327
E
o código que usei é este:
[ô]---------------------------------------
Private Sub Command4_Click()
Dim i, x As Integer
x = 4
For i = 0 To List1.ListCount - 1
If List1.List(i) = [Ô]E[Ô] Then
List1.Selected(i + x) = True
List2.AddItem List1.Text
End If
Next
End Sub
[ô]--------------------------------------
Ou seja, depois do [Ô]E[Ô] estou pegando o 4º item da list para colocar em ordem, mas ao chegar no último [Ô]E[Ô] o programa dá erro porque não existem mais itens após ele.
Como poderia fazer com que ele saiba que não existe mais nada após encontrar o ultimo [Ô]E[Ô]?
O erro que aparece é esse: [Ô]Invalid proporty array index[Ô]
aqui eu tenho uma textbox que me mostra quantos itens eu tenho na listbox, estou tentando várias maneiras para tentar corrigir este problema, mas não estou conseguindo.
Abraço.
consegui, ufa.
Tópico encerrado , respostas não são mais permitidas