MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

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

    Compartilhe

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em Qua 18 Set 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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  criquio em Qua 18 Set 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: [Você precisa estar registrado e conectado para ver este link.]

    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.


    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em Qua 18 Set 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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  criquio em Qua 18 Set 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: [Você precisa estar registrado e conectado para ver este link.]

    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.


    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em Qua 18 Set 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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  criquio em Qua 18 Set 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: [Você precisa estar registrado e conectado para ver este link.]

    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.


    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em Qua 18 Set 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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  criquio em Qua 18 Set 2013, 21:18

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


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Avelino Sampaio em Qua 18 Set 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!


    .................................................................................
    ============ Quer aprender Access em alta velocidade ? ============

    || [Você precisa estar registrado e conectado para ver esta imagem.] Acesse o site UsandoAccess.com.br e veja um ótimo kit de ensino que tenho para você.

    ===========================================================

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em Qua 18 Set 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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

    HARYSOHN
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 12246
    Registrado : 01/03/2011

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

    Mensagem  HARYSOHN em Sab 02 Nov 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.


    .................................................................................
    PILOTO
    الله أكبر Paz, Justiça e Liberdade! الله أكبر
    CLIQUE AQUI E VEJA O VÍDEO >>> BIOMETRIA EM ACCESS

    Iniciando no Access? Então veja esse tópico e também esse


    BUSCA NO FÓRUM - CLIQUE AQUI!!!

    Quando tua dúvida for RESOLVIDA, dê retorno com AGRADECIMENTO a aqueles que gastaram seu tempo em te ajudar.
    Clique no botão Resolvido logo acima do botão Enviar, do lado direito. Todos nós agradecemos.  
    [Você precisa estar registrado e conectado para ver esta imagem.]

      Data/hora atual: Sab 03 Dez 2016, 04:36