Als u een verzameling van afbeeldingen in een Visual Basic project te bewaren , gebruik dan een ImageList controle. Zijn functies en methoden helpen u snel en gemakkelijk afbeeldingen in de toepassing met behulp van een index te veranderen , het houdt ook bij hoeveel beelden er in de collectie . U kunt beelden met behulp van een PictureBox controle te geven. Heb je onbeperkte mogelijkheden voor de manier waarop een afbeelding wilt wijzigen , maar elke optie werkt met dezelfde fundamentele programmering in het achterhoofd . Gebruik bijvoorbeeld " Vorige " en " Volgende " knoppen om door de afbeeldingen in een collectie met een index variabele . Instructies
1 Open een nieuw Visual Basic project . Voeg al een PictureBox controle , ImageList controle en twee knoppen om het formulier . Schik " Button1 " aan de linkerkant van de PictureBox en " Button2 " naar rechts. Kopen van 2 Klik met de rechtermuisknop " ImageList1 " controle en klik op " Kies Afbeeldingen . " In het dialoogvenster dat verschijnt , klikt u op de knop 'Toevoegen' . Navigeren door uw bestanden en afbeeldingen toe te voegen aan de controle . Klik op de knop " OK" als je klaar bent .
3 Verander de naam van onroerend goed voor Button1 om " bPrevious " en de eigenschap text op " Vorige ", de eigenschap naam voor Button2 aan " bNext " en de eigenschap text op" Volgende afbeelding " en de naam van onroerend goed voor PictureBox1 aan " pbPicture . "
Press 4 " F7 " om het venster code te openen . . Type " Dim pictureIndex As Integer ' aan de top van de klas verklaring van een variabele die u als een index voor uw ImageList gebruik maken
5 Open de Form1_Load functie en typ het volgende :
pictureIndex = 0 pbPicture.Image
= ImageList1.Images.Item ( pictureIndex ) op Dit stelt de waarde van de index variabele op nul en initialiseert de pbPicture bij de eerste opname in de lijst van afbeeldingen .
6 Open de bPrevious_Click functie en typ het volgende :
Als pictureIndex = 0 dan
pictureIndex = ImageList1.Images.Count - 1
Else
pictureIndex = pictureIndex - 1 End
Als pbPicture.Image = ImageList1.Images.Item ( pictureIndex ) op
Deze controleert of de foto -index is aan het begin van de ImageList en zo ja , wordt het laatste item in de collectie . Anders, het verlaagt de index door een, dan geeft dat indexwaarde van de ImageList
7 Open de bNext_Click functie en typ het volgende : .
Als pictureIndex = ImageList1.Images . count - 1 Als
pbPicture.Image = ImageList1 dan
pictureIndex = 0
Else pictureIndex = pictureIndex + 1 End
. Images.Item ( pictureIndex ) op Deze controleert of de foto -index is aan het eind van de ImageList en zo ja , wordt het eerste item in de collectie . Anders is het stappen van de index door een, geeft vervolgens dat indexwaarde van de ImageList .
|
