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

Parametre:

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