|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Imagem/Som/Multimídia)
|
|
 |
Título da Dica: Obter a quantidade de RGB de uma cor (sem API)
|
 |
|
|
|
Postada em 3/6/2003 por X-Crow
Public Function ValorRGB_Cor(ByVal Cor As Long)as Variant
ValorRGB_Cor = Array(CVar(Val(CStr(Cor And &HFF&))), CVar(Val(CStr((Cor And &HFF00&) / 2 ^ 8))), CVar(Val(CStr((Cor And &HFF0000) / 2 ^ 16))))
End Function
Obs.: A função retorna um array...
|
|
|
|
|
