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

Gráficos (Líneas, figuras geométricas)

En el namespace system.drawing podemos encontrar todo lo necesario para poder crear líneas y figuras geométricas que ayuden a mejorar la presentación de las aplicaciones que desarrollados, y lo mejor es que lo podemos hacer con unas pocas líneas de código.

Pero ¿cómo creamos la figura?, lo primero es crear un objeto del tipo graphics, luego creamos un pen, y luego llamamos el método de graphics según sea lo que vamos a dibujar ej. DrawPie, DrawRectangle, DrawLine, DrawEllipse, entre otros. Pero veamos un ejemplo concreto (se requiere una Windows aplication):

Dim figura As Drawing.Graphics Dim lapiz As New Pen(Color.Chocolate, 5) figura = Me.CreateGraphics figura.DrawEllipse(lapiz, 80, 50, 30, 30) figura.DrawEllipse(lapiz, 160, 50, 30, 30) figura.DrawEllipse(lapiz, 10, 10, 250, 250) figura.DrawLine(lapiz, 135, 100, 135, 140) figura.DrawArc(lapiz, 90, 100, 90, 90, -180, -180)

También este namespace tiene otras utilidades para controlar la posición, tamaño, y el aspecto de los controles visuales. Veamos:

Empezando por lo más básico, una de las primeras cosas que tenemos que definir es la posición de la figura que deseamos dibujar, para esto usamos el sistema de coordenadas "x" y "y". Donde "x" es la distancia en pixeles desde el límite izquierdo y "y" es la distancia en pixeles desde el límite superior de nuestro contenedor, por ejemplo.

Control.Location = New Point(10, 10)

También es muy común definir el tamaño de la figura, para esto definimos el ancho y el alto de la siguiente forma.

Control.Size = New Size(30, 30)

Una vez definida la posición y el tamaño podemos definirle el color. Veamos,

Control. BackColor = Color.Blue