|
Vous pouvez utiliser Visual Basic pour créer un programme pour afficher un groupe d'images à votre guise , comme dans un diaporama ou vignettes forme . VB 6.0 a le contrôle ImageList , qui stocke les images dans un tableau que vous pouvez accéder à l'indice et afficher dans un ou plusieurs contrôles d'image. Instructions
1 Cliquez sur "Projet " dans le menu puis cliquez sur "Components" de la liste déroulante , ou appuyez sur "Ctrl + T " sur le clavier pour ouvrir le menu Composants. Faites défiler jusqu'à « Contrôles communs Microsoft Windows 6.0 (SP6 ) " et cliquez sur la case à côté de lui . Cliquez sur « OK ». Cela ajoute plusieurs nouveaux outils de la boîte à outils , y compris le contrôle ImageList .
2 Double- cliquez sur le contrôle ImageList dans la boîte à outils pour ajouter une à votre forme . Cliquez sur le ImageList sur votre formulaire et double-cliquez sur l'option " ( Personnalisé)" à partir de la fenêtre Propriétés . Cela ouvre une boîte de dialogue pour vos images.
3 Cliquez sur l'onglet " Images " . Cliquez sur " Insérer une image " et accédez à vos photos . Double-cliquez sur celui que vous devez le charger dans votre ImageList . Répétez cette procédure pour télécharger toutes les images dont vous avez besoin . Cliquez sur " OK" pour fermer la boîte .
4 Double -cliquez sur le champ "Image " dans la boîte à outils pour ajouter une à votre projet. Cliquez et faites glisser ses bords pour le redimensionner si nécessaire. Changer le " stretch " propriété "True ".
5 Ajoutez deux contrôles CommandButton à partir de la boîte à outils vers votre formulaire . Changez la "Légende" propriété de la première de « Précédent » et de la seconde à "Suivant". Organisez vos contrôles sur votre formulaire . Votre contrôle ImageList n'apparaîtra pas au moment de l'exécution , de sorte que vous pouvez le laisser là où vous le souhaitez.
6 Ouvrez la fenêtre de code . Créez une variable de comptage global en tapant " numImage As Integer » sous « Option Explicit ». Accédez à votre fonction " Form_Load ()" . Tapez " numImage = 1" sur la première ligne et " Image1.Picture = ImageList1.ListImages.Item ( numImage ) . Picture" sur la ligne suivante . Cela va charger la première image de votre ImageList dans votre boîte de l'image
7 ouvrir le code de votre bouton de commande "Suivant" et entrez les lignes suivantes : .
If Not numImage = ImageList1.ListImages.Count Puis
numImage = numImage + 1
Else
numImage = 1
End If
Image1.Picture . = ImageList1.ListImages.Item ( numImage ) Photo
8 ouvrir le code de votre bouton de commande «Précédent» et entrez les lignes suivantes:
If Not numImage = 1 alors
numImage = numImage - 1 x Else
numImage = ImageList1.ListImages.Count
End If
Image1.Picture = ImageList1 . ListImages.Item ( numImage ) . Photo
9 exécuter votre programme et de tester vos boutons . Le contrôle d'image permet d'afficher une image de votre ImageList . Faites défiler les images en cliquant sur les boutons de commande Suivant et Précédent .
|
