Επιστρέφει μια τιμή Long που αντιπροσωπεύει τον χρωματικό κωδικό RGB που αντιστοιχεί στον καθορισμένο έγχρωμο αριθμό.
Σύνταξη
QBColor ( χρώμα )
Το απαιτούμενο χρώμαόρισμα είναι ένας ακέραιος αριθμός στην περιοχή από 0 έως 15.
Ρυθμίσεις
Το όρισμα χρώματος έχει τις εξής ρυθμίσεις:
|
Αριθμός |
Χρώμα |
Αριθμός |
Χρώμα |
|
0 |
Μαύρο |
8 |
Γκρι |
|
1 |
Μπλε |
9 |
Ανοιχτό μπλε |
|
2 |
Πράσινο |
10 |
Ανοιχτό πράσινο |
|
3 |
Κυανό |
11 |
Ανοιχτό κυανό |
|
4 |
Κόκκινο |
12 |
Ανοιχτό κόκκινο |
|
5 |
Ματζέντα |
13 |
Φως Ματζέντα |
|
6 |
Κίτρινο |
14 |
Ανοιχτό κίτρινο |
|
7 |
Λευκό |
15 |
Φωτεινό λευκό |
Παρατηρήσεις
Το όρισμα χρώματος αντιπροσωπεύει τιμές χρώματος που χρησιμοποιούνται από προηγούμενες εκδόσεις του Βασικού (όπως η Microsoft Visual Basic για MS-DOS και το Βασικό μεταγλώττιση). Ξεκινώντας με τα λιγότερο σημαντικά byte, η επιστρεφόμενη τιμή καθορίζει τις κόκκινες, πράσινες και μπλε τιμές που χρησιμοποιούνται για τον ορισμό του κατάλληλου χρώματος στο σύστημα RGB που χρησιμοποιείται από τη Visual Basic for Applications.
Παράδειγμα
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση QBColor για να αλλάξει την ιδιότητα BackColor της φόρμας που μεταβιβάζεται ως MyForm στο χρώμα που υποδεικνύεται από ColorCode. Το QBColor δέχεται ακέραιες τιμές μεταξύ 0 και 15.
Sub ChangeBackColor (ColorCode As Integer, _ MyForm As Form) MyForm.BackColor = QBColor(ColorCode)End Sub
