Convertendo valor de cor, no formato HTML(Hexadecimal) para Decimal
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 2x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Até a versão 2003 era utilizado o valor Decimal nas propriedade de um objeto para identificar a cor, porém a partir da versão 2007 passou a ser utilizado o valor HTML (Hexadecimal). Observe na imagem abaixo, o valor selecionado de uma cor (#FCE6D4) para configurar o fundo de um campo.
Se necessitar utilizar a cor(#FCE6D4) pelo VBA, terá que passar para o formato Decimal. Exemplo de como podemos transformar este valor no formato HTML (Hexadecimal) para Decimal:
Cint("&h" & "FC") :::> 252
Cint("&h" & "E6") :::> 230
Cint("&h" & "D4") :::> 212
Pegamos os valores decimais, obtidos de cada parte e passamos para a função RGB().
RGB(252,230,212) :::> 13952764 (valor decimal da cor #FCE6D4)
Para configurar a cor de fundo de um campo, pelo VBA, podemos utilizar os dois formatos válidos:
me!NomedoCampo.BackColor = 13952764
'ou
me!NomedoCampo.BackColor = RGB(252,230,212)
Segue a função que converte o valor HTML para o valor Decimal, válido no VBA:
Public Function fncCorDec(strHTML As String) As Long
Dim p(2) as integer
p(0) = CInt("&h" & Mid(strHTML, 2, 2))
p(1) = CInt("&h" & Mid(strHTML, 4, 2))
p(2) = CInt("&h" & Mid(strHTML, 6, 2))
fncCorDec = RGB(p(0),p(1),p(2))
End Function
Exemplo de uso da função:
me!NomeDoCampo.backColor = fncCorDec("#FCE6D4")Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Aprenda sobre filtragens
Vídeo - Segurança máxima, usando o OPEN
Uma ajuda para quem está começando um negócio ou um projeto
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Programação de relatórios - Parte 1
Integrando o Access com Servidor MySQL - Introdução
Como carregar o seu menu sem que ele vá para lista de suplementos
Adquira o kit UsandoAccess e aprenda em alta velocidade
| Não há comentário |