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


2 participantes

    [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos

    avatar
    Convidado
    Convidado


    [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos Empty Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos

    Mensagem  Convidado 18/9/2013, 19:16

    Boa tarde amigos, tenho uma tabela contendo nomes de cores em vb
    Como declarar uma variável para receber o nome desta cor e poder utulizar a variável para aplicar cores a objetos?


    Dim strCor As ????
    Me.Comando8.ForeColor = strCor

    Exemplo de uma cor:
    vbApplicationWorkspace

    Cumprimentos.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos Empty Re: [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos

    Mensagem  criquio 18/9/2013, 19:20

    E aí grande, tudo na paz?

    Não serve apenas pegar o nome da cor igual fiz naquele exemplo de alteração de formulário em tempo real? Ou talvez declarar como Single e usar as cores numéricas do jeito daquelas na tabela de cores do exemplo.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


    [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos Empty Re: [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos

    Mensagem  Convidado 18/9/2013, 19:42

    Encontrei em um tópico aqui no Fórum uma sugestão utilizando o Enum. porém só funciona para as cores constantes do VBA

    As cores que tenho funcionam diretamente no objeto mas não no enum.


    Public Enum Cor
        vb3DDKShadow = vb3DDKShadow
        vb3DFace = vb3DFace
        vb3DHighlight = vb3DHighlight
        vb3DLight = vb3DLight
        vb3DShadow = vb3DShadow
        vbActiveTitleBar = vbActiveTitleBar
        vbButtonFace = vbButtonFace
        vbButtonShadow = vbButtonShadow
        vbButtonText = vbButtonText
        vbDesktop = vbDesktop
        vbGrayText = vbGrayText
        vbHighlight = vbHighlight
        vbHighlightText = vbHighlightText
        vbInactiveBorder = vbInactiveBorder
        vbInactiveCaptionText = vbInactiveCaptionText
        vbInactiveTitleBar = vbInactiveTitleBar
        vbInactiveTitleBarText = vbInactiveTitleBarText
        vbInfoBackground = vbInfoBackground
        vbInfoText = vbInfoText
        vbMenuBar = bMenuBar
        vbMenuText = vbMenuText
        vbScrollBars = vbScrollBars
        vbTitleBarText = vbTitleBarText
        vbWindowBackground = vbWindowBackground
        vbWindowFrame = vbWindowFrame
        vbWindowText = vbWindowText
    End Enum



    Ideias?


    Cumprimentos.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos Empty Re: [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos

    Mensagem  criquio 18/9/2013, 19:46

    Desenvolva a situação para ver se entendemos melhor Laughing

    O que e como está fazendo e que resultado precisa obter?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


    [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos Empty Re: [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos

    Mensagem  Convidado 18/9/2013, 20:08

    Tenho uma tabela contendo o nome das cores
    Um recordset baseado nesta tabela

    Um botão que move o registro do recordset modificando a cor do objeto de acordo com a cor no campo do Rs.

    Cumprimentos.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos Empty Re: [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos

    Mensagem  criquio 18/9/2013, 20:22

    Me parece que seria exatamente o que está no exemplo que passei no link do meu primeiro post. Observe lá como, ao se mover entre os registros, o botão embaixo vai mudando de cor, colocando a cor do botão no final de cada linha que por sua vez é colorido de acordo o valor inserido no campo com o número da cor.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidado
    Convidado


    [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos Empty Re: [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos

    Mensagem  Convidado 18/9/2013, 20:55

    Sim.. porém não funciona com estas cores acima..

    Se coloco o nome diretamente no vb funciona.. mas se utillizo de um recordset não.

    Creio que não há solução para esta nomenclaria conforme desejo.


    Cumprimentos.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos Empty Re: [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos

    Mensagem  criquio 18/9/2013, 21:18

    Os nomes das cores na tabela está como vb3DDKShadow, vb3DFace, vb3DHighlight, etc.?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos Empty Re: [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos

    Mensagem  Avelino Sampaio 18/9/2013, 21:29

    O Enun irá funcionar se vc fizer uma pequena alteração no nome das variáveis, pois não podem ter o mesmo nome das constantes

    Errado:

    vb3DDKShadow = vb3DDKShadow

    Certo:

    vb3DDKShadow_e = vb3DDKShadow

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Convidado
    Convidado


    [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos Empty Re: [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos

    Mensagem  Convidado 18/9/2013, 22:38

    Ai que está a questão avelino...

    Eu queria utiliza o proprio nome da cor contido na tabela para concatenar na hora que chamar o Enum... Veja se entende.

    Vejamos para a cor:  vb3DDKShadow = vb3DDKShadow

    Então eu pensei que seria possível fazer assim:

    Dim StrCor as string
    StrCor = Rs!NomeCor
    Me.Controle.BackColor = Cor(StrCor)

    Algo assim... não sei se compreendeu...

    Mas se não dá.. paciência..
    Verei criando um segundo campor com o nome da cor sucedido de um caracter _e

    Depois dou retorno.

    Cumprimentos.
    avatar
    Convidado
    Convidado


    [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos Empty Re: [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos

    Mensagem  Convidado 2/11/2013, 12:32

    Como não utilizei esta solução, ainda não a resolvi.

    Retornarei assim que for necessário a aplicação desta.

    Obrigado Mestres.

    Conteúdo patrocinado


    [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos Empty Re: [Resolvido]Aplicar o nome de uma cor a uma variável e utilizar a variável para colorir objetos

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:52