[Resolvido]Cor da fonte inversa ao fundo de controle

**Jungli** 28/4/2018, 04:08

Jungli: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 713
Registrado : 07/05/2010

Mensagem nº1

[Resolvido]Cor da fonte inversa ao fundo de controle

Mensagem Jungli 28/4/2018, 04:08

Boa noite,

algum dos coleguinhas teria algum código de inversão de cores.

Preciso ter um forecolor na cor inversa ao backcolor de um controle automáticamente.

abs.

Última edição por Jungli em 28/4/2018, 15:20, editado 1 vez(es)

.................................................................................
"Somos o que repetidamente fazemos.
A excelência, portanto, não é um feito,
mas um hábito."

Aristóteles

**Noobezinho** 28/4/2018, 10:49

Noobezinho

Noobezinho: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 4140
Registrado : 29/06/2012

Mensagem nº2

Re: [Resolvido]Cor da fonte inversa ao fundo de controle

Mensagem Noobezinho 28/4/2018, 10:49

Glicerio

Tem que criar a função, utilizando as propriedades

controle.backcolor e controle.forecolor.

Defina a primeira cor no controle e então, onde precisar:

Call InverteCor ' chamada da função

Function InverteCor()
If me.controle.backcolor= rgb(x) then ' aqui pode ser qualquer critério que desejar.

me.controle.backcolor= rgb(y)
me.controle.forecolor= rgb(x)
Else
me.controle.backcolor= rgb(x)
me.controle.forecolor= rgb(y)

End If

End Function

[ ]'s

Balem

.................................................................................
A pergunta que não quer calar:
Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
para enviar parte do projeto, não temos mais continuidade do tópico?
Crê que temos bolas de cristal ou está com medo que "roubemos" a
idéia/projeto dele? Twisted Evil

Se é tão bom assim...

Ajude a ser ajudado:
Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
sem precisar procurar o mesmo.

**Jungli** 28/4/2018, 13:17

Jungli

Jungli: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 713
Registrado : 07/05/2010

Mensagem nº3

Re: [Resolvido]Cor da fonte inversa ao fundo de controle

Mensagem Jungli 28/4/2018, 13:17

Bom dia,
agradeço a ajuda,

Estou buscando mesmo alguma função que me devola o valor numerico da cor inversa
a cor atribuida a um campo, não tenho como definir as cores manualmente, terá que ser um processo dinamico.

.................................................................................
"Somos o que repetidamente fazemos.
A excelência, portanto, não é um feito,
mas um hábito."

Aristóteles

**Alvaro Teixeira** 28/4/2018, 13:52

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7919
Registrado : 15/03/2013

Mensagem nº4

Re: [Resolvido]Cor da fonte inversa ao fundo de controle

Mensagem Alvaro Teixeira 28/4/2018, 13:52

Olá a todos,

Glicerio, veja se ajuda:

vb-helper.com/howto_invert_color.html

Abraço

**Jungli** 28/4/2018, 15:19

Jungli

Jungli: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 713
Registrado : 07/05/2010

Mensagem nº5

Re: [Resolvido]Cor da fonte inversa ao fundo de controle

Mensagem Jungli 28/4/2018, 15:19

Agradecimentos, ahteixeira e Noobezinho!

'Módulo
Public Function InvertColor(ByVal clr As Long) As Long
InvertColor = &HFFFFFF - clr
End Function

'Exemplo de aplicação:
[seu campo].ForeColor = InvertColor([seu campo].BackColor)

.................................................................................
"Somos o que repetidamente fazemos.
A excelência, portanto, não é um feito,
mas um hábito."

Aristóteles