Πώς να αλλάξετε τις εικόνες σε Visual Basic

Εάν πρέπει να χρησιμοποιήσετε πολλές εικόνες στο έργο της Visual Basic σας , δεν χρειάζεται να έχουν τις δωδεκάδες των ελέγχων PictureBox , εμφάνιση και απόκρυψη τους , όπως απαιτείται . Αντ 'αυτού , χρησιμοποιήστε τον έλεγχο ImageList να διατηρήσει μια συλλογή εικόνων . Με τη δημιουργία μιας μεταβλητής δείκτη , μπορείτε να αλλάξετε τις εικόνες που εμφανίζονται στο πρόγραμμά σας . Η ίδια ImageList χρειάζεται άλλους ελέγχους για να αποκτήσετε πρόσβαση σε και να αλλάξετε ενεργό φωτογραφίες στο πρόγραμμά σας , όπως κουμπιά εντολών . Χρησιμοποιήστε Αν δηλώσεις για να ελέγξετε την τιμή του δείκτη εικόνα για να αποφευχθεί η πρόκληση σφάλματα χρόνου εκτέλεσης στο πρόγραμμά σας . Οδηγίες
Η 1

Ανοίξτε έργο της Visual Basic σε κατάσταση σχεδίασης . Κάντε διπλό κλικ στο " ImageList " ελέγχου για να προσθέσετε ένα στο έργο σας . Ο έλεγχος αυτός δεν εμφανίζεται ως μια φυσική ελέγχου στη φόρμα , έτσι ώστε να μην χρειάζεται να ρυθμίσετε την εμφάνιση ή το όνομά της για να το διαφοροποιήσει , εκτός αν θέλετε να . 2

Κάντε κλικ στο " ImageList1 " μπορείτε να ελέγχετε προστίθεται να ανοίξετε τη λίστα του ιδιότητες . Κάντε κλικ στο " Εικόνες " ιδιότητες , και , στη συνέχεια, το κουτί με το " ... " σε αυτό. Αυτό ανοίγει το παράθυρο διαλόγου " συλλογή εικόνων Editor" όπου μπορείτε να αποθηκεύσετε τη συλλογή σας από φωτογραφίες .
Εικόνων 3

Κάντε κλικ στο κουμπί "Προσθήκη " . Περιήγηση σε αρχεία του συστήματός σας για τις εικόνες και να τα προσθέσετε στη συλλογή ImageList . Μπορείτε να προσθέσετε περισσότερες από μία εικόνα σε έναν χρόνο , εφόσον βρίσκονται στην ίδια φακέλους . Σημειώστε ότι οι εικόνες ξεκινούν δείκτη μηδέν στην "μέλη" λίστα. Όταν ολοκληρώσετε την προσθήκη εικόνων για τη συλλογή, κάντε κλικ στο κουμπί " OK" .
Η

4 Κάντε διπλό κλικ στο " PictureBox " έλεγχος από τη γραμμή εργαλείων για να προσθέσετε αυτό το στοιχείο ελέγχου στη λίστα σας . Επίσης , κάντε διπλό κλικ στο " κουμπί" έλεγχο δύο φορές για να προσθέσει δύο από αυτούς τους ελέγχους , καθώς και . Τακτοποιήστε τους ρυθμιστές να έχουν τα δύο κουμπιά που εμφανίζονται στη σειρά με την PictureBox πάνω τους . Αλλάξτε το "κείμενο" ακίνητο για το αριστερό κουμπί για να «Προηγούμενο» και το « κείμενο » ιδιοκτησίας το δικαίωμα να Button " Next".
5

Ανοίξτε το παράθυρο κώδικα . Δημιουργήστε μια καθολική μεταβλητή να παρακολουθείτε το δείκτη εικόνας πληκτρολογώντας τα ακόλουθα :

Dim imageIndex Όπως Short = 0
Η 6

Δείτε το " Button1_Click " sub και πληκτρολογήστε τα εξής:

Αν imageIndex = 0 τότε

imageIndex = ImageList1.Images.Count ( ) - 1

PictureBox1.Image = ImageList1.Images.Item ( imageIndex )

Else

imageIndex - = 1

PictureBox1.Image = ImageList1.Images.Item ( imageIndex )

End If

Αυτό δοκιμές για να δούμε εάν ο δείκτης είναι . Εάν ο χρήστης κάνει κλικ στο κουμπί "Πίσω" και ο δείκτης δείχνει το πρώτο στοιχείο στο ImageList , ο δείκτης μετακινείται στην τελευταία εικόνα στο ImageList και εμφανίζει . Διαφορετικά, ελαττώνει το δείκτη από ένα και εμφανίζει αυτό το ευρετήριο εικόνα
Η 7

Δείτε το " Button2_Click " sub και πληκτρολογήστε τα εξής: .

Αν imageIndex = ImageList1.Images.Count ( ) - 1 τότε

imageIndex = 0

PictureBox1.Image = ImageList1.Images.Item ( imageIndex )

υπόλοιπα

imageIndex + = 1

PictureBox1.Image = ImageList1.Images.Item ( imageIndex )

End If

αρέσει το πλήκτρο " Back" , αυτό το τεστ για να δούμε εάν ο δείκτης είναι . Εάν ο χρήστης κάνει κλικ στο κουμπί "Forward" και ο δείκτης δείχνει το τελικό στοιχείο στο ImageList , ο δείκτης επιστρέφει με το πρώτο από τα στοιχεία ImageList και την εμφανίζει . Σε αντίθετη περίπτωση, αυξάνει τον δείκτη κατά ένα και εμφανίζει αυτή την εικόνα.
Η
εικόνων