MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


3 participantes

    [Resolvido]Cor da fonte inversa ao fundo de controle

    Jungli
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 715
    Registrado : 07/05/2010

    [Resolvido]Cor da fonte inversa ao fundo de controle Empty [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
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Cor da fonte inversa ao fundo de controle Empty 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
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 715
    Registrado : 07/05/2010

    [Resolvido]Cor da fonte inversa ao fundo de controle Empty 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
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Cor da fonte inversa ao fundo de controle Empty 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
    Jungli
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 715
    Registrado : 07/05/2010

    [Resolvido]Cor da fonte inversa ao fundo de controle Empty 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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 29/4/2018, 20:20

    Olá Glicerio, que bom que conseguiu resolver Wink

    Obrigado pelo retorno e partilha, o fórum agradece.

    Abraço

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 15:23