Du kan bruge Visual Basic til at oprette et program til at vise en gruppe billeder som du ønsker , såsom i slideshow eller miniature format. VB 6.0 har ImageList kontrol , som gemmer billederne i et array , som du kan få adgang til med indekset og vise i en eller flere billede kontrol. Instruktioner
1
Klik på " Project " i menuen og derefter klikke på " Components" fra drop down listen, eller tryk på " CTRL + T" på tastaturet for at åbne Komponenter menuen. Rul ned til " Microsoft Windows Common Controls 6.0 ( SP6 )" , og klik på afkrydsningsfeltet ved siden af den . Klik på "OK". Dette tilføjer en række nye redskaber til værktøjskassen , herunder ImageList kontrol.
2
Dobbeltklik på ImageList kontrol i værktøjskassen for at tilføje en til din formular . Klik på ImageList på din form og dobbeltklik på "( Custom) " fra vinduet Egenskaber. Dette åbner en dialogboks til dine billeder .
3
Klik på "Billeder" fanen. Klik på " Indsæt billede ", og navigere til dine billeder. Dobbeltklik på den, du har brug for at indlæse den i din ImageList . Gentag denne proces for at uploade alle de billeder du har brug for. Klik på "OK " for at lukke boksen .
4
Dobbeltklik på "Image " kontrol i værktøjskassen for at tilføje en til dit projekt. Klik og træk kanterne for at ændre størrelsen på det, hvis det er nødvendigt. Ændr " Stretch " ejendom til "true ".
5
Tilføj to CommandButton kontrol fra værktøjskassen til formularen . Ændr " Caption " ejendom af de første til "Previous ", og den anden til " Næste". Arranger dine kontrolelementer på din formular. Din ImageList kontrol vil ikke vise under kørslen , så du kan forlade det, uanset hvor du foretrækker .
6
Åbn koden vinduet. Skabe en global tællevariabel ved at skrive " Dim picNum As Integer " under "Option Explicit ". Få adgang til din " Form_Load ()" funktionen . Type " picNum = 1" på den første linje og " Image1.Picture = ImageList1.ListImages.Item ( picNum ) . Picture " på den næste linje. Dette vil indlæse det første billede i din ImageList i dit billede box
7
Åben kode til din " Next " kommando -knappen og skrive følgende linjer : .
P Hvis ikke picNum = ImageList1.ListImages.Count Så
picNum = picNum + 1
Else
picNum = 1
End If
Image1.Picture . = ImageList1.ListImages.Item ( picNum ) Picture
8
Åben kode til din " Forrige " kommando -knappen og skrive følgende linjer :
p Hvis ikke picNum = 1 Derefter < br >
picNum = picNum - 1
Else
picNum = ImageList1.ListImages.Count
End If
Image1.Picture = ImageList1 . ListImages.Item ( picNum ) . Picture
9
Kør dit program og teste dine knapper. Billedet kontrol vil vise et billede fra din ImageList . Cycle gennem billederne ved at klikke på Forrige og Næste kommandoknapper .