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

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.

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.

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.

Desenvolva a situação para ver se entendemos melhor

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

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.

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.

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.

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

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.

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

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

Obrigado Mestres.