WaldirJr
|
POÇOS DE CALDAS
MG - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 19/07/2004 17:27 hs
Desculpe, acho que não entendi direito o que vc quer.
Vc não pode dar um List1.Clear e depois um List1.AddItem, listando apenas o item 50, localizado no RCS ?
________________________ Té + Que NIMB role bons Dados! 
|
|
|
|
|
|
Mongruell
|
PONTA GROSSA
PR - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/07/2004 17:40 hs
Veja vc me deu um codigo que funciona perfeito... ele localiza um nome no meio de um monte que ja ta listado... mas tem como remover os outros nomes que nao me interessam.... ou seja... eu localizo o numero 50... no listbox ele acha o Joao da Silva... mas os outros nomes continuam junto... tem como so deixar o nome joao da silva... acho que um list1.removeitem i funcionaria... acho... mas pra mim ta dando erro. Fui mais claro? Mais uma vez obrigado pelo outro codigo caiu como uma luva.. Abraços Lincoln |
|
|
|
WaldirJr
|
POÇOS DE CALDAS
MG - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/07/2004 17:49 hs
'Ve se dá certo
'Substitua o FOR do campo Text1
For i = 0 To List1.ListCount - 1
If UCase$(Left(List1.List(i), Searchlen)) <> search$ Then
List1.RemoveItem (i)
End If
Next
List1.SetFocus
________________________ Té + Que NIMB role bons Dados!
|
|
|
|
Mongruell
|
PONTA GROSSA
PR - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/07/2004 18:26 hs
E aí Waldir... continua dando o erro 5... procedimento invalido... tem fazer algumas adpatoes mais nada da o mesmo erro. mas ele ta removendo... da pra ver... so que da esse erro. o legal que se colocar o codigo do for anterior e acrescentar list1.removeitem (i) da o mesmo erro. Estamos quase Waldir.. nao desista please... eu sozinho sem chances... Abraços Vinicius |
|
|
|
Mongruell
|
PONTA GROSSA
PR - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 19/07/2004 23:43 hs
Deu quase certo... veja a outra mensagem que eu postei com o nome de Remover item. Mas sua ajuda ja foi muito importante... ja to quase lá. |
|
|
|
