Red de conocimiento informático - Problemas con los teléfonos móviles - ¿Cómo encuentra VB el color especificado en el área especificada?

¿Cómo encuentra VB el color especificado en el área especificada?

Puedes utilizar la función getpixel:

Declarar la función GetPixel Lib "gdi32" alias "GetPixel" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) As Long

Descripción

Obtiene el valor RGB del píxel en la escena del dispositivo especificado

Valor de retorno

Long, el color RGB del punto especificado. ScaleMode = 3

End Sub

Sub privado Form_MouseMove(Botón como entero, Mayús como entero, X como Mayús como entero, X como único, Y como único)

Atenuar x1, x2, y1, y2 como entero

Atenuar color mientras

x1 = 0

x2 = Me.Width

y1 = 0

y2 = Me.Height

Dim r1, g1, b1 como entero

Si (x1 < X < x2 And y1 < Y < y2) Entonces

color = GetPixel(Me.hdc, X, Y)

Depurar.Imprimir color

Si color = 0 Entonces imprime X, Y

Finalizar si

Finalizar sub