Πώς να Μετατροπή μιας εικόνας σε διαφανές σε Visual Basic

Κάνοντας το σύνολο ή μέρος μιας εικόνας διαφανές, είναι μια σχετικά απλή υπόθεση και μπορεί να αποδώσει οπτικά ενδιαφέροντα αποτελέσματα . Για παράδειγμα , μπορείτε να τοποθετήσετε μια εικόνα σε μια ιστοσελίδα και να ρυθμίσετε την αδιαφάνεια της . Οι προγραμματιστές μπορούν να χρησιμοποιήσουν εφέ διαφάνειας για να κάνει ένα συγκεκριμένο χρώμα σε μια εικόνα διαφανή . Visual Basic προγράμματα που τρέχουν στην επιφάνεια εργασίας δεν έχουν κουμπιά " Αδιαφάνεια " που σας επιτρέπουν να επιτευχθεί αυτό το αποτέλεσμα , αλλά μπορείτε να χρησιμοποιήσετε τη βιβλιοθήκη γραφικών Visual Basic για να μετατρέψει τα χρώματα σε μια εικόνα και να τους διαφανείς . Οδηγίες
Η 1

την εφαρμογή Microsoft Visual Studio . Ανοίξτε οποιοδήποτε από Visual Basic έργα σας και να βρει τη φόρμα εκκίνησης του έργου σας στο Visual Studio Solution Explorer . Κάντε διπλό κλικ σε αυτό το έντυπο . Visual Studio ανοίγει τη φόρμα και την εμφανίζει στο παράθυρο σχεδίασης. 2

Κάντε κλικ στο "Προβολή" κουμπί μενού και επιλέξτε " Εργαλεία " από το μενού επιλογών που εμφανίζεται . Ανοίγει η Εργαλειοθήκη . Κάντε διπλό κλικ στο εικονίδιο " PictureBox " από την εργαλειοθήκη . Ένα στοιχείο ελέγχου PictureBox εμφανίζεται στη φόρμα . Κάντε κλικ αυτό το στοιχείο ελέγχου και σύρετε όπου θέλετε την εικόνα σας για να εμφανιστεί .
Εικόνων 3

Πατήστε " F4 " για να ανοίξετε το παράθυρο Ιδιότητες και πληκτρολογήστε " Yellow" στο " BackColor " κείμενο κουτί. Υπόβαθρο του PictureBox γυρίζει κίτρινο .
Η 4

Βρείτε το εικονίδιο σε σχήμα σαν κεραυνός στην κορυφή του παραθύρου Ιδιότητες και κάντε κλικ σε αυτό το εικονίδιο για να εμφανίσετε τα γεγονότα της PictureBox του . Κάντε διπλό κλικ στο " Paint " εκδήλωση . Visual Studio ανοίγει το παράθυρο κώδικα και εμφανίζει μέθοδος βαφής του ελέγχου . Με την προσθήκη κώδικα με τη μέθοδο αυτή , μπορείτε να ελέγξετε τον τρόπο που το πρόγραμμα δημιουργεί το PictureBox
5

Επικολλήστε τον ακόλουθο κώδικα στη μέθοδο Paint : .

Dim image1 Όπως Bitmap = Νέα Bitmap ( " IMAGE_NAME.jpg " ) Dim pixelLocationX Όπως INT16 = 1Dim pixelLocationY Όπως INT16 = 5image1.MakeTransparent ( image1.GetPixel ( pixelLocationX , pixelLocationY ) ) image1.MakeTransparent ( MyColor ) e.Graphics.DrawImage ( image1 , 0 , 0 )

η πρώτη εντολή δημιουργεί μια νέα εικόνα Bitmap ονομάζεται " image1 . " Αντικατάσταση " IMAGE_NAME.jpg " με το όνομα της εικόνας που θέλετε να εμφανίζονται στο PictureBox . Τα επόμενα δύο δηλώσεις καθορίζουν τις "X " και " Y" συντεταγμένες του pixel στην εικόνα σας που θέλετε να χρησιμοποιήσετε ως διαφανή pixel . Τα εν λόγω Χ και Υ συντεταγμένες είναι " 1 " και " 5 " σε αυτό το παράδειγμα . Η μέθοδος εφαρμόζεται MakeTransparent διαφάνειας σε όλα τα εικονοστοιχεία της εικόνας, όπου το χρώμα του pixel ταιριάζει με το χρώμα των διαφανών pixel σας . Η τελική δήλωση εφιστά την εικόνα χρησιμοποιώντας τη μέθοδο DrawImage .
Η

6 Πατήστε το πλήκτρο " F5 ". Τρέχει έργο σας και εμφανίζει την εικόνα σας . Τα τμήματα της εικόνας με το χρώμα ταιριάζει με το διαφανές χρώμα θα είναι διαφανής . Θα είστε σε θέση να δείτε κίτρινο χρώμα ματιά του PictureBox του μέσω των τμημάτων εκείνων της εικόνας .
Η
εικόνων