Άρθρωμα
Περιεχόμενα
Δείκτης 🔎︎

# Συνάρτηση QBColor

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

## Σύνταξη:

    QBColor (ColorNumber As Integer)

## Τιμή επιστροφής:

Μεγάλου μήκους

## Παράμετρος:

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

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

0 : Μαύρο

1 : Μπλε

2 : Πράσινο

3 : Κυανό

4 : Κόκκινο

5 : Ματζέντα

6 : Κίτρινο

7 : Λευκό

8 : Γκρι

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

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

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

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

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

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

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

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

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

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