Visual Basic programmeringsspråk från Microsoft gör det enkelt att göra en massa saker , särskilt när det blir dags att utforma ett användargränssnitt med drag- och - släpp komponenter . Men vissa uppgifter är inte så intuitivt , såsom bildens storlek ändras . Det kan tyckas självklart för den inbyggda Image klassen att ha en resize metod , men ingen sådan lycka . Dock är uppgiften inte omöjligt , det bara kräver lite counter- intuitiv användning av drawImage metoden i klassen Graphics . Instruktioner
1
Öppna din Visual Basic-projekt och dra en PictureBox från Toolbox i formuläret . Även om det är stilla utvalt , går till fönstret Egenskaper i det nedre högra och hitta den " bild " egendom . Klicka på listrutan och välj en bild från din hårddisk som du vill ändra storlek på .
2
Dra en knapp kontroll från verktygslådan till formuläret . I egenskapsfönstret , byter namn egenskapen att " ändra storlek ".
3
Dubbelklicka på knappen som du lade till i steg två . Detta kommer att skapa en händelse metod och flytta markören till den automatiskt . Klistra in följande i det :
Private Sub Button1_Click ( ByVal avsändaren som System.Object , ByVal e Som System.EventArgs ) Handtag Button1.Click
Dim källa som bitmapp = PictureBox1.Image
Dim dest_image Som New Bitmap ( 200 , 200 ) katalog
Dim g Som Graphics = Graphics.FromImage ( dest_image ) katalog
g.DrawImage ( källa , 0 , 0 , dest_image.Width + 1 , dest_image.Height + 1 ) katalog
PictureBox1.Image = dest_image
End Sub
normalt skulle du använda ett grafiskt objekt för att rita en bild på skärmen , men denna metod tar en något annorlunda strategi . Istället tar bilden från PictureBox och drar en kopia av den på en annan bild , som heter dest_image , vilket vi initieras till en mindre storlek . Därefter sjunker det den gamla bilden och berättar PictureBox att visa den nya , mindre bild istället .
