Extraindo valores RGB de um valor longo

 

Quando você utiliza uma caixa de diálogo para selecionar uma cor, ou manipula qualquer uma das propriedades referentes a cores dos controles (ForeColor, BackColor), o valor é retornado em uma variável do tipo longo, ou seja, um número que identifica a cor.
A tabela abaixo lista alguns exemplos:

Azul	16711808
Amarelo	65535
Vermelho	255
Verde	65280

Assim fica difícil de saber qual o percentual de vermelho, verde e azul utilizado para gerar a cor.
Através de uma pequena fórmula é possível decompor o valor longo em cada um dos valores RGB:

Vemelho = valor_longo And &HFF&
Verde = (valor_longo And &HFF00&) / 256
Azul = (valor_longo And &HFF0000) / 65536

onde valor_longo é a variável contendo o valor numérico da cor.

Está disponível para download o código-fonte do projeto, criado em VB5:
vb_project1.zip - 4 kb