Slik lagrer du en samling av bilder i en Visual Basic- prosjekt, bruker en ImageList kontroll. Sine funksjoner og metoder hjelpe deg raskt og enkelt endre bilder i programmet som bruker en indeks , det holder også styr på hvor mange bilder finnes i samlingen . Du kan vise bilder med en PictureBox kontroll. Du har ubegrensede muligheter for hvordan du endrer et bilde, men hvert valg fungerer med de samme grunnleggende programmering i tankene. Bruk for eksempel " Forrige " og " Neste " -knappene for å bla gjennom bildene i en samling med en indeks variabel. Instruksjoner
en
Åpne et nytt Visual Basic-prosjekt . Legg alt i en PictureBox kontroll, ImageList kontroll og to knapper til skjemaet . Ordne " Button1 " til venstre for PictureBox og " Button2 " til høyre .
2
Høyreklikk på " ImageList1 " kontroll og klikk " Velg bilder ". I dialogboksen som vises, klikker du på "Legg til "-knappen . Navigere gjennom filene dine og legge til bilder til kontrollen. Klikk på " OK "-knappen når du er ferdig .
3
Endre navnet eiendom for Button1 til " bPrevious " og teksten eiendommen til " Forrige ", navnet eiendom for Button2 til " bNext " og teksten eiendommen til" Neste bilde "og navnet eiendom for PictureBox1 til" pbPicture . "
4
Trykk" F7 "for å åpne koden vinduet. . Type " Dim pictureIndex As Integer " på toppen av klassen erklæringen å lage en variabel du bruker som en indeks for ImageList din
5
Åpne Form1_Load funksjon og skriv inn følgende :
< p> pictureIndex = 0
pbPicture.Image = ImageList1.Images.Item ( pictureIndex )
p Dette setter indeksen variabel verdi til null og initialiserer pbPicture med det første bildet i bildet listen.
6
Åpne bPrevious_Click funksjon og skriv inn følgende : en p Hvis pictureIndex = 0 Then
pictureIndex = ImageList1.Images.Count - en
< p > Else
pictureIndex = pictureIndex - en
End If
pbPicture.Image = ImageList1.Images.Item ( pictureIndex )
Dette sjekker for å se om bildet indeksen er i begynnelsen av ImageList og hvis så, viser det siste elementet i samlingen . Ellers svekkelser det indeksen med en, så viser at indeksverdien fra ImageList
7
Åpne bNext_Click funksjon og skriv inn følgende : .
P Hvis pictureIndex = ImageList1.Images . count - 1 Så
pictureIndex = 0
Else
pictureIndex = pictureIndex + 1
End If
pbPicture.Image = ImageList1 . Images.Item ( pictureIndex )
Dette sjekker for å se om bildet indeksen er på slutten av ImageList og hvis så , viser det første elementet i samlingen . Ellers er det trinn indeksen etter en, viser da at indeksverdien fra ImageList .