Ako zmeniť obrázky v jazyku Visual Basic

Ak potrebujete používať viac obrázkov v projekte Visual Basic , nemusíte mať desiatky kontrol PictureBox , zobrazovanie a skrývanie je podľa potreby . Namiesto toho použite ovládací prvok Imagelist udržiavať zbierku obrazov . Vytvorením indexu premenné , môžete zmeniť obrázky zobrazené v programe . Imagelist sám potrebuje ďalšie ovládacie prvky pre prístup a zmeniť aktívny snímok v programe , ako je napríklad príkazové tlačidlá . Použite Ak vyhlásenie skontrolovať hodnotu indexu obrazu , aby nedochádzalo k runtime chyby v programe . Pokyny dovolená 1

Otvorte projekt aplikácie Visual Basic v režime návrhu . Dvakrát kliknite na ovládací prvok " Imagelist " pridať jeden do projektu . Tento ovládací prvok sa nezobrazí ako fyzický ovládací prvok na formulári , takže nemusíte konfigurovať svoj ​​vzhľad alebo názov ho odlíšiť , ak chcete .
2

Kliknite na " ImageList1 " riadiť vás pridal otvoriť svoj ​​zoznam vlastností . Kliknite na " Obrázky " Vlastnosti a potom do poľa s " ... " v nej . Tým sa otvorí " Image Collection Editor " dialógové okno , kde môžete uložiť svoju zbierku obrazov .
3

Kliknite na tlačidlo " Pridať " . Prejdite systémové súbory pre obrázky a pridať do kolekcie Imagelist . Môžete pridať viac ako jeden snímok naraz , ak sú v rovnakých zložkách . Všimnite si , že obrazy začínajú na indexe nula v " Členovia " zoznamu . Po dokončení pridávania obrázkov do kolekcie , kliknite na tlačidlo " OK " .
4

Double - kliknite na " PictureBox " ovládací prvok z panela nástrojov pridať tento ovládací prvok zoznamu . Tiež, dvakrát kliknite na ovládacie tlačidlá " " dvakrát pridať dve z týchto ovládacích prvkov rovnako . Usporiadať ovládacie prvky majú dve tlačidlá zobrazená v rade PictureBox nad nimi . Zmeňte " text " majetok za ľavým tlačidlom na " predchádzajúce " a " text " majetku za pravým tlačidlom na " Ďalšie " .
5

Otvorte okno kód . Vytvoriť globálnu premennú sledovať indexu obrazu zadaním nasledujúceho :

Dim ImageIndex ako Short = 0
6

Vstúpte do " Button1_Click " sub a zadajte nasledujúci príkaz :

Ak ImageIndex = 0 Then

ImageIndex = ImageList1.Images.Count ( ) - 1

PictureBox1.Image = ImageList1.Images.Item ( ImageIndex )

Inak

ImageIndex - = 1

PictureBox1.Image = ImageList1.Images.Item ( ImageIndex )

End If

testuje vidieť , kde index je . Ak používateľ klikne na tlačidlo "Späť " a index ukazuje na prvú položku v Imagelist , sa index pohybuje na poslednom obrázku v Imagelist a zobrazí ho . V opačnom prípade zníži index o jednu a zobrazí túto index obrázku
7

Vstúpte do " Button2_Click " sub a zadajte nasledujúci príkaz : .

Ak ImageIndex = ImageList1.Images.Count ( ) - 1 Potom

ImageIndex = 0

PictureBox1.Image = ImageList1.Images.Item ( ImageIndex )

Else

ImageIndex + = 1

PictureBox1.Image = ImageList1.Images.Item ( ImageIndex )

End If

ako tlačidlo "Späť " , tento testov vidieť , kde index je . Ak používateľ klikne na tlačidlo "vpred " a index ukazuje poslednú položku v Imagelist , že index sa vráti do prvej z Imagelist položiek a zobrazí ho . V opačnom prípade zvýši index raz a zobrazí ten obraz .

• Predchádzajúca strana: Ako sa pripojiť k MDB Prostredníctvom jazyka 
• Ďalšia strana: Ako zabrániť Zmena veľkosti v jazyku Visual Basic