Ενεργοποιήστε τη JavaScript στον περιηγητή για να εμφανίσετε τις σελίδες βοήθειας LibreOfficeDev.

Συνάρτηση QBColor

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

Σύνταξη:

QBColor (ColorNumber As Integer)

Επιστρεφόμενη τιμή:

Long

Παράμετροι:

ColorNumber: Κάθε παράσταση ακέραιου αριθμού που καθορίζει την τιμή χρώματος του χρώματος που μεταβιβάζεται από παλιότερο προγραμματιστικό σύστημα που βασίζεται σε MS-DOS. Η παράμετρος

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

0 : Μαύρο

1 : Μπλε

2 : Πράσινο

3 : Κυανό

4 : Κόκκινο

5 : Ματζέντα

6 : Κίτρινο

7 : Λευκό

8 : Γκρι

9 : Ανοιχτό μπλε

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

11 : Ανοιχτό κυανό

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

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

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

15 : Έντονο λευκό

Αυτή η συνάρτηση χρησιμοποιείται μόνο για τη μετατροπή παλαιοτέρων εφαρμογών BASIC που στηρίζονται σε MS-DOS και που χρησιμοποιούν τους παραπάνω κώδικες χρωμάτων. Η συνάρτηση επιστρέφει μια τιμή ακέραιου μεγάλου μήκους υποδεικνύοντας το χρώμα που πρόκειται να χρησιμοποιηθεί στο IDE του LibreOfficeDev.

Κωδικοί σφάλματος:

5 Άκυρη κλήση διαδικασίας

Παράδειγμα:


Sub ExampleQBColor
Dim iColor As Integer
Dim sText As String
    iColor = 7
    sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )
    MsgBox stext,0,"Χρώμα " & iColor
End Sub