Aprire il progetto di Visual Basic e trascinare una PictureBox dalla Casella degli strumenti nel form . Mentre è ancora selezionato, andare alla finestra delle proprietà in basso a destra e trovare la proprietà "Immagine" . Fare clic sulla casella di riepilogo e selezionare un'immagine dal disco rigido che si desidera ridimensionare .
2
Trascinare un controllo Button dalla casella degli strumenti nel form . Nella finestra Proprietà modificare la proprietà Name a " ridimensionare ".
3 Fare doppio clic sul pulsante aggiunto nel passaggio due. Questo creerà un metodo di evento e di spostare il cursore in modo automatico . Incolla il seguente al suo interno :
Private Sub Button1_Click ( ByVal sender As System.Object , ByVal e As System.EventArgs ) Handles Button1.Click
Dim source come Bitmap = PictureBox1.Image
Dim dest_image As New Bitmap ( 200 , 200 ) per
Dim g As Graphics = Graphics.FromImage ( dest_image ) per
g.drawImage ( fonte , 0 , 0 , dest_image.Width + 1 , dest_image.Height + 1 ) per
PictureBox1.Image = dest_image
End Sub
Programmazione © www.354353.com