Om du behöver använda flera bilder i ditt Visual Basic -projektet , behöver du inte ha dussintals PictureBox kontroller , visa och dölja dem efter behov . Använd istället ImageList kontroll för att upprätthålla en samling av bilder . Genom att skapa ett index variabel , kan du ändra bilderna som visas i programmet . Den ImageList själv behöver andra kontroller för att komma åt och ändra aktiva bilderna i programmet , till exempel kommandoknappar . Användning Om uttalanden att kontrollera värdet av bilden index för att undvika att orsaka runtime fel i ditt program . Instruktioner
1
Öppna din Visual Basic-projekt i Design -läge . Dubbelklicka på " ImageList " kontroll för att lägga en till ditt projekt . Denna kontroll visas inte som en fysisk kontroll i formuläret , så du behöver inte konfigurera dess utseende eller namn för att skilja det om du inte vill .
2
Klicka på " ImageList1 " kontroll du tillsätts för att öppna dess egenskaper listan . Klicka på "Bilder " på Egenskaper och sedan på rutan med " ... " i det . Detta öppnar " Image Collection Editor " dialogruta där du lagrar din samling av bilder .
3
Klicka på " Add" . Navigera dina systemfiler för bilder och lägga till dem i ImageList samlingen . Du kan lägga till mer än en bild åt gången , om de är i samma mappar . Observera att bilderna börjar på index noll i " Medlemmar " lista . När du är klar med att lägga till bilder till samlingen , klicka på " OK " -knappen .
4
Dubbelklicka på " PictureBox " kontroll från verktygsfältet för att lägga till den här kontrollen till din lista . Också , dubbelklicka på " knappen " två gånger för att lägga till två av dessa kontroller också. Ordna kontroller för att ha de två knapparna som visas i rad med PictureBox ovanför dem. Ändra " text " egendom för den vänstra knappen till " Föregående " och " text " egendom för den högra knappen på " Next . "
5
Öppna koden fönstret . Skapa en global variabel för att hålla reda på bilden index genom att skriva följande :
Dim imageindex så kort = 0
6
komma åt " Button1_Click " sub och skriver följande :
Om imageindex = 0 Then
imageindex = ImageList1.Images.Count ( ) - 1
PictureBox1.Image = ImageList1.Images.Item ( imageindex ) katalog
Else
imageindex - = 1
PictureBox1.Image = ImageList1.Images.Item ( imageindex ) katalog
End If
tester för att se om det index är . Om användaren klickar på knappen "Tillbaka" och indexet visar det första objektet i ImageList , flyttar indexet till den sista bilden i ImageList och visar det . Annars Minskar det index med en och visar att bilden index
7
komma åt " Button2_Click " sub och skriver följande : .
P Om imageindex = ImageList1.Images.Count ( ) - 1 Sen
imageindex = 0
PictureBox1.Image = ImageList1.Images.Item ( imageindex ) katalog
Else
imageindex + = 1
PictureBox1.Image = ImageList1.Images.Item ( imageindex ) katalog
End If
Gilla " Back " knappen , detta test för att se om indexet . Om användaren klickar på " Forward " -knappen och indexet visar den slutliga produkten i ImageList , returnerar index för den första av de ImageList poster och visar det . Annars , det steg index med en och visar den bilden .
