Ejemplos usando el Api de windows para Visual basic

6 - Invertir los colores de una imagen

Ejemplo del Api-guide que muestra como invertir los colores de una imagen usando las funciones Api GetObject, GetBitmapBits y SetBitmapBits

Formulario con los gráficos

invertir colores de un mapa de bits o gráfico con algunoas funciones Api de windows

Controles

Colocar un control PictureBox llamado Picture1 ( para el gráfico original )
Un control CommonDialog
y un Command1 para seleccionar una imagen del disco.

Código fuente en un formulario:

Option Explicit 'Declaraciones del Api de windows '************************************** 'Api GetObject Private Declare Function GetObject Lib "gdi32" Alias "GetObjectA" ( _ ByVal hObject As Long, _ ByVal nCount As Long, _ lpObject As Any) As Long 'Api GetBitmapBits Private Declare Function GetBitmapBits Lib "gdi32" ( _ ByVal hBitmap As Long, _ ByVal dwCount As Long, _ lpBits As Any) As Long 'Api SetBitmapBits Private Declare Function SetBitmapBits Lib "gdi32" ( _ ByVal hBitmap As Long, _ ByVal dwCount As Long, _ lpBits As Any) As Long 'Estructuta Bitmap para la imagen Private Type BITMAP bmType As Long bmWidth As Long bmHeight As Long bmWidthBytes As Long bmPlanes As Integer bmBitsPixel As Integer bmBits As Long End Type '************************************** 'Variables, constantesw y UDT '************************************** Dim PicBits() As Byte Dim PicInfo As BITMAP Dim Cnt As Long Dim BytesPerLine As Long Private Sub Invertir_Color_Imagen(Objeto As Object) 'Obtenemos información de la imagen Call GetObject(Objeto.Image, Len(PicInfo), PicInfo) BytesPerLine = (PicInfo.bmWidth * 3 + 3) And &HFFFFFFFC ReDim PicBits(1 To BytesPerLine * PicInfo.bmHeight * 3) As Byte ' Copia la imagen del picturebox picture1 en el Array Call GetBitmapBits(Objeto.Image, UBound(PicBits), PicBits(1)) 'Invierte los bytes de la imagen, es decir del array For Cnt = 1 To UBound(PicBits) PicBits(Cnt) = 255 - PicBits(Cnt) Next 'Establecemos los cambios en la imágen cargada. Call SetBitmapBits(Objeto.Image, UBound(PicBits), PicBits(1)) 'Refrescamos el Picturebox Objeto.Refresh End Sub 'Abre el CommonDialog para seleccionar una imagen del disco '*************************************************************** Private Sub Command1_Click() With CommonDialog1 .DialogTitle = " Seleccionar imagen " .ShowOpen If .FileName = vbNullString Then Exit Sub Else 'Hasta que no se invierte la imagen no se hace visible Picture1.Visible = False Picture1.Picture = LoadPicture(.FileName) ' Le pasa como parámetro el control Picturebox Call Invertir_Color_Imagen(Picture1) 'Se hace visible el picturebox Picture1.Visible = True End If End With End Sub Private Sub Form_Load() Picture1.AutoSize = True Command1.Caption = " Cargar imagen " End Sub

Enlaces relacionados:

Buscar en Recursos vb