För att spara en samling bilder i ett Visual Basic-projekt , använd en ImageList kontroll . Dess funktioner och metoder hjälper dig att snabbt och enkelt ändra bilderna i programmet med ett index , utan också håller reda på hur många bilder som finns i samlingen . Du kan visa bilder med en PictureBox kontroll . Du har obegränsade möjligheter för hur man ändrar en bild , men varje alternativ fungerar med samma grundläggande programmering i åtanke . Använd till exempel " Föregående " och " Nästa " knapparna för att bläddra bland bilderna i en samling med ett index variabel . Instruktioner
1
Öppna ett nytt Visual Basic-projekt . Lägg alla en PictureBox kontroll , ImageList kontroll och två knappar i formuläret . Ordna " Button1 " till vänster om PictureBox och " Button2 " till höger .
2
Högerklicka på " ImageList1 " kontroll och klicka på " Välj bilder . " I dialogrutan som visas klickar du på knappen "Add" . Navigera igenom dina filer och lägga till bilder i kontrollen . Klicka på " OK " -knappen när du är klar .
3
Ändra namnet egendom för Button1 till " bPrevious " och texten egenskapen till " Föregående ", namnet egendom för Button2 till " bNext " och egenskapen text till " Nästa bild " och namnet egendom för PictureBox1 till " pbPicture . "
4
Tryck " F7 " för att öppna registret fönstret . . Skriv " Dim pictureIndex As Integer " överst klassdeklarationen att skapa en variabel som du använder som ett index för din ImageList
5
Öppna Form1_Load funktion och skriver följande :
pictureIndex = 0
pbPicture.Image = ImageList1.Images.Item ( pictureIndex ) katalog
Detta sätter index variabelns värde till noll och initierar pbPicture med den första bilden i bildlistan .
6
Öppna bPrevious_Click funktion och skriver följande :
p Om pictureIndex = 0 Then
pictureIndex = ImageList1.Images.Count - 1
Else
pictureIndex = pictureIndex - 1
End If
pbPicture.Image = ImageList1.Images.Item ( pictureIndex ) katalog
kontroller för att se om bilden index är i början av den ImageList och om så är fallet , visas det sista objektet i samlingen. Annars Minskar det index med en, sedan visar det indexvärde från ImageList
7
Öppna bNext_Click funktion och skriver följande : .
P Om pictureIndex = ImageList1.Images . Count - 1 Sen
pictureIndex = 0
Else
pictureIndex = pictureIndex + 1
End If
pbPicture.Image = ImageList1 . Images.Item ( pictureIndex ) katalog
kontroller för att se om bilden indexet är i slutet av ImageList och om så är fallet , visas det första objektet i samlingen . Annars , det steg index med en, sedan visar det indexvärde från ImageList .
