Ejemplos usando el Api de windows para Visual basic

22 - Api GetPixel - obtener el color de un determinado pixel

Este ejemplo simple muestra como obtener el color de un pixel mediante el api GetPixel.

En el Picture1 de la derecha hay una imágen, y cuando pasamos el mouse por encima, ( osea el código está en el evento MouseMove del Picture1), el api GetPixel nos devuelve un valor de tipo Long que indica el color de ese pixel.

Luego le asignamos a la propiedad Backcolor del Picture2 para visualizar el color

Los parámetros de la función son :

Private Declare Function GetPixel Lib "gdi32" ( _
    ByVal hdc As Long, _
    ByVal X As Long, _
    ByVal Y As Long) As Long

Hdc Dispositivo de contexto, en este caso es el Picture1

x e y , Coordenadas en escala de pixeles, del pixel a obtener el color

obtener el color de un Pixel mediante GetPixel

Código fuente en el Form

Option Explicit 'Controles: dos PictureBox(Cargar un gráfico en Picture1) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' 'Función Api GetPixel para obtener el color de un pixel Private Declare Function GetPixel Lib "gdi32" ( _ ByVal hdc As Long, _ ByVal X As Long, _ ByVal Y As Long) As Long Private Sub Form_Load() ' Ponemos el modo de escala en Pixeles Picture1.ScaleMode = vbPixels Picture1.DrawWidth = 3 End Sub Private Sub Picture1_MouseMove(Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) 'valor de retorno del _ api de tipo Long que indica el color Dim Color As Long 'Asinamos el color a la variable Color pasandole _ el Hdc de la ventana que queremos recuperar el color del _ pixel. Luego le indicamos que pixel mediante las coordenadas x e y Color = GetPixel(Picture1.hdc, X, Y) 'Establecemos en el Picture2 el color Picture2.BackColor = Color End Sub

Nota: el ejemplo equivalente con las funciones de visual basic ( función Point )

Option Explicit Private Sub Picture1_MouseMove(Button As Integer, _ Shift As Integer, _ X As Single, Y As Single) 'Establecemos en el Picture2 el color Picture2.BackColor = Picture1.Point(X, Y) End Sub

Relacionados

Función Pset y Point - Métodos gráficos

Buscar en Recursos vb