VB6: encontrar los valores RGB de un color

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

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

Véase también

Comunidad de asistencia y consejos.

• Foro
• Foro de Windows
• Foro de programación
• Foro Móviles/PDA/GPS