Extraer el valor Rojo, Verde y Azul de un color Hexadecimal.

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

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s