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 kontroll 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 bildene i programmet , for eksempel kommandoknapper . Bruk Hvis utsagn for å sjekke verdien av bildet indeksen for å unngå å forårsake runtime feil i programmet. Instruksjoner
en
Åpne Visual Basic-prosjekt i Design modus. Dobbeltklikk på " ImageList " kontroll for å legge en til prosjektet. Denne kontrollen vises ikke som en fysisk kontroll i skjemaet , slik at du ikke trenger å konfigurere utseendet eller navnet for å skille det med mindre du vil .
2
Klikk på " ImageList1 " kontrollen du lagt for å åpne egenskapene listen. Klikk på "Bilder" Egenskaper og deretter boksen med " ..." i den. Dette åpner " bildesamlingen Editor "-dialogboksen der du lagrer din samling av bilder.
3
Klikk på "Legg til "-knappen . Naviger systemfilene for bilder og legge dem til i ImageList samling . 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 to av disse kontrollene også. Ordne kontrollene til å ha de to knappene som vises i en rad med PictureBox over dem . Endre " teksten " eiendom for venstre knapp til " Forrige " og " teksten " eiendom for den rette knappen for å "Next".
5
Åpne koden vinduet. Lag en global variabel for å holde styr på bildet indeksen ved å skrive følgende : en
Dim imageIndex Som Short = 0
6
tilgang til " button1_click " sub og skriv følgende :
p Hvis imageIndex = 0 Then
imageIndex = ImageList1.Images.Count ( ) - 1
PictureBox1.Image = ImageList1.Images.Item ( imageIndex )
< p > Else
imageIndex - = 1
PictureBox1.Image = ImageList1.Images.Item ( imageIndex )
End If
Dette tester for å se hvor indeks er . Hvis brukeren klikker på "Back "-knappen og indeksen viser det første elementet i ImageList , flyttes indeksen til det siste bildet i ImageList og viser det. Ellers svekkelser det indeksen med ett og viser at bildeindeksen
7
tilgang til " Button2_Click " sub og skriv inn følgende : .
P Hvis imageIndex = ImageList1.Images.Count ( ) - 1 Så
imageIndex = 0
PictureBox1.Image = ImageList1.Images.Item ( imageIndex )
Else
imageIndex + = 1
PictureBox1.Image = ImageList1.Images.Item ( imageIndex )
End If
likhet med "Back "-knappen, dette tester for å se hvor indeksen er . Hvis brukeren klikker på " Forward "-knappen og indeksen viser det siste elementet i ImageList , returnerer indeksen til den første av de ImageList elementer og viser det. Ellers Den øker indeksen med ett og viser det bildet.
