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

El lenguaje de programación Visual Basic 2008 de Microsoft hace una serie de tareas de desarrollo extremadamente fácil. Puede cargar y mostrar imágenes usando el control PictureBox intuitiva , por ejemplo. No todas las características que puede venir con una interfaz gráfica de usuario sencilla (GUI ) de la herramienta, sin embargo. Una función de Visual Basic sin una interfaz de fácil es la capacidad de cambiar el tamaño de imágenes importadas en el control PictureBox . De hecho , 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 sobre el mismo , como si fuera a una pantalla. Instrucciones
1

Crear un nuevo proyecto de Visual Basic, y el nombre de
2

doble clic en el botón " componentes" " PictureBox " y en el " " ImageResizer . " Caja de herramientas " lista para añadir estas funciones a su la interfaz gráfica de usuario ( GUI) . ( Por defecto, la lista se abrirá inmediatamente cuando Visual Basic crea un nuevo proyecto. ) Cierre el cuadro de herramientas y haga clic en el cuadro de imagen --- un componente GUI que muestra una imagen. Haga clic en "Propiedades" en el menú desplegable para abrir la lista de " Propiedades" . Encuentre la propiedad " Image " , y haga clic en el ListBox que aparece junto a ella para seleccionar una imagen de su disco duro que le gustaría cambiar de tamaño. Este componente presenta un botón para hacer 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 abrirá el editor de código fuente para el cambiar el tamaño de código que se activará tan pronto como el usuario de su programa hace clic en el botón. Pega el siguiente en su interior :

sourceImage Dim como mapa de bits = PictureBox1.Image

NewImage Dim como nuevo Bitmap ( 200200 )

Dim procesador como gráficos = Graphics.FromImage ( NewImage )

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

PictureBox1.Image = newImage

Cambiar el tamaño inicial ( " 200200 " en el código ) de la nueva imagen para el tamaño que usted quisiera utilizar .