Πώς να διαβάσετε Pixels Από Κουτιά Εικόνα σε VB6

Διαβάζοντας ένα μεμονωμένο pixel από μια εικόνα δεν είναι δύσκολο . Στην πραγματικότητα , VB ( Visual Basic ) έχει συγκεκριμένες λειτουργίες ενσωματωμένες , που επιτρέπουν στον προγραμματιστή να δείτε και να επεξεργαστείτε pixels γρήγορα και εύκολα . Υπάρχουν και άλλες προηγμένο API ( Application Programming Interface ) λειτουργίες που χρησιμοποιούν προηγμένες προγραμματιστές που είναι πιο γρήγορη και πιο αποτελεσματική . Μαθαίνοντας πώς να δουν ένα pixel και να εξαγάγετε τα μεμονωμένα χρώμα μέσα από αυτό το εικονοστοιχείο είναι μόνο τα πρώτα βήματα για να γίνει ένας γκουρού VB . Οδηγίες
Η 1

Ξεκινήστε την εφαρμογή VB6 . Μετάβαση στη φόρμα όπου έχετε την εικόνα που θέλετε να λαμβάνετε τα δεδομένα από . 2

Ανοίξτε τη φόρμα σε προβολή σχεδίασης .
Εικόνων 3

Δημιουργία τρεις λειτουργίες που θα διαβάσει το pixel αφού έχετε ανακτηθεί it.Public Λειτουργία ExtractRed ( ByVal CurrentColor Όπως Long ) Όπως ByteExtractRed = CurrentColor Και 255End FunctionPublic ExtractGreen Λειτουργία ( ByVal CurrentColor Όπως Long ) Όπως ByteExtractGreen = ( CurrentColor \\ 256 ) Και 255End FunctionPublic ExtractBlue Λειτουργία ( ByVal CurrentColor όπως Long ) όπως ByteExtractBlue = ( CurrentColor \\ 65536 ) και 255End Λειτουργία
4

Dim αντικείμενά σας ως εξής : Dim PixelColor ως LongDim ColorRed ως Byte , ColorGreen ως Byte , ColorBlue ως ByteDim δήλωνε αρχικά διάσταση και η χρήση της είναι εδώ ως ρήμα . PixelColor , ColorRed , ColorGreen και ColorBlue όλες οι μεταβλητές που περιμένουν για την εισαγωγή δεδομένων
5

Πληκτρολογήστε τον ακόλουθο κώδικα παρακάτω Δημ. δηλώσεις σας : . PixelColor = PictureBox.Point ( x , y ) Τώρα ο κώδικας μοιάζει με αυτό : Δημ. PixelColor ως LongDim ColorRed ως Byte , ColorGreen ως Byte , ColorBlue ως BytePixelColor = PictureBox.Point ( x , y ) PictureBox είναι το όνομα του picturebox εικόνα σας είναι in οι συντεταγμένες ( x , y) οι συντεταγμένες του συγκεκριμένου pixel θέλετε δεδομένα . Τα δεδομένα από το πίξελ είναι τώρα αποθηκεύεται στη μεταβλητή PixelColor . Το επόμενο βήμα είναι να εξαγάγετε τα μεμονωμένα χρώματα του φάσματος RGB
Η

6 Πληκτρολογήστε τον ακόλουθο κώδικα στο πλαίσιο την τελευταία δήλωση: . ColorRed = ExtractRed ( Χρώμα ) ColorGreen = ExtractGreen ( Χρώμα ) ColorBlue = ExtractBlue (Color ) τώρα ο κώδικας μοιάζει με αυτό : Dim PixelColor ως LongDim ColorRed ως Byte , ColorGreen ως Byte , ColorBlue ως BytePixelColor = PictureBox.Point ( x , y ) = ColorRed ExtractRed ( PixelColor ) ColorGreen = ExtractGreen ( PixelColor ) ColorBlue = ExtractBlue ( PixelColor ) τώρα κάθε μία από τις μεταβλητές ColorRed , ColorGreen και ColorBlue θα έχει έναν αριθμό από μηδέν έως 255 αποθηκεύονται σε αυτά . Έχετε άρπαξε με επιτυχία ένα pixel και χάλασε τη συγκεκριμένη σειρά των χρωμάτων .
Η
εικόνων