Ανοίξτε έργο της Visual Basic και να σύρετε ένα PictureBox από την Εργαλειοθήκη στη φόρμα σας . Ενώ είναι ακόμα επιλεγμένο , μεταβείτε στο παράθυρο Properties στο κάτω μέρος δεξιά και βρείτε το " Image " ιδιοκτησίας. Κάντε κλικ στο πλαίσιο λίστας και επιλέξτε μια εικόνα από το σκληρό σας δίσκο που θα θέλατε να αλλάξετε το μέγεθος . 2
Σύρετε ένα στοιχείο ελέγχου κουμπιού από την εργαλειοθήκη στη φόρμα σας . Στο παράθυρο ιδιοτήτων , να αλλάξει το όνομά της περιουσίας του σε « μέγεθος. "
Εικόνων 3
Κάντε διπλό κλικ στο κουμπί που προσθέσατε στο βήμα δύο . Αυτό θα δημιουργήσει μια μέθοδο εκδήλωση και να μετακινήσετε τον κέρσορα σε αυτό αυτόματα . Επικολλήστε τον ακόλουθο εσωτερικό :
Private Sub Button1_Click ( ByVal αποστολέα Όπως System.Object , ByVal e Όπως System.EventArgs ) Λαβές Button1.Click
πηγή Dim Όπως Bitmap = PictureBox1.Image
Dim dest_image As New Bitmap ( 200 , 200 )
Dim g Όπως Graphics = Graphics.FromImage ( dest_image )
g.DrawImage (πηγή , 0 , 0 , dest_image.Width + 1 , dest_image.Height + 1 )
PictureBox1.Image = dest_image
End Sub
Κανονικά , θα πρέπει να χρησιμοποιήσετε ένα γραφικών αντικειμένων να συντάξει μια εικόνα στην οθόνη , αλλά αυτή η μέθοδος έχει μια ελαφρώς διαφορετική προσέγγιση . Αντ 'αυτού , παίρνει την εικόνα από το PictureBox και αντλεί ένα αντίγραφό του σε μια άλλη εικόνα , που ονομάζεται dest_image , η οποία θα προετοιμαστεί σε μικρότερο μέγεθος . Μετά από αυτό , πέφτει η παλιά εικόνα και αφηγείται την picturebox να εμφανιστεί το νέο , μικρότερο εικόνα αντ 'αυτού.
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα