Visual Basic - Que color es un Pixel??

Life is soft - evento anual de software empresarial
 
Vista:

Que color es un Pixel??

Publicado por Francisco Rossi (Stone Cold) (15 intervenciones) el 25/03/2001 21:46:32
Como puedo saber que color es un pixel, pero de ese color saber cuanto se de rojo, verde y azul, como por ejemplo

color = Point(1,1)

rojo = rojo(color)
verde = verde(color)
azul = azul(color)

Gracias...
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Que color es un Pixel??

Publicado por José Ariel (165 intervenciones) el 26/03/2001 14:18:44
Utiliza esta funcion

Public Function LongToRgb(ByVal lColor As Long, Byref Red as long, Byref Green as long, Byref Blue as long) As Long
Blue = lColor \ 65536
Green = (lColor - (Blue * 65536)) \ 256
Red = lColor - (Blue * 65536) - (Green * 256)
End Function

PD. En vez de point podes utilizar la API GetPixel que es bastante mas rápida.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Que color es un Pixel??

Publicado por Vidal (1 intervención) el 30/03/2001 00:57:22
Que onda Stone Cold?
Quizá el siguiente código te ayude:

Dim R As Long, G As Long, B As Long
Dim sRGB As String

sRGB = Right("000000" & Hex(Point(x, y)), 6)

R = CLng("&H" & Mid(sRGB, 5, 2))
G = CLng("&H" & Mid(sRGB, 3, 2))
B = CLng("&H" & Mid(sRGB, 1, 2))
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar