QBColor Function

Vráti RGB kód farby pre farbu zadanú hodnotou zo starších systémov MS-DOS.

Syntax:

QBColor (ČísloFarby As Integer)

Návratová hodnota:

Long

Parameter:

ČísloFarby: Celočíselný výraz, ktorý určuje hodnotu farby zo starších systémov MS-DOS.

ČísloFarby môže mať nasledujúce hodnoty:

0 : Čierna

1: Modrá

2: Zelená

3: Azúrová

4: Červená

5: Purpurová

6: Žltá

7: Biela

8: Šedá

9: Bledomodrá

10: Bledozelená

11: Svetloazúrová

12: Bledočervená

13: Svetlopurpurová

14: Svetložltá

15: Jasná biela

Táto funkcia sa používa iba pre prevod starších aplikácií BASIC, ktoré používajú zmienené farebné kódy. Funkcia vracia celočíselnú hodnotu určujúcu farbu použitú v LibreOffice IDE.

Error codes:

5 Neplatné volanie procedúry

Príklad:


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

Please support us!