Creare un nuovo progetto di Visual Basic e denominarlo
2
doppio clic componenti " tasto" " PictureBox " e nella " " ImageResizer . " Toolbox "lista per aggiungere queste funzioni per il vostro l'interfaccia utente grafica (GUI ) . ( Per impostazione predefinita , questo elenco si aprirà immediatamente quando Visual Basic crea un nuovo progetto . ) Chiudere la casella degli strumenti e fare clic con il PictureBox --- un componente GUI che visualizza un'immagine. Fare clic su "Proprietà" dal menu a discesa per aprire la lista "Proprietà" . Trovare la proprietà "Immagine" , e fare clic sul controllo ListBox che appare accanto ad essa per selezionare un'immagine dal disco rigido che si desidera ridimensionare . Questo componente presenta un pulsante che si faccia clic , si presenta come un normale pulsante di Windows
3 Fare doppio clic sul pulsante appena aggiunto , . Questa azione si aprirà l'editor di codice sorgente per la ridimensionare il codice che attiverà non appena l'utente del vostro programma fa clic sul pulsante . Incolla il seguente al suo interno :
Dim sourceImage come Bitmap = PictureBox1.Image
Dim newImage come New Bitmap ( 200,200 ) per
Dim renderer come grafica = Graphics.FromImage ( newImage ) per
renderer.drawImage ( sourceImage , 0,0, newImage.Width +1 , newImage.Height +1 ) per
PictureBox1.Image = newImage
Modificare la dimensione iniziale ( " 200.200 " nel codice ) della nuova immagine alla dimensione che si desidera utilizzare .
Programmazione © www.354353.com