Πώς να Απόσπασμα RGBS σε VB6

Εξαγωγή το κόκκινο, πράσινο και μπλε ( RGB ) στοιχεία του χρωματικό κώδικα σε Visual Basic 6.0 ( VB6 ) είναι χρήσιμο κατά τη μετατροπή μορφές δεδομένων χρώματος μεταξύ των διαφόρων προγραμμάτων . VB6 παρέχει μια " RGB " για να μετατρέψετε τα χρώματα από κόκκινο, πράσινο και μπλε στοιχεία τους σε μια αριθμητική " Long" τύπος δεδομένων , αλλά στερείται ενσωματωμένη λειτουργία για να μετατρέψετε σε άλλη κατεύθυνση . Επιπλέον , οι κωδικοί χρώματος σε VB6 αποθηκεύονται χρησιμοποιώντας το μικρό endian μορφή , που σημαίνει ότι τα bytes αποθηκεύονται στη μνήμη με την αντίστροφη σειρά . Απόσπασμα τιμές " RGB " από τους κωδικούς χρώματος με την προσθήκη μια υπορουτίνα να επεξεργαστεί και να μετατρέψει αυτόματα τους κωδικούς για εσάς . Οδηγίες
Η

1 Ανοίξτε το αρχείο VB6 σας σε έναν επεξεργαστή κειμένου , όπως το Microsoft Visual Studio 6.0 . 2

Δημιουργήστε μια υπορουτίνα να μετατρέψετε ένα χρωματικό κώδικα VB6 σε κόκκινο, πράσινο της και μπλε στοιχεία , προσθέτοντας τον παρακάτω κώδικα στο αρχείο σας :

Public Sub Hex2RGB ( lColor Όπως Long , r Όπως Byte , g Όπως Byte , β Όπως Byte )

Dim HColor As String

Dim n Όπως Byte

Dim strHexVal Όπως String

strHexVal = Hex $ ( lColor )

strHexVal = Δεξιά ( ( strHexVal ) , 6 )

Για n = 1 Για να ( 6 - Len ( strHexVal ) )

HColor = HColor & " 0 "

Επόμενο

HColor = HColor & strHexVal

r = CByte ( " H & " & Δεξιά $ ( HColor , 2 ) )

g = CByte ( " H & " & Mid $ ( HColor , 3 , 2 ) )

β = CByte ( " H & " & Left $ ( HColor , 2 ) )

End Sub

Ο κωδικός χρώματος μετατρέπεται από "Long " στο " Hex" για ευκολότερη επεξεργασία . Η " Δεξιά ( ( strHexVal ) , 6 ) " εντολή εξαλείφει κάθε επιπλέον χαρακτήρες στην αρχή του string , όπως " & H. " Ο βρόχος "for" προσθέτει 0 πριν από κάθε χαρακτήρα για να διορθώσετε τυχόν προβλήματα μορφοποίησης . VB6 χρησιμοποιεί λίγη endian για την αποθήκευση τιμών χρώμα, έτσι οι " rgb " bytes είναι πραγματικά αποθηκεύονται σε αντίστροφη ως « BBGGRR . " Ο κώδικας χρησιμοποιεί τη λειτουργία " CByte " για να διαλυθει το string για να ανακτήσετε το κόκκινο, πράσινο και μπλε αξίες και να τις αποθηκεύσετε το καθένα ως « Byte ».
Εικόνων 3

Δήλωση μεταβλητών , που ένας χρώμα και στη συνέχεια να καλέσει την υπορουτίνα για να μετατρέψετε τον κώδικα χρώματος με την προσθήκη του παρακάτω κώδικα στη λειτουργία σας :

Dim r , g , b Όπως Byte

Dim lColor Όπως Long

lColor = RGB ( 11 , 200 , 25 )

Call Hex2RGB ( lColor , r , g , b )
Η

4 Αποθηκεύστε το αρχείο VB6 , την κατάρτιση και την εκτέλεση του προγράμματος για τη μετατροπή της χρωματικό κώδικα.
Η
εικόνων