The Visual Basic 2008 programmeringsspråk från Microsoft gör ett antal utvecklingsuppgifter extremt lätt . Du kan läsa och visa bilder med intuitiva PictureBox kontroll , till exempel . Inte alla funktioner kan komma med ett enkelt grafiskt användargränssnitt ( GUI ) verktyget , dock . En Visual Basic-funktion utan ett enkelt gränssnitt är möjligheten att ändra storlek på importerade bilder inom PictureBox kontroll . Faktum är att utföra den här åtgärden krävs ett trick som verkar positivt hackerish : Du måste skapa en ny bild av önskad storlek och rita den föregående bilden på den , som om att en skärm . Instruktioner
1
Skapa ett nytt Visual Basic -projektet , och kalla den " ImageResizer . "
2
Dubbelklicka på " PictureBox " och " Knapp " komponenter i " Toolbox " lista för att lägga till dessa funktioner till din din grafiska användargränssnitt ( GUI ) . ( Som standard kommer denna lista öppnas omedelbart när Visual Basic skapar ett nytt projekt . ) Stäng verktygslådan och högerklicka på PictureBox --- en GUI komponent som visar en bild . Klicka på "Egenskaper " på den nedrullningsbara menyn för att öppna " Egenskaper " lista . Hitta " Image " egendom , och klicka ListBox som visas bredvid den för att välja en bild från din hårddisk som du vill ändra storlek på . Denna komponent utgör en knapp för dig att klicka på , det ser ut som en vanlig Windows- knappen
3
Dubbelklicka på knappen som du just lagt till , . Denna åtgärd kommer att öppna redigeraren källkoden för ändra storlek kod som aktiveras så snart användaren av ditt program klickar på knappen . Klistra in följande i det :
Dim sourceImage som Bitmap = PictureBox1.Image
Dim newimage som New Bitmap ( 200,200 ) katalog
Dim renderare som grafik = Graphics.FromImage ( newimage ) katalog
renderer.drawImage ( sourceImage , 0,0 , newImage.Width +1 , newImage.Height +1 ) katalog
PictureBox1.Image = newimage
Ändra ursprungliga storleken ( " 200,200 " i koden ) av den nya bilden till den storlek du vill använda .
