Ako si vyrobiť Galéria obrázkov vo Visual Basic 6.0

Môžete použiť Visual Basic vytvoriť program pre zobrazenie skupinu obrázkov nejaký spôsob , ako si budete priať , ako v prezentácii alebo formáte s náhľadmi . VB 6.0 má Imagelist samej, ktorá ukladá obrázky v poli , ktoré môžete pristupovať pomocou indexu a displeja v jednom alebo viacerých ovládacích prvkov snímky . Návod dovolená 1

Kliknite na " projekt " v ponuke a potom kliknite na tlačidlo " komponentov " z rozbaľovacieho zoznamu , alebo stlačte " CTRL + T " na klávesnici otvoríte ponuku komponentov . Prejdite nadol na " Microsoft Windows Common Controls 6.0 ( SP6 ) " a kliknite na zaškrtávacie políčko vedľa nej . Kliknite na tlačidlo " OK " . To pridáva niekoľko nových nástrojov na paneli nástrojov, vrátane ovládací prvok Imagelist .
2

Dvakrát kliknite na ovládací prvok Imagelist v paneli nástrojov pridať jeden do formulára . Kliknite na Imagelist na formulári a double - kliknite na " ( Custom ) " z okna Vlastnosti . To otvára dialóg pre vaše obrázky .
3

Kliknite na " Obrázky " kartu . Kliknite na " Vložiť obrázok " a prejdite na vaše obrázky . Dvojitým kliknutím na jednu musíte ho nahrať do svojho Imagelist . Opakujte tento postup nahrať všetky obrázky , ktoré potrebujete . Kliknite na tlačidlo " OK " zatvorte okno .
4

Dvakrát kliknite na " Image " kontrolu v paneli nástrojov pridať jeden do projektu . Kliknutím a ťahaním jeho okraje na jeho veľkosť ak je to nutné. Zmeňte " Stretch " vlastnosť " To je pravda . "
5

Pridať dva ovládacie prvky CommandButton z panela nástrojov formulára . Zmeňte " Titulok " vlastnosť prvý " Predchádzajúce " a druhý na " Next " . Usporiadanie ovládacích prvkov na formulári . Váš kontrolný Imagelist nebude zobrazovať v behu , takže si môžete nechať tam , kde si to prajete .
6

Otvorte okno kód . Vytvoriť globálnu premennú count zadaním " Dim picNum As Integer " pod " Option Explicit " . Prístup k " Form_Load ( ) " funkcie . Typ " picNum = 1 " na prvom riadku a " Image1.Picture = ImageList1.ListImages.Item ( picNum ) . Picture " na ďalší riadok . To bude načítať prvú snímku vo vašom Imagelist do poľa Image
7

Otvorte kód pre príkazové tlačidlo " Ďalšie " a zadajte nasledujúce riadky : .

Ak nie je picNum = ImageList1.ListImages.Count Potom

picNum = picNum + 1

Else

picNum = 1

End If

Image1.Picture . = ImageList1.ListImages.Item ( picNum ) Obrázok
8

Otvorte kód pre " Predchádzajúci " príkazové tlačidlo a zadajte nasledujúce riadky :

Ak nie je picNum = 1 , potom

picNum = picNum - 1

Else

picNum = ImageList1.ListImages.Count

End If

Image1.Picture = ImageList1 . ListImages.Item ( picNum ) . Picture
9

spustite program a vyskúšať svoje gombíky . Kontrolný obrázok sa zobrazí obraz z Imagelist . Prechádzať snímky kliknutím na tlačidlo Predchádzajúce a Ďalšie príkazové tlačidlá .

• Predchádzajúca strana: Visual Basic : Ako nastaviť Array Image Obrázok 
• Ďalšia strana: Ako Porovnanie verzií súborov s vbs