Hvordan lage et galleri av bilder i Visual Basic 6.0

September 19

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

Bruksanvisning

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

2 Dobbeltklikk på ImageList kontroll i verktøykassen for å legge en til din form. Klikk på ImageList på skjemaet, 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 den inn i ImageList. Gjenta denne prosessen for å laste opp alle bildene du trenger. Klikk "OK" for å lukke boksen.

4 Dobbeltklikk på "Image" kontroll i verktøykassa for å legge en til prosjektet. Klikk og dra i kantene for å endre størrelsen om nødvendig. Endre "Stretch" eiendom til «True».

5 Legg til to Command kontroller fra verktøykassen til skjemaet. Endre "Caption" eiendom av de første som "Forrige" og den andre til "Next". Ordne kontrollene på skjemaet. Din ImageList kontroll vil ikke vise under kjøring, slik at du kan la den hvor du foretrekker.

6 Åpne kodevinduet. Lag en global teller variabel ved å skrive "Dim picNum As Integer" under "Option Explicit." Få tilgang til "Form_Load ()" -funksjon. Skriv "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 din ImageList inn bilde-boksen.

7 Åpne koden for "Next" kommandoknappen og skriv følgende linjer:

Hvis ikke picNum = ImageList1.ListImages.Count Deretter

picNum = picNum + 1

Ellers

picNum = 1

Slutt om

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

8 Åpne koden for "Forrige" kommandoknappen og skriv følgende linjer:

Hvis ikke picNum = 1 Deretter

picNum = picNum - 1

Ellers

picNum = ImageList1.ListImages.Count

Slutt om

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

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

Hint

Du trenger ikke å bruke kommandoknappene til å kontrollere hvordan programmet viser bilder. Du kan bruke flere bildekontrollene til å vise flere bilder på en gang, eller du kan bruke en tidtaker som automatisk vil endre bildet som vises i din bildekontroll når timeren intervallet utløper.