|
Pour sauvegarder une collection d'images dans un projet Visual Basic, utilisez un contrôle ImageList . Ses fonctions et ses méthodes vous aider à modifier rapidement et facilement des images dans l' application à l'aide d'un index , il conserve également la trace de combien d'images exister dans la collection. Vous pouvez afficher des images en utilisant un contrôle PictureBox . Vous avez des options illimitées pour savoir comment changer une image, mais chaque option fonctionne avec la même programmation de base à l'esprit. Par exemple, utiliser les boutons "Précédent" et "Suivant" pour faire défiler les images dans une collection avec une variable d' index. Instructions
1 Ouvrez un nouveau projet Visual Basic. Ajoutez tout d'un contrôle PictureBox , contrôle ImageList et deux boutons à la forme . Disposer " Button1" à gauche de la PictureBox et " Button2 " à droite .
2 clic droit sur le contrôle " ImageList1 " et cliquez sur " choisir des images . " Dans la boîte de dialogue qui s'affiche , cliquez sur le bouton "Ajouter" . Naviguer à travers vos fichiers et ajouter des images à la commande. Cliquez sur le bouton «OK» lorsque vous avez terminé .
3 modifier la propriété de nom pour Button1 pour " bprevious » et la propriété text " Précédent ", la propriété de nom pour Button2 pour " bnext »et la propriété text " image suivante " et la propriété de nom pour PictureBox1 à " pbPicture . "
4 presse " F7 "pour ouvrir la fenêtre de code . . Tapez " pictureIndex As Integer » en haut de la déclaration de classe pour créer une variable que vous utilisez comme un index pour votre ImageList
5 Ouvrir la fonction Form1_Load et tapez la commande suivante :
< p> pictureIndex = 0
pbPicture.Image = ImageList1.Images.Item ( pictureIndex )
Ceci définit la valeur de l' indice variable à zéro et initialise le pbPicture avec la première image de la liste d'images .
6 ouvrir la fonction bPrevious_Click et tapez la commande suivante :
Si pictureIndex = 0 Then
pictureIndex = ImageList1.Images.Count - 1 x Else
pictureIndex = pictureIndex - 1 x End If
pbPicture.Image = ImageList1.Images.Item ( pictureIndex )
vérifie si l'indice de l'image est au début de la liste d'images , et si oui , affiche le dernier élément de la collection . Sinon, il décrémente l'index par un, puis affiche cette valeur d'index de l' ImageList
7 ouvrir la fonction bNext_Click et tapez la commande suivante : .
Si pictureIndex = ImageList1.Images . count - 1 Puis
pictureIndex = 0
Else
pictureIndex = pictureIndex + 1
End If
pbPicture.Image = ImageList1 . Images.Item ( pictureIndex )
vérifie si l'index de l'image est à la fin de l' ImageList et si oui, affiche le premier élément de la collection. Sinon, il incrémente l'indice par un, puis affiche cette valeur d'index à partir de la liste d'images .
|
