Cómo cambiar el tamaño imágenes importadas en Visual Basic 2008

El Visual Basic 2008 lenguaje de programación de Microsoft hace una serie de tareas de desarrollo extremadamente fácil. Puede cargar y visualizar las imágenes utilizando el control de cuadro de imagen intuitiva, por ejemplo. No todas las funciones pueden venir con una herramienta sencilla interfaz gráfica de usuario (GUI), sin embargo. Una función de Visual Basic sin una interfaz fácil es la capacidad de cambiar el tamaño de imágenes importadas en el control PictureBox. En efecto, la realización de esta operación requiere un truco que parece positivamente hackerish: Debe crear una nueva imagen del tamaño deseado y dibujar la imagen anterior en él, como si fuera a una pantalla.

Instrucciones

1 Crear un nuevo proyecto de Visual Basic, y el nombre de "ImageResizer."

2 Haga doble clic en el "cuadro de imagen" y los componentes de "botón" en la lista de "caja de herramientas" para añadir estas funciones a su interfaz gráfica de usuario (GUI). (Por defecto, esta lista se abrirá inmediatamente cuando Visual Basic crea un nuevo proyecto.) Cierre la caja de herramientas y haga clic en el cuadro de imagen --- un componente de interfaz gráfica de usuario que muestra una imagen. Haga clic en "Propiedades" en el menú desplegable para abrir la lista de "Propiedades". Encuentra la propiedad "Imagen", y haga clic en el cuadro de lista que aparece junto a él para seleccionar una imagen de su disco duro que le gustaría cambiar de tamaño. Este componente presenta un botón para que haga clic; se ve como un botón normal de Windows.

3 Haga doble clic en el botón que acaba de agregar; esta acción se abrirá el editor de código fuente para el código de cambio de tamaño que activará tan pronto como el usuario de su programa hace clic en el botón. Pegue el siguiente en su interior:

Dim sourceImage como mapa de bits = PictureBox1.Image

Dim newImage como nuevo mapa de bits (200.200)

renderizador tenue como gráficos = Graphics.FromImage (newImage)

renderer.drawImage (sourceImage, 0,0, newImage.Width + 1, newImage.Height + 1)

PictureBox1.Image = newImage

Cambiar el tamaño inicial ( "200.200" en el código) de la nueva imagen al tamaño que desea utilizar.

Consejos y advertencias

• Para automatizar el proceso de carga de imágenes, introduzca el comando "PictureBox1.Image.Load (nombre de archivo)" en la parte superior del programa para cargar imágenes directamente desde el disco duro en el cuadro de imagen.
• Guardar las imágenes insertando el comando "PictureBox1.Image.Save (nombre de archivo)" al final del programa.