Ako zmeniť veľkosť importované obrázky v jazyku Visual Basic 2008

Visual Basic 2008 programovací jazyk od spoločnosti Microsoft je rad vývojových úloh veľmi jednoduché . Môžete načítať a zobraziť obrázky pomocou intuitívneho ovládacieho prvku ovládacieho PictureBox , napríklad. Nie každá funkcia môže prísť s jednoduchým grafickým užívateľským rozhraním ( GUI ) nástroje , však. Jedna funkcia jazyka Visual Basic bez jednoduchým rozhraním je schopnosť meniť veľkosť importované obrázky pod kontrolou PictureBox . Vskutku , vykonávanie tejto operácia vyžaduje trik , ktorý vyzerá pozitívne hackerish : Musíte vytvoriť nový obraz na požadovanú veľkosť a nakreslite predchádzajúcu snímku na neho , ako by sa na obrazovku . Pokyny dovolená 1

Vytvoriť nový projekt Visual Basic , a pomenujte ju " ImageResizer . "
2

Double - kliknite na " PictureBox " a tlačidlo " " komponenty " Toolbox " zoznamu pridať tieto funkcie do vášho grafického používateľského rozhrania ( GUI ) . ( V predvolenom nastavení tento zoznam sa otvorí ihneď po Visual Basic vytvorí nový projekt . ) Zatvorte Toolbox a kliknite pravým tlačidlom myši na PictureBox --- komponent GUI , ktorá zobrazuje obraz . Kliknite na tlačidlo " Vlastnosti " v rozbaľovacej ponuke k otvoreniu " Vlastnosti " zoznam . Nájsť " Image " majetok , a kliknite na listbox , ktorá sa zobrazí vedľa neho a vyberte obrázok z vášho pevného disku , ktorý chcete zmeniť veľkosť . Táto zložka predstavuje tlačidlo pre vás kliknúť , to vyzerá ako normálne tlačidlo Windows
3

Double - kliknite na tlačidlo ste práve pridali , . Táto akcia sa otvorí editor zdrojového kódu pre Zmena veľkosti kód , ktorý sa aktivuje , keď používateľ vášho programu klikne na tlačidlo . Vložte nasledujúci vnútri :

Dim sourceImage ako Bitmap = PictureBox1.Image

Dim NewImage ako New Bitmap ( 200200 )

Dim renderer ako Graphics = Graphics.FromImage ( NewImage )

renderer.drawImage ( sourceImage , 0,0 , newImage.Width +1 , newImage.Height +1 )

PictureBox1.Image = NewImage

Zmeniť počiatočnú veľkosť ( " 200200 " v kóde ) nového obrazu na veľkosť , ktorú chcete použiť .

• Predchádzajúca strana: Ako môžem Prečítajte si riadok po riadku pomocou jazyka Visual Basic ? 
• Ďalšia strana: Ako triediť Arrays Číslicovo v jazyku Visual Basic