Manipulando imágenes

El dot net framework nos brinda algunas herramientas para realizar algunas labores comunes con imágenes. El namespace System.Drawing.Image nos brinda las utilidades necesarias para trabajar con BMP, JPG y TIF, realizando labores como agregarles texto, marcas de agua o cambiarles el tamaño.

Veamos cómo realizar algunas labores comunes,

Cargar una imagen previamente guardada en disco:

Dim Foto As Image = Image.FromFile("C:\Foto.bmp")

Crear una nueva imagen de 640 por 480 pixeles

Dim nueva_imagen As Bitmap = New Bitmap(640, 480)

En el siguiente ejemplo se crea una imagen nueva y se le agrega un rectángulo y un texto y luego se guarda en disco.

Imports System.drawing Imports System.Drawing.Imaging Module Module1 Sub Main() Dim Nueva_imagen As New Bitmap(640, 480) Dim Nuevo_Grafico As Graphics = Graphics.FromImage(Nueva_imagen) Dim brocha As Brush = Brushes.AliceBlue Dim letra As New Font("Arial", 12, FontStyle.Bold) Dim formato As New StringFormat() formato.Alignment = StringAlignment.Center formato.LineAlignment = StringAlignment.Center Nuevo_Grafico.DrawRectangle(Pens.White, 10, 10, 220, 100) Nuevo_Grafico.DrawString("Creando Nueva Imagen", letra, Brushes.DarkGreen, 110, 50, formato) Nueva_imagen.Save("c:\temp\prueba.jpg", ImageFormat.Jpeg) End Sub End Module