0
Gracias

Unas palabras de agradecimiento nunca están de más.

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

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


0
Gracias

Unas palabras de agradecimiento nunca están de más.

Haz una pregunta
Nuestros contenidos son redactados en colaboración con expertos del ámbito tecnológico bajo la dirección de Jean-François Pillou, fundador de CCM.net y director digital en el Grupo Figaro. CCM es un sitio de tecnología líder a nivel internacional y está disponible en 11 idiomas.

0 Comentario