MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Cor da fonte inversa ao fundo de controle

    Compartilhe
    avatar
    Jungli
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Cor da fonte inversa ao fundo de controle

    Mensagem  Jungli em 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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em 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
    avatar
    Jungli
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Jungli em 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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 28/4/2018, 13:52

    Olá a todos,

    Glicerio, veja se ajuda:

    vb-helper.com/howto_invert_color.html

    Abraço
    avatar
    Jungli
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Jungli em 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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 29/4/2018, 20:20

    Olá Glicerio, que bom que conseguiu resolver Wink

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

    Abraço

      Data/hora atual: 24/9/2018, 20:53