De Visual Basic 2008 programmeertaal van Microsoft maakt een aantal ontwikkelingstaken zeer eenvoudig . U kunt laden en foto's met behulp van de intuïtieve PictureBox controle , bijvoorbeeld weergegeven . Niet elke functie kan worden geleverd met een eenvoudige grafische user interface ( GUI ) gereedschap , echter. Een Visual Basic-functie zonder een eenvoudige interface is de mogelijkheid om het formaat geïmporteerde foto's binnen de PictureBox controle. Inderdaad , het uitvoeren van deze operatie vereist een truc die lijkt positief hackerish : U moet een nieuw beeld van de gewenste grootte te maken en trek het vorige beeld op het, als om een scherm . Instructies
1 Maak een nieuwe Visual Basic -project , en noem maar op " ImageResizer . " Kopen van 2 Dubbelklik op het " PictureBox " en " Button " componenten in het " toolbox " lijst om deze functies toe te voegen aan uw uw grafische gebruikersinterface ( GUI ) . ( Standaard wordt deze lijst direct te openen bij Visual Basic zorgt voor een nieuw project . ) Sluit de Toolbox en de rechtermuisknop op de PictureBox --- een GUI- component die een afbeelding weergeeft . Klik op "Eigenschappen " op het drop - down menu aan de " Eigenschappen" te openen . Zoek de " Beeld " eigendom , en klik op de ListBox dat naast het lijkt om een beeld te selecteren van uw harde schijf die u wilt wijzigen. Deze component biedt een knop voor u om te klikken , het ziet eruit als een normale Windows-knop
3 Dubbelklik op de knop die u zojuist hebt toegevoegd ; . Deze actie zal de broncode-editor te openen voor de resize code dat zodra de gebruiker van je programma op de knop klikt zal activeren. Plak het volgende erin : Dim sourceImage
als Bitmap = PictureBox1.Image
Dim newImage als New Bitmap ( 200200 ) Dim renderer
als Graphics = Graphics.FromImage ( newImage ) renderer.drawImage
( sourceImage , 0,0 , newImage.Width 1 , newImage.Height 1 ) PictureBox1.Image = newImage
Verander de oorspronkelijke grootte ( " 200200 " in de code ) van de nieuwe afbeelding aan de grootte die u wilt .
gebruiken |
