Πώς να αλλάξετε το μέγεθος εικόνων εισαγωγής σε Visual Basic 2008

Το Basic 2008 γλώσσα προγραμματισμού Visual από τη Microsoft κάνει μια σειρά από καθήκοντα της ανάπτυξης είναι εξαιρετικά εύκολη . Μπορείτε να φορτώσετε και να προβάλετε εικόνες χρησιμοποιώντας το διαισθητικό έλεγχο PictureBox , για παράδειγμα. Δεν είναι κάθε χαρακτηριστικό μπορεί να έρθει με μια απλή γραφική διεπαφή χρήστη ( GUI ) του εργαλείου , όμως . Μια συνάρτηση της Visual Basic χωρίς ένα εύκολο περιβάλλον εργασίας είναι η δυνατότητα να αλλάξετε το μέγεθος εισαγόμενες εικόνες υπό τον έλεγχο PictureBox . Πράγματι , εκτέλεση αυτής της λειτουργίας απαιτεί ένα τέχνασμα που φαίνεται θετικά hackerish : Πρέπει να δημιουργήσετε μια νέα εικόνα του επιθυμητού μεγέθους και να επιστήσει την προηγούμενη εικόνα πάνω σ 'αυτό , σαν σε μια οθόνη . Οδηγίες
Η

1 Δημιουργήστε ένα νέο έργο της Visual Basic , και ονομάστε το " Imageresizer . " 2

Κάντε διπλό κλικ στο " PictureBox " και " κουμπί " συνιστώσες του " Εργαλειοθήκη " λίστα για να προσθέσετε αυτές τις λειτουργίες σε γραφική διεπαφή χρήστη ( GUI ) σας . ( Από προεπιλογή , αυτή η λίστα θα ανοίξει αμέσως όταν Visual Basic δημιουργεί ένα νέο έργο . ) Κλείστε την Εργαλειοθήκη και κάντε δεξί κλικ στο PictureBox --- ένα στοιχείο GUI που εμφανίζει μια εικόνα . Κάντε κλικ στο " Ιδιότητες" από το μενού drop-down για να ανοίξει το παράθυρο " Ιδιότητες " λίστα . Βρείτε το " Image " ιδιοκτησία , και κάντε κλικ στο πλαίσιο λίστας που εμφανίζεται δίπλα σε αυτό για να επιλέξετε μια εικόνα από το σκληρό σας δίσκο που θα θέλατε να αλλάξετε το μέγεθος . Αυτό το στοιχείο δείχνει ένα κουμπί για να κάνετε κλικ ? Μοιάζει με ένα κανονικό κουμπί των Windows
εικόνων 3

Κάντε διπλό κλικ στο κουμπί που μόλις προσθέσατε ? . Αυτή η ενέργεια θα ανοίξει το πρόγραμμα επεξεργασίας πηγαίου κώδικα για το αλλάξετε το μέγεθος κώδικα που θα ενεργοποιήσει το συντομότερο ο χρήστης του προγράμματος σας κάνει κλικ στο κουμπί . Επικολλήστε τον ακόλουθο εσωτερικό :

Δημ. sourceImage ως Bitmap = PictureBox1.Image

Δημ. newImage ως New Bitmap ( 200.200 )

Dim renderer όπως Graphics = Graphics.FromImage ( newImage )

renderer.drawImage ( sourceImage , 0,0 , newImage.Width +1 , newImage.Height +1 )

PictureBox1.Image = newImage

Αλλάξτε το αρχικό μέγεθος ( " 200200 " στον κώδικα) της νέας εικόνας στο μέγεθος που θέλετε να χρησιμοποιήσετε .
Η
εικόνων