Als u meerdere foto's gebruiken in uw Visual Basic-project , hoeft u niet om tientallen PictureBox controles hebben , tonen en verbergen ze als dat nodig is. Gebruik in plaats daarvan de ImageList controle met betrekking tot een verzameling van beelden te behouden . Door het creëren van een index variabele , kunt u de foto's weergegeven in uw programma te wijzigen . De ImageList zelf moet andere controles te openen en wijzigen actieve foto's in uw programma , zoals opdrachtknoppen . Gebruik Als verklaringen aan de waarde van de afbeelding index te controleren om te voorkomen dat runtime fouten in uw programma. Instructies
1 Open uw Visual Basic -project in ontwerp -modus . Dubbelklik op de " ImageList " controle om een toe te voegen aan uw project . Deze controle wordt niet weergegeven als een fysieke controle op het formulier , zodat u niet hoeft te zijn uiterlijk of naam om het te onderscheiden configureren , tenzij je wilt .
Klik 2 op de " ImageList1 ' controle die u toegevoegd aan de lijst met eigenschappen te openen . Klik op de "Images " eigenschappen , en vervolgens de doos met " ... " daarin . Dit opent het " Beeld Collection Editor " dialoogvenster waarin u uw collectie op te slaan foto's.
3 Klik op de knop 'Toevoegen' . Navigeer je systeembestanden voor foto's en voeg ze toe aan de ImageList collectie . U kunt meer dan een afbeelding toe te voegen op een moment als ze in dezelfde mappen . Merk op dat de beelden beginnen bij index nul in de " leden " lijst . Wanneer u klaar bent met het toevoegen van afbeeldingen aan de collectie , klikt u op de knop "OK " .
4 Dubbelklik op het " PictureBox " controle van de werkbalk om deze controle toe te voegen aan je lijst . Ook, dubbelklikt u op de " knop " controle tweemaal om twee van deze controles eveneens toe te voegen . Schik de controles aan de twee knoppen weergegeven in een rij met de PictureBox boven hen te hebben. Verander de "text " eigenschap voor de linker knop om " Vorige " en de " tekst" woning voor de juiste knop op " Next . "
5 Open het venster code . Maak een globale variabele bij te houden van de afbeelding index te houden door het volgende te typen : Dim imageindex
Zoals Korte = 0
6 Toegang tot de " Button1_Click " sub en typ het volgende : < > Als imageindex = 0 dan
imageindex = ImageList1.Images.Count ( ) br - 1 PictureBox1.Image
= ImageList1.Images.Item ( imageindex ) op imageindex Else
- = 1 PictureBox1.Image
= ImageList1.Images.Item ( imageindex ) Eind
Als
Deze tests om te zien waar de index is . Als de gebruiker op de knop " Terug " klikt en de index toont het eerste item in de ImageList , de index verplaatst naar het laatste beeld in de ImageList en geeft deze weer . Anders, het verlaagt de index door een en geeft die afbeelding index
7 Toegang tot de " Button2_Click " sub en typ het volgende : .
Als imageindex = ImageList1.Images.Count ( ) - 1
imageindex = ImageList1.Images.Item ( imageindex ) op Else
imageindex + = 1 < br dan = 0 PictureBox1.Image
> PictureBox1.Image = ImageList1.Images.Item ( imageindex ) Eind
Als
Net als de " Back " knop , deze tests om te zien waar de index is . Als de gebruiker de "Forward "-knop en de index wordt met het definitieve item in de ImageList klikt , de index terug naar het eerste van de ImageList items en geeft deze weer . Anders is het stappen van de index door een en displays die afbeelding .
|
