Du kan bruke Visual Basic til å lage et program for å vise en gruppe med bilder slik du ønsker , for eksempel i lysbildeserie eller miniatyr -format. VB 6.0 har ImageList kontroll , som lagrer bilder i en matrise som du kan få tilgang til med indeksen og vise i ett eller flere bilde -kontroller . Instruksjoner
en

Klikk på " Prosjekt " på menyen og klikk deretter på "Komponenter" fra nedtrekkslisten , eller trykk "CTRL + T" på tastaturet for å åpne Komponenter menyen . Bla ned til " Microsoft Windows Common Controls 6,0 ( SP6 ) " og klikk på boksen ved siden av. Klikk "OK". Dette legger til flere nye verktøy i verktøykassen , inkludert ImageList kontroll.
2

Dobbeltklikk ImageList kontroll i verktøykassen for å legge en til skjemaet. Klikk på ImageList på skjemaet ditt, og dobbeltklikk på "( Custom ) " fra vinduet Egenskaper. Dette åpner opp en dialogboks for bildene dine.
3

Klikk på " Bilder" -fanen . Klikk på " Sett inn bilde " og naviger til bildene dine. Dobbeltklikk på den du trenger å laste det inn ImageList din . Gjenta denne prosessen for å laste opp alle bildene du trenger. Klikk " OK " for å lukke boksen .
4

Dobbeltklikk på "Image " kontroll i verktøykassen for å legge en til prosjektet. Klikk og dra i kantene for å endre størrelse på det om nødvendig. Endre " Stretch " eiendom til " true".
5

Legg to CommandButton kontroller fra verktøykassen i skjemaet. Endre " Bildetekst " tilhører den første til å " Forrige " og den andre til " Next". Ordne kontroller på skjemaet . Din ImageList kontroll vil ikke vises under kjøring, slik at du kan la den hvor du foretrekker .
6

Åpne koden vinduet. Lag en global teller variabel ved å skrive " Dim picNum As Integer " under " Option Explicit . " Få tilgang til " Form_Load ( ) "-funksjonen . Type " picNum = 1" på første linje og " Image1.Picture = ImageList1.ListImages.Item ( picNum ) . Picture" på neste linje . Dette vil laste det første bildet i ImageList din inn ditt bilde for
7

Åpne koden for "Next "-kommandoen knappen og skriv inn følgende linjer: .
P Hvis ikke picNum = ImageList1.ListImages.Count Deretter

picNum = picNum + 1

Else

picNum = 1

End If

Image1.Picture . = ImageList1.ListImages.Item ( picNum ) Bilde
8

Åpne koden for " Forrige "-kommandoen knappen og skriv inn følgende linjer:
p Hvis ikke picNum = 1 Deretter

picNum = picNum - en

Else

picNum = ImageList1.ListImages.Count

End If

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

Kjør programmet og teste dine knapper. Bildet kontrollen vil vise et bilde fra ImageList din . Bla gjennom bildene ved å klikke på Forrige-og Neste kommandoknapper .