Hvordan endre bilder i Visual Basic

Hvis du trenger å bruke flere bilder i Visual Basic-prosjektet, trenger du ikke å ha dusinvis av picturebox kontroller, vise og skjule dem etter behov. Bruk i stedet ImageList kontrollen for å opprettholde en samling av bilder. Ved å opprette en indeks variabel, kan du endre bildene som vises i programmet. Den ImageList selv må andre kontroller for å få tilgang til og endre aktive bilder i programmet, for eksempel kommandoknapper. Bruk hvis uttalelser for å sjekke verdien av bildet indeksen for å unngå å forårsake runtime feil i programmet.

Bruksanvisning

1 Åpne Visual Basic-prosjektet i design modus. Dobbeltklikk på "ImageList" kontroll for å legge en til prosjektet. Denne kontrollen vises ikke som en fysisk kontroll på skjemaet, så du trenger ikke å konfigurere utseendet eller navnet for å skille den med mindre du vil.

2 Klikk på "ImageList1" kontroll du har lagt for å åpne egenskapene listen. Klikk på "Bilder" egenskaper, og deretter boksen med "..." i den. Dette åpner "bildesamlingen Editor" dialogboksen hvor du lagrer din samling av bilder.

3 Klikk på "Legg til" knappen. Naviger systemfilene for bilder og legge dem til i ImageList samlingen. Du kan legge til mer enn ett bilde om gangen hvis de er i de samme mappene. Merk at bildene starter på indeksen null i "medlemmer" listen. Når du er ferdig med å legge til bilder til samlingen, klikk på "OK" -knappen.

4 Dobbeltklikk på "PictureBox" kontroll fra verktøylinjen for å legge denne kontrollen på listen. Også, dobbeltklikk på "Button" kontroll to ganger for å legge til to av disse kontrollene også. Ordne kontrollene å ha to knapper vises i en rad med PictureBox over dem. Endre "teksten" eiendom for den venstre knappen for å "Forrige" og "tekst" eiendom for den rette knappen for å "Next".

5 Åpne kodevinduet. Lag en global variabel for å holde styr på bildeindeks ved å skrive følgende:

Dim imageIndex Som Short = 0

6 Åpne "button1_click" sub og skriver følgende:

Hvis imageIndex = 0 Then

imageIndex = ImageList1.Images.Count () - 1

PictureBox1.Image = ImageList1.Images.Item (imageIndex)

Ellers

imageIndex - = 1

PictureBox1.Image = ImageList1.Images.Item (imageIndex)

Slutt om

Dette tester for å se hvor indeksen er. Hvis brukeren klikker "Tilbake" knappen og indeksen viser det første elementet i ImageList, indeks flyttes til det siste bildet i ImageList og viser det. Ellers svekkelser den indeksen med en og viser det bildet indeksen.

7 Åpne "Button2_Click" sub og skriver følgende:

Hvis imageIndex = ImageList1.Images.Count () - 1 Da

imageIndex = 0

PictureBox1.Image = ImageList1.Images.Item (imageIndex)

Ellers

imageIndex + = 1

PictureBox1.Image = ImageList1.Images.Item (imageIndex)

Slutt om

I likhet med "Back" -knappen, tester dette for å se hvor indeksen er. Hvis brukeren klikker på "Forward" -knappen og indeksen viser det siste elementet i ImageList, indeks tilbake til den første av de ImageList elementer og viser det. Ellers intervaller den indeksen med en og viser det bildet.