Sección de códigos , trucos y ejemplos para visual basic

114 - Obtener el valor RGB de un long

La siguiente función permite recuperar el valor RGB ( Rojo - Verde - Azul ) de un color a partir del valor de un Long.

La función tiene 4 parámetros que son los siguientes

Al primero, le debemos enviar el color, los otros 3 retornan el resultado con los valores RGB del color

Código fuente en el formulario

Private Sub Obtener_RGB( _ ByVal Color As Long, _ Rojo As Byte, _ Verde As Byte, _ Azul As Byte) Azul = (Color And 16711680) / 65536 Verde = (Color And 65280) / 256 Rojo = Color And 255 End Sub Private Sub Command1_Click() Dim Rojo As Byte, Verde As Byte, Azul As Byte 'Le enviamos en el primer parámetro el valor del color _ La función retorna en las variables el valor RGB Call Obtener_RGB(&HFFC0C0, Rojo, Verde, Azul) Me.Print "Rojo : " & Rojo Me.Print "Verde : " & Verde Me.Print "Azul : " & Azul 'Colocamos el color de fondo pasandole a la función de vb RGB los valores Me.BackColor = RGB(Rojo, Verde, Azul) End Sub

Recursos vb 6.0 - Enlaces relacionados

Buscar en Recursos vb