Ako zmeniť obrázok v jazyku Visual Basic

Ak chcete uložiť zbierku obrázkov v projekte Visual Basic , použite ovládací prvok Imagelist . Jeho funkcie a metódy , ktoré vám pomôžu rýchlo a ľahko meniť obrázky v aplikácii pomocou indexu , ale aj udržuje informácie o tom , ako existuje veľa snímok v kolekcii . Môžete zobraziť obrázky pomocou ovládacieho prvku PictureBox . Máte neobmedzené možnosti , ako zmeniť imidž , ale každá voľba pracuje s rovnakou základnou programovania v mysli . Napríklad , použite " Predchádzajúce " a tlačidla " Next " pre prechádzanie snímok v kolekcii s indexom premenné . Pokyny dovolená 1

Otvorte nový projekt Visual Basic . Pridať všetky ovládacieho prvku PictureBox , ovládací prvok Imagelist a dve tlačidlá do formulára . Usporiadať " Button1 " na ľavej strane PictureBox a " Button2 " na pravej strane .
2

Pravým tlačidlom myši kliknite na " ImageList1 " riadenie a kliknite na tlačidlo " Vybrať obrázky . " V dialógovom okne , ktoré sa objaví , kliknite na tlačidlo " Pridať " . Prechádzať súbory a pridať obrázky do riadenia . Kliknite na tlačidlo " OK " , keď skončíte .
3

Zmeňte vlastnosť názov pre Button1 " bPrevious " a vlastnosť text na " predchádzajúce " , vlastnosť názov pre Button2 na " bNext " a vlastnosť text na " Ďalší obrázok " a názov vlastnosti pre pictureBox1 na " pbPicture . "
4

Stlačte tlačidlo " F7 " sa otvorí okno kód . Zadajte " Dim pictureIndex As Integer " v hornej časti deklarácie triedy vytvoriť premennú , ktorú používate ako index pre vaše Imagelist
5

Otvorte funkciu Form1_Load a zadajte nasledujúci príkaz : .

pictureIndex = 0

pbPicture.Image = ImageList1.Images.Item ( pictureIndex )

nastaví hodnotu indexu premennej na nulu a inicializuje pbPicture s prvú snímku v zozname obrázkov .
6

Otvorte funkciu bPrevious_Click a zadajte nasledujúci príkaz :

Ak pictureIndex = 0 Then

pictureIndex = ImageList1.Images.Count - 1

Inak

pictureIndex = pictureIndex - 1

End If

pbPicture.Image = ImageList1.Images.Item ( pictureIndex )

skontroluje , či index obraz je na začiatku Imagelist , a ak áno , zobrazí poslednú položku v kolekcii . V opačnom prípade zníži index jeden , potom sa zobrazí , že hodnota indexu z Imagelist
7

Otvorte funkciu bNext_Click a zadajte nasledujúci príkaz : .

Ak pictureIndex = ImageList1.Images . počet - 1 Potom

pictureIndex = 0

Else

pictureIndex = pictureIndex + 1

End If

pbPicture.Image = ImageList1 . Images.Item ( pictureIndex )

skontroluje , či index obraz je na konci Imagelist , a ak áno , zobrazí prvú položku v kolekcii . V opačnom prípade zvýši index raz , potom sa zobrazí , že hodnota indexu z Imagelist .

• Predchádzajúca strana: Ako písať text na snímke vo VB.NET 
• Ďalšia strana: Ako pridať dve hodnoty v jazyku Visual Basic