Con estas funciones podrás extraer el valor RGB de Rojo, Verde y Azul de un valor Hexadecimal.
Public Function RedFromRGB(ByVal RGB As Long) As Integer
RedFromRGB = &HFF& And RGB
End Function
Public Function GreenFromRGB(ByVal RGB As Long) As Integer
GreenFromRGB = (&HFF00& And RGB) 256
End Function
Public Function BlueFromRGB(ByVal RGB As Long) As Integer
BlueFromRGB = (&HFF0000 And RGB) 65536
End Function
Publicado en es.comp.lenguajes.visual-basic por iNFiNiTY
Posted
dom, nov 4 2001 18:20
by
Maverick