Πώς να κάνω μια στοά των εικόνων σε Visual Basic 6.0

Μπορείτε να χρησιμοποιήσετε το Visual Basic για να δημιουργήσετε ένα πρόγραμμα για να εμφανίσετε μια ομάδα εικόνων με όποιον τρόπο θέλετε , όπως στην παρουσίαση ή τη μορφή μικρογραφιών. VB 6.0 έχει τον έλεγχο ImageList , το οποίο αποθηκεύει τις εικόνες σε μια σειρά που μπορείτε να έχετε πρόσβαση με τον δείκτη και την απεικόνιση σε ένα ή περισσότερα στοιχεία ελέγχου εικόνας . Οδηγίες
Η

1 Κάντε κλικ στο " Project" στο μενού και στη συνέχεια κάντε κλικ στο κουμπί "Στοιχεία " από την αναπτυσσόμενη λίστα , ή πατήστε το πλήκτρο " CTRL + T " στο πληκτρολόγιο για να ανοίξετε το μενού Components . Μετακινηθείτε προς τα κάτω για να " Microsoft Windows κοινούς ελέγχους 6.0 ( SP6 ) " και κάντε κλικ στο πλαίσιο ελέγχου δίπλα του. Κάντε κλικ στο κουμπί "OK". Αυτό προσθέτει αρκετά νέα εργαλεία στην εργαλειοθήκη , συμπεριλαμβανομένου του ελέγχου ImageList . 2

διπλό κλικ στο στοιχείο ελέγχου ImageList στην εργαλειοθήκη για να προσθέσετε ένα στη φόρμα σας . Κάντε κλικ στο ImageList στη φόρμα σας και κάντε διπλό κλικ στο " ( Προσαρμοσμένη ) " από το παράθυρο Properties . Αυτό ανοίγει ένα παράθυρο διαλόγου για τις εικόνες σας .
Εικόνων 3

Κάντε κλικ στο " Εικόνες " καρτέλα . Κάντε κλικ στο " Εισαγωγή εικόνας " και να περιηγηθείτε στις φωτογραφίες σας . Κάντε διπλό κλικ σε αυτό που πρέπει να το φορτώσετε στο ImageList σας . Επαναλάβετε αυτή τη διαδικασία για να φορτώσει όλες τις εικόνες που χρειάζεστε . Κάντε κλικ στο " OK" για να κλείσετε το παράθυρο .
Η

4 Κάντε διπλό κλικ στο " Image " ελέγχου στην εργαλειοθήκη για να προσθέσετε ένα στο έργο σας . Κάντε κλικ και σύρετε τα άκρα της για να αλλάξετε το μέγεθος , αν είναι απαραίτητο . Αλλάξτε το " Stretch " ιδιότητα " True ".
5

Προσθέστε δύο στοιχεία ελέγχου CommandButton από την εργαλειοθήκη στη φόρμα σας . Αλλάξτε το " Λεζάντα " ιδιότητα του πρώτου να «Προηγούμενο» και το δεύτερο με το " Next". Τακτοποιήστε τα στοιχεία ελέγχου στη φόρμα σας . Ελέγχου ImageList σας δεν θα δείξει κατά το χρόνο εκτέλεσης , έτσι μπορείτε να το αφήσετε όπου κι αν προτιμάτε .
Η 6

Ανοίξτε το παράθυρο κώδικα . Δημιουργήστε μια καθολική μεταβλητή μετράνε πληκτρολογώντας "Dim picNum ως ακέραιος" στο πλαίσιο " Option Explicit . " Αποκτήστε πρόσβαση σας " Form_Load ( ) " λειτουργία. Πληκτρολογήστε " picNum = 1" στην πρώτη γραμμή και " Image1.Picture = ImageList1.ListImages.Item ( picNum ) . Picture " στην επόμενη γραμμή . Αυτό θα φορτώσει την πρώτη εικόνα στο ImageList σας στο πλαίσιο εικόνας σας
Η 7

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

Αν δεν picNum = ImageList1.ListImages.Count συνέχεια

picNum = picNum + 1

Else

picNum = 1

End If

Image1.Picture . = ImageList1.ListImages.Item ( picNum ) Εικόνα
8

Ανοίξτε τον κωδικό για " Προηγούμενο " κουμπί εντολής σας και πληκτρολογήστε τις ακόλουθες γραμμές :

If Not picNum = 1 τότε

picNum = picNum - 1

Else

picNum = ImageList1.ListImages.Count

End If

Image1.Picture = ImageList1 . ListImages.Item ( picNum ) .
Η Εικόνα 9

Εκτελέστε το πρόγραμμα σας και να δοκιμάσετε τα κουμπιά σας . Το στοιχείο ελέγχου εικόνας θα εμφανίσει μια εικόνα από ImageList σας . Κύκλος μέσα από τις εικόνες κάνοντας κλικ στα κουμπιά Προηγούμενο και Επόμενο εντολών .
Η
εικόνων