VB6: encontrar los valores RGB de un color

Enero 2017


Dim R as integer 
Dim G as integer 
Dim B as integer 

Sub EncontrarRGB(Col As Long) 
    R = &HFF& And Col  
    G = (&HFF00& And Col ) \ 256 
    B = (&HFF0000 And Col ) \ 65536 
End Sub

Y lo inverso:
Function EncontrarCol(R As Long, G As Long, B As Long) As Long 
    EncontrarCol = R + (G * 256) + (B * 65536) 
End Function


Consulta también

Publicado por Carlos-vialfa. Última actualización: 9 de marzo de 2010 a las 20:54 por Carlos-vialfa.
El documento «VB6: encontrar los valores RGB de un color» se encuentra disponible bajo una licencia Creative Commons. Puedes copiarlo o modificarlo libremente. No olvides citar a CCM (es.ccm.net) como tu fuente de información.