Si el color de un pixel es blanco, entonces:

[prometanatelo]

Gente, alguna idea de como hacer esto, osea, todo el codigo y q ande?

Código:

Private Sub Command1_Click()
If ColorPixel(X, Y) = FFFFFF Then
msgbox "Your color is White"
else
msgbox "Your color is not White"
End If
End Sub

Muchas gracias, desde ya espero su respuesta, buen fin de semana =)

P.D: Soy de Argentina, y nuevo en estos foros

[Fabuazul]

Iniciado por prometanatelo

Gente, alguna idea de como hacer esto, osea, todo el codigo y q ande?

Código:

Private Sub Command1_Click()
If ColorPixel(X, Y) = FFFFFF Then
msgbox "Your color is White"
else
msgbox "Your color is not White"
End If
End Sub

Muchas gracias, desde ya espero su respuesta, buen fin de semana =)

P.D: Soy de Argentina, y nuevo en estos foros

Pon entre comillas el color y al principio agrega un &, ejemplo:

"&FFFF"

Salu2 y benvenuto!!!

[prometanatelo]

no anduvo =(

[[EX3]]

Los valores hexadecimales en VB se representan de esta forma:
&H + XX + XX + XX +XX

En este caso el blanco en formato RGB seria &HFFFFFF

Salu2...