Visual Basic 2008 programmeringssprog fra Microsoft gør en række udviklingsopgaver ekstremt let . Du kan indlæse og vise billeder ved hjælp af intuitive PictureBox kontrol , for eksempel. Ikke alle funktioner kan komme med en enkel grafisk brugergrænseflade ( GUI) værktøj , dog. Et Visual Basic fungere uden en brugervenlig grænseflade , er evnen til at ændre størrelsen på importerede billeder i PictureBox kontrol. Faktisk udfører denne operation kræver et trick, der virker positivt hackerish : Du skal oprette et nyt billede af den ønskede størrelse og trække det forrige billede på det , som om at en skærm. Instruktioner
1
Opret et nyt Visual Basic-projekt , og navngive den " ImageResizer ".
2
Dobbeltklik på " PictureBox " og " Button " komponenter i " Toolbox " liste for at tilføje disse funktioner til din din grafisk brugergrænseflade ( GUI) . ( Som standard vil denne liste åbner straks, når Visual Basic opretter et nyt projekt. ) Luk Værktøjskassen og højreklik på PictureBox --- en GUI komponent, der viser et billede. Klik på "Egenskaber " på drop- down menuen for at åbne "Egenskaber " liste. Find "Image " ejendom , og klik på ListBox der vises ud for den for at vælge et billede fra din harddisk, som du gerne vil ændre størrelsen på. Denne komponent præsenterer en knap for dig til at klikke , det ligner en normal Windows -knap
3
Dobbeltklik på den knap, du lige har tilføjet , . Denne handling vil åbne kildekoden editor til resize kode, der vil aktivere , så snart brugeren af dit program klikker på knappen . Indsæt følgende inde i det : Hej
Dim sourceImage som bitmap = PictureBox1.Image
Dim newImage som New Bitmap ( 200.200 )
Dim renderer som grafik = Graphics.FromImage ( newImage )
renderer.drawImage ( sourceImage , 0,0, newImage.Width +1, newImage.Height +1)
PictureBox1.Image = newImage
Skift den oprindelige størrelse ( " 200.200 " i koden ) i nyt billede til den størrelse, du gerne vil bruge .