VB6: encontrar los valores RGB de un color

Diciembre 2016


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 :
El documento «VB6: encontrar los valores RGB de un color» de CCM (es.ccm.net) se encuentra disponible bajo una licencia Creative Commons. Puedes copiarlo o modificarlo siempre y cuando respetes las condiciones de dicha licencia y des crédito a CCM.