Il Basic linguaggio Visual 2008 di programmazione di Microsoft fa un certo numero di compiti di sviluppo estremamente facile . È possibile caricare e visualizzare le immagini utilizzando il controllo PictureBox intuitivo , per esempio. Non ogni caratteristica può venire con una semplice interfaccia utente grafica ( GUI ), strumento , tuttavia. Una funzione di Visual Basic senza interfaccia semplice è la possibilità di ridimensionare le immagini importate all'interno del controllo PictureBox . In effetti , l'esecuzione di questa operazione richiede un trucco che sembra positivamente hackerish : è necessario creare una nuova immagine della dimensione desiderata e disegnare l'immagine precedente su di esso , come se a uno schermo. Istruzioni
1
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 .
