Hvordan endre et bilde i Visual Basic
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 bildene i programmet som bruker en indeks; det holder også styr på hvor mange bilder finnes i samlingen. Du kan vise bilder på en PictureBox kontroll. Du har ubegrensede muligheter for hvordan du kan endre et bilde, men hvert alternativ arbeider 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.
Bruksanvisning
1 Åpne en ny Visual Basic-prosjekt. Legg alle en PictureBox kontroll, ImageList kontroll og to knapper i 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. Naviger 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. Skriv "Dim pictureIndex As Integer" på toppen av klassen erklæring for å opprette en variabel du bruker som en indeks for ImageList.
5 Åpne Form1_Load funksjonen og skriver følgende:
pictureIndex = 0
pbPicture.Image = ImageList1.Images.Item (pictureIndex)
Dette setter indeksen variabel verdi til null og initialiserer pbPicture med det første bildet i bildelisten.
6 Åpne bPrevious_Click funksjonen og skriver følgende:
Hvis pictureIndex = 0 Then
pictureIndex = ImageList1.Images.Count - 1
Ellers
pictureIndex = pictureIndex - 1
Slutt om
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, det svekkelser indeksen etter én, viser da at indeksverdi fra ImageList.
7 Åpne bNext_Click funksjonen og skriver følgende:
Hvis pictureIndex = ImageList1.Images.Count - 1 Da
pictureIndex = 0
Ellers
pictureIndex = pictureIndex + 1
Slutt om
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 inkrementerer den indeksen med en, viser da at indeksverdi fra ImageList.