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

Για να αποθηκεύσετε μια συλλογή εικόνων σε ένα έργο της Visual Basic , χρησιμοποιήστε ένα στοιχείο ελέγχου ImageList . Λειτουργίες και τις μεθόδους του να σας βοηθήσει γρήγορα και εύκολα να αλλάξετε τις εικόνες στην εφαρμογή χρησιμοποιώντας ένα δείκτη? Διατηρεί επίσης παρακολουθείτε πώς υπάρχουν πολλές εικόνες στη συλλογή . Μπορείτε να εμφανίσετε τις εικόνες χρησιμοποιώντας ένα στοιχείο ελέγχου PictureBox . Έχετε απεριόριστες επιλογές για το πώς να αλλάξετε μια εικόνα , αλλά κάθε επιλογή λειτουργεί με τον ίδιο βασικό προγραμματισμό στο μυαλό . Για παράδειγμα, χρησιμοποιήστε το " Προηγούμενο " και τα κουμπιά " Next" για να μετακινηθείτε μέσα από τις εικόνες σε μια συλλογή με μια μεταβλητή δείκτη . Οδηγίες
Η

1 Ανοίξτε ένα νέο έργο της Visual Basic . Προσθέστε όλα του ελέγχου PictureBox , ImageList ελέγχου και δύο κουμπιά στη φόρμα . Κανονίστε " Button1 " στα αριστερά της PictureBox και « Button2 " προς τα δεξιά . 2

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

Αλλάξτε την ιδιότητα όνομα για να Button1 " bPrevious " και την ιδιότητα κειμένου να « Προηγούμενη », η ιδιότητα όνομα για Button2 να " bNext " και το ακίνητο κείμενο στο " Next Image " και η ιδιότητα όνομα για PictureBox1 να " pbPicture . "
Η

4 Πατήστε το πλήκτρο" F7 " για να ανοίξετε το παράθυρο κώδικα . Πληκτρολογήστε "Dim pictureIndex ως ακέραιος" στο επάνω μέρος της δήλωσης τάξη για να δημιουργήσετε μια μεταβλητή που χρησιμοποιούν ως δείκτη για ImageList σας
5

Ανοίξτε τη λειτουργία Form1_Load και πληκτρολογήστε τα εξής: .

pictureIndex = 0

pbPicture.Image = ImageList1.Images.Item ( pictureIndex )

Αυτό θέτει τιμή της μεταβλητής του δείκτη στο μηδέν και προετοιμάζει το pbPicture με την πρώτη εικόνα από τη λίστα εικόνων .
Η 6

Ανοίξτε τη λειτουργία bPrevious_Click και πληκτρολογήστε τα ακόλουθα :

Εάν pictureIndex = 0 τότε

pictureIndex = ImageList1.Images.Count - 1

Else

pictureIndex = pictureIndex - 1

End If

pbPicture.Image = ImageList1.Images.Item ( pictureIndex )

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

Ανοίξτε τη λειτουργία bNext_Click και πληκτρολογήστε τα εξής: .

Αν pictureIndex = ImageList1.Images . Count - 1 τότε

pictureIndex = 0

Else

pictureIndex = pictureIndex + 1

End If

pbPicture.Image = ImageList1 . Images.Item ( pictureIndex )

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