Office
Είσοδος

Συνάρτηση QBColor

Σημείωση: Θέλουμε να σας παρέχουμε το πιο πρόσφατο περιεχόμενο βοήθειας στη γλώσσα σας όσο πιο σύντομα γίνεται. Αυτή η σελίδα έχω μεταφραστεί μέσω αυτοματοποιημένης διαδικασίας και ενδεχομένως να περιέχει γραμματικά λάθη και ανακρίβειες. Ο σκοπός μας είναι αυτό το περιεχόμενο να σας φανεί χρήσιμο. Μπορείτε να μας ενημερώσετε στο κάτω μέρος αυτής της σελίδας εάν οι πληροφορίες σάς φάνηκαν χρήσιμες; Εδώ θα βρείτε το άρθρο στα Αγγλικά, για να το συμβουλεύεστε εύκολα.

Επιστρέφει έναν ακέραιο μεγάλου μήκους που αντιπροσωπεύει τον κωδικό χρώματος RGB που αντιστοιχεί στον καθορισμένο αριθμό χρώματος.

Σύνταξη

QBColor ( χρώμα )

Τα απαιτούμενα χρώμαόρισμα είναι ένας ακέραιος αριθμός στην περιοχή 0-15.

Ρυθμίσεις

Το όρισμα χρώμα περιλαμβάνει αυτές τις ρυθμίσεις:

Αριθμός

Χρώμα

Αριθμός

Χρώμα

0

Μαύρο

8

Γκρι

1

Μπλε

9

Ανοιχτό μπλε

2

Πράσινο

10

Ανοιχτό πράσινο

3

Γαλάζιο

11

Ανοικτό γαλάζιο

4

Κόκκινο

12

Ανοιχτό κόκκινο

5

Ματζέντα

13

Ανοιχτό ματζέντα

6

Κίτρινο

14

Ανοιχτό κίτρινο

7

Λευκό

15

Φωτεινό λευκό


Παρατηρήσεις

Το όρισμα χρώμα αντιπροσωπεύει τιμές χρώματος που χρησιμοποιούνται από προηγούμενες εκδόσεις του βασικού (όπως το Microsoft Visual Basic for MS-DOS και το βασικό πρόγραμμα μεταγλώττισης). Ξεκινώντας με το λιγότερο σημαντικό byte, επιστρέφεται η τιμή καθορίζει το κόκκινο, πράσινο και μπλε τιμές που χρησιμοποιούνται για να ορίσετε το κατάλληλο χρώμα στο σύστημα RGB που χρησιμοποιείται από τη Visual Basic για εφαρμογές.

Παράδειγμα

Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε ένα έργο Visual Basic για τη λειτουργική μονάδα Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στο στοιχείο Αναζήτηση και πληκτρολογήστε μία ή περισσότερες όρων στο πλαίσιο αναζήτησης.

Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση QBColor για να αλλάξετε την ιδιότητα BackColor της φόρμας που εισήχθησαν στο ως MyForm στο χρώμα που υποδεικνύεται από ColorCode. QBColor δέχεται ακέραιες τιμές μεταξύ 0 και 15.

Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub
Αναπτύξτε τις δεξιότητές σας στο Office
Εξερευνήστε το περιεχόμενο της εκπαίδευσης
Αποκτήστε πρώτοι τις νέες δυνατότητες
Γίνετε μέλος του Office Insider

Σας βοήθησαν αυτές οι πληροφορίες;

Σας ευχαριστούμε για τα σχόλιά σας!

Σας ευχαριστούμε για τα σχόλιά σας! Φαίνεται ότι μπορεί να είναι χρήσιμο να συνδεθείτε με έναν από τους συνεργάτες υποστήριξης του Office.

×