Mi Blog

El código siguiente invierte los colores de una imagen. El objetivo es aprender a usar las funciones GetPixel y SetPixel. Es muy sencillo.

Public Function invertirColor(ByVal c As Color) As Color

‘Esta función invierte un color restando cada RGB a 255, devolviendo un color invertido

Return Color.FromArgb(System.Math.Abs(255 - c.R), System.Math.Abs(255 - c.G), System.Math.Abs(255 - c.B))

End Function

Public Function invertirColoresImagen(ByVal img as Image) As Image

Dim i, j As Integer

‘Generamos un Bitmap a partir de la imagen

Dim bm As New Bitmap(img)

‘Por cada pixel del bitmap vamos a asignarle su inversa

For i = 0 To bm.Size.Width - 1

For j = 0 To bm.Size.Height - 1

‘Color original

Dim color1 As Color = bm.GetPixel(i, j)

‘Color original invertido

Dim colorN As Color = invertirColor(color1)

Asignamos el nuevo color al pixel actual

bm.SetPixel(i, j, colorN)

Next

Next

Return bm

End Sub

invertirimagen.zip

Esta entrada fue publicada el Jueves, 25 de Enero de 2007 a las 5:38 pm y está clasificada bajo: Visual Basic .NET. Puede hacer un seguimiento de los comentarios de esta entrada gracias al feed RSS 2.0. Puede dejar un comentario, o enviar un trackback desde su sitio.