USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

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


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página