Modul
Indhold
Indholdsfortegnelse 🔎︎

# QBColor-funktion

Returnerer RGB-farvekoden for farven videregivet som en farveværdi gennem et ældre MS-DOS-baseret programmeringssystem.

## Syntaks:

    QBColor (ColorNumber As Integer)

## Returværdi:

Long

## Parameter:

ColorNumber: Ethvert heltalsudtryk, som angiver farveværdien for farven videregivet fra et ældre MS-DOS-baseret programmeringssystem.

ColorNumber kan tildeles de følgende værdier:

0 : Sort

1 : Blå

2 : Grøn

3 : Turkis

4 : Rød

5 : Magentarød

6 : Gul

7 : Hvid

8 : Grå

9 : Lyseblå

10 : Lysegrøn

11 : Lys turkis

12 : Lyserød

13 : Lys magentarød

14 : Lysegul

15 : Klar hvid

Denne funktion bliver kun brugt til at konvertere fra ældre MS-DOS-baserede BASIC-programmer, som bruger farvekoderne ovenfor. Funktionen returnerer et stort heltal (32 bit), der indikerer farven, som skal bruges i LibreOffice IDE'en.

## Fejlkoder:

5 Ugyldigt Procedurekald

## Eksempel:

    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,"Farve " & iColor
    End Sub