REPLACE

 Tópico anterior Próximo tópico Novo tópico

REPLACE

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#483150 - 19/07/2018 10:28:48

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


Esqueci de postar para vc
'Enumeracao de Cores
Public Enum Cor
    Azul = vbBlue
    Ciano = vbCyan
    Preto = vbBlack
    Verde = &H8000&
    Amarelo = vbYellow
    Vermelho = vbRed
    Branco = vbWhite
    Marron = vbNarrow
    Magenta = vbMagenta
End Enum

Coloque essa função acima em um módulo a parte, pois o módulo que te passei usa isso

Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


#483160 - 19/07/2018 14:18:02

ISABELLASILVA
BLUMENAU
Cadast. em:Novembro/2017


 Anexos estao visíveis somente para usuários registrados

Boa tarde, Alvaro!
Que bom que existe este fórum! Que bom que existe pessoas como vc!

Quanto o replace tinha percebido, e tinha ajustado com as aspas, mas não deu certo, acredito que não esteja encaixando no local certo, abaixo segue a linha de código
Citação:
:
For x = 1 To ListCondicoes.ListItems.Count
      If ListCondicoes.ListItems(x).SubItems(6) <> "" Then ColorListviewRow ListCondicoes, ListCondicoes.ListItems(x), &H8000000D
   Next x



Quanto as cores eu usava aquelas códigos de cores Exemplo(&H80000012&), mas dessa forma é bom porque tem o nome da cor muito mais pratico,

Quanto ao erro do SubItems vou enviar a mensagem de erro, para vc dar uma olhada,

Agradeço pela sua atenção,

Isabella


#483171 - 19/07/2018 15:24:42

ALVAROVB2009
GUARULHOS
Cadast. em:Maio/2009


A parte que comentei
Citação:
:
Quando vc estiver preenchendo o seu list no campo 6, que é onde acredito que tenha os dados a ser alterados
ListCondicoes.ListItems(x).SubItems(6) = replace(texto,ª|10,'')




É antes desse FOR para colocar a cor no list

É quando vc esta preenchendo os dados no List e é nessa hora que vc vai fazer o REPLACE

Qqer coisa coloca o código completo que vc tem, para passar os dados do banco para o list

Teoria é quando se sabe tudo, e nada funciona. Prática e quando tudo funciona e ninguém sabe porque.
"Aquele que quer aprender gosta que lhe digam quando esta errado;
só o tolo não gosta de ser corrigido -"Prov.12:1


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por ISABELLASILVA em 19/07/2018 22:58:33