VB6 – Leer un Pixel de una Imagen

A muchos de nos interesa poder acceder hasta los pixeles de una imagen.

En esta entrada rápida veremos una forma de como acceder al interior de una imagen para así obtener el color de cada uno de los pixeles que la forman.

Después del éxito de la entrada anterior, que trataba de como manejar una imagen con visual basic 6 y despues de un pequeño dialogo sobre ella, he acabado haciendo un pequeña aplicacion en la que muestro como leer cada pixel de una imagen.

Parto de un formulario diseñado rápidamente, en el que he añadido:

Un CommandButton, en el que ejecutare el código.
Un PictureBox, en el que cargare la imagen a leer.
Y un ListBox, en el que listare el color de cada uno de los pixeles de la imagen.

Lamentablemente (o no…) no utilizaer la libreria ImageMagick®, sino simplemente una API de Windows.

Por tanto necesito declara la funcion de la API:

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

Y este es el código de lectura de los pixeles, muy sencillo ¿verdad?.

Option Explicit

Private Sub cmdComando_01_Click()
'
'--------------------------------------------'
' CON ESTE BOTON CARGAMOS Y LEEMOS LA IMAGEN
'--------------------------------------------'
'
'--------------------------------------------'
' CARGO LA IMAGEN
With Picture1
   .AutoSize = True ' QUIERO TENER LA IMAGEN A TAMAÑO REAL
   .ScaleMode = vbPixels
   .Picture = Nothing
   .Picture = LoadPicture(App.Path & "\Imagen_Lectura.bmp")
   .Refresh
End With
'--------------------------------------------'
' LEO PIXEL A PIXEL (EL COLOR)
List1.Clear
'
Dim lonL_Cont_X_01 As Long
Dim lonL_Cont_Y_01 As Long
Dim lonL_Anchura_Imagen_X_01 As Long
Dim lonL_Altura_Imagen_Y_01 As Long
Dim lonL_Color_Pixel_01 As Long
Dim lonL_Color_R_01 As Long
Dim lonL_Color_B_01 As Long
Dim lonL_Color_G_01 As Long
'
lonL_Anchura_Imagen_X_01 = Picture1.ScaleWidth
lonL_Altura_Imagen_Y_01 = Picture1.ScaleHeight
'
For lonL_Cont_Y_01 = 1 To lonL_Altura_Imagen_Y_01 - 1
   For lonL_Cont_X_01 = 1 To lonL_Anchura_Imagen_X_01 - 1
      ' AQUI ESTA EL TRUCO!!! LA FUNCION GetPixel
      lonL_Color_Pixel_01 = GetPixel(Picture1.hdc, lonL_Cont_X_01, lonL_Cont_Y_01)
      '
      ' SACAR LA DESCOMPOSICION RGB
      lonL_Color_R_01 = lonL_Color_Pixel_01 Mod 256
      lonL_Color_B_01 = Int(lonL_Color_Pixel_01 / 65536)
      lonL_Color_G_01 = (lonL_Color_Pixel_01 - (lonL_Color_B_01 * 65536) _
                                                      - lonL_Color_R_01) / 256
      '
      ' ESTO LO PRESENTAMIOS EN EL LISTBOX
      ' PERO PODRIA HACER OTRAS COSAS...
      List1.AddItem "R=" & lonL_Color_R_01 & " G=" & lonL_Color_G_01 & " B=" & _
      lonL_Color_B_01 & " -- " & RGB(lonL_Color_R_01, _
      lonL_Color_G_01, lonL_Color_B_01)
      ''
   Next
   ''
Next
'--------------------------------------------'
'
''
End Sub

Como veis es solo un pequeño esquema, pero creo que abre bastantes posibilidades para el manipulación de de imágenes.