Hvis du vil gemme en samling af billeder i en Visual Basic-projekt , skal du bruge en ImageList kontrol. Dens funktioner og metoder hjælper dig med hurtigt og nemt at skifte billederne i programmet ved hjælp af et indeks , og det holder også styr på hvor mange billeder der findes i samlingen. Du kan vise billeder på en PictureBox kontrol. Du har ubegrænsede muligheder for , hvordan du ændrer et billede , men hver indstilling fungerer med den samme grundlæggende programmering i tankerne. For eksempel bruger "Previous " og " Next " for at bladre gennem billederne i en samling med et indeks variabel. Instruktioner
1
Åbn et nyt Visual Basic-projekt . Tilføj alle af en PictureBox kontrol ImageList kontrol og to knapper til formularen . Arranger " Button1 " til venstre for PictureBox og " button2 " til højre .
2
Højreklik på " ImageList1 " kontrol og klik på " Vælg billeder ". I den dialogboks , der vises, skal du klikke på knappen "Tilføj" . Naviger igennem dine filer, og tilføje billeder til kontrollen. Klik på " OK" knappen, når du er færdig .
3
Ændre navnet ejendom til Button1 til " bPrevious " og teksten ejendom til " Forrige ", det navn ejendom til button2 til " bNext " og teksten ejendom til" Next Image " og navnet ejendom til PictureBox1 til" pbPicture ".
4
Tryk på" F7 "for at åbne koden vinduet. . Type " Dim pictureIndex As Integer " i toppen af klassen erklæring for at oprette en variabel , du bruger som et indeks for din ImageList
5
Åbn Form1_Load funktion og skriv følgende : Hej < p> pictureIndex = 0
pbPicture.Image = ImageList1.Images.Item ( pictureIndex )
Dette sætter indekset variabels værdi på nul, og initialiserer pbPicture med det første billede i billedet listen.
6
Åbn bPrevious_Click funktion og skriv følgende : Hej p Hvis pictureIndex = 0 Then
pictureIndex = ImageList1.Images.Count - 1
< p > Else
pictureIndex = pictureIndex - 1
End If
pbPicture.Image = ImageList1.Images.Item ( pictureIndex )
kontroller for at se, om billedet indekset er i begyndelsen af ImageList og hvis ja, viser det sidste element i samlingen. Ellers Reducerer indeks med en, så viser dette indeks værdi fra ImageList
7
Åbn bNext_Click funktion og skriv følgende : .
P Hvis pictureIndex = ImageList1.Images . Count - 1 Så
pictureIndex = 0
Else
pictureIndex = pictureIndex + 1
End If
pbPicture.Image = ImageList1 . Images.Item ( pictureIndex )
kontroller for at se, om billedet indekset er i slutningen af ImageList og hvis ja, viser det første element i samlingen. Ellers er det trin indekset med en, så viser dette indeks værdi fra ImageList .