Hvis du skal bruge flere billeder i din Visual Basic-projekt , behøver du ikke behøver at have dusinvis af PictureBox kontrol , vise og skjule dem efter behov . Brug i stedet ImageList kontrol for at opretholde en samling af billeder . Ved at skabe et indeks variabel kan du ændre billeder, der vises i dit program. Den ImageList selve behov andre kontroller for at få adgang til og ændre aktive billeder i dit program , såsom kommando knapper. Brug Hvis udsagn til at kontrollere værdien af billedet indekset at undgå at forårsage runtime fejl i dit program. Instruktioner
1
Åbn din Visual Basic -projekt i Design mode. Dobbeltklik på " ImageList " kontrol for at tilføje en til dit projekt. Denne kontrol vises ikke som en fysisk kontrol på formularen, så du ikke behøver at konfigurere sit udseende eller navn for at skelne det, medmindre du ønsker det.
2
Klik på " ImageList1 " kontrol, du føjes til at åbne sine egenskaber listen. Klik på "Billeder" Egenskaber og derefter den æske med " ..." i det . Dette åbner "Image Collection Editor " dialogboksen , hvor du gemmer din samling af billeder.
3
Klik på knappen "Tilføj" . Naviger dine systemfiler for billeder og tilføje dem til ImageList samling. Du kan tilføje mere end ét billede ad gangen, hvis de er i de samme mapper . Bemærk , at billederne starter ved index nul i " Members " liste. Når du er færdig tilføje billeder til samlingen , klik på " OK" knappen.
4
Dobbeltklik på " PictureBox " kontrol fra værktøjslinjen for at føje denne kontrol til din liste. Også , skal du dobbeltklikke på " Button " kontrol to gange for at tilføje to af disse kontroller så godt. Arranger kontrollerne til at have de to knapper, der vises i en række med PictureBox over dem. Ændr " teksten" ejendom til venstre Button til " Forrige " og " teksten" ejendom til den højre knap til "Næste".
5
Åbn koden vinduet. Skabe en global variabel til at holde styr på billedet indekset ved at skrive følgende : Hej
Dim imageIndex Som Short = 0
6
adgang til " Button1_Click " sub og skriv følgende : < br >
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
test for at se, hvor indeks er . Hvis brugeren klikker på knappen "Tilbage" og indekset viser det første punkt i ImageList , indekset flyttes til den sidste billede i ImageList og viser det. Ellers Reducerer indeks med ét og viser , at billedet indeks
7
adgang til " Button2_Click " sub og skriv følgende : .
P Hvis imageIndex = ImageList1.Images.Count ( ) - 1 Så
imageIndex = 0
PictureBox1.Image = ImageList1.Images.Item ( imageIndex )
Else
imageIndex + = 1 < br >
PictureBox1.Image = ImageList1.Images.Item ( imageIndex )
End If
Ligesom knappen "Tilbage" , handler denne test for at se, hvor indekset er. Hvis brugeren klikker på " Forward "-knappen og indekset viser det sidste punkt i ImageList , indekset tilbage til den første af de ImageList elementer og viser det. Ellers spring indekset med én og viser dette billede.