Problema con GetPixel

[Augusto1987]

Cuando uso GetPixel siempre devuelve "-1". ¿Qué es lo que estoy haciendo mal?
Este es el código:

Private Declare Function GetPixel Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Print GetPixel(hdc, x, y)
End Sub

Gracias!

[GeoAvila]

pero de que deseas obtenes el pixel, de la pantalla, del form, de un picture..

eso es lo que te falta..

nos vemos..

[Augusto1987]

Poniéndo así: Print GetPixel(form1.hdc(o picture1.hdc), x, y) - también me pasa lo mismo :S

[Beakdan]

La API usa como unidades pixeles. VB devuelve en el evento MouseDown Twips. Obviamente, al pasarle estos valores, la coordenada que estás indicando, queda fuera del área del DC especificado y por lo tanto devuelve -1.
Lo que debes hacer, es cambiar la escala de tu formulario a vbPixels, en el evento Load, o convertir las unidades en el evento MouseDown con las funciones ScaleX y ScaleY.

[Augusto1987]

Voy a probar con eso. Muchas gracias

[David]

Iniciado por Beakdan

La API usa como unidades pixeles. VB devuelve en el evento MouseDown Twips. Obviamente, al pasarle estos valores, la coordenada que estás indicando, queda fuera del área del DC especificado y por lo tanto devuelve -1.
Lo que debes hacer, es cambiar la escala de tu formulario a vbPixels, en el evento Load, o convertir las unidades en el evento MouseDown con las funciones ScaleX y ScaleY.

Bueno, también podrías hacerlo asi:
X / Screen.TwipsPerPixelX
Y / Screen.TwipsPerPixelY
a la hora de pasar a la funcion

ok....