IBM Lotus Symphony


Funkcia QBColor [Runtime]

Vráti kód RGB farby odovzdaný ako hodnota farby prostredníctvom staršieho programovacieho systému založeného na MS-DOS.

Syntax:

QBColor (ColorNumber As Integer)

Návratová hodnota:

Typ Long

Parameter:

ColorNumber: Každý celočíselný výraz, ktorý špecifikuje hodnotu farby odovzdanú zo staršieho programovacieho systému založeného na MS-DOS.

ColorNumber môže mať priradené 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 : Bledo azúrová

12 : Bledočervená

13 : Bledo purpurová

14 : Bledožltá

15 : Jasná biela

Táto funkcia sa používa len na skonvertovanie zo starších aplikácií BASIC založených na MS-DOS, ktoré používajú hore uvedené kódy farieb. Funkcia vráti dlhú celočíselnú hodnotu, ktoré označuje farbu, ktorá sa má použiť v Lotus® Symphony™ IDE.

Chybové kódy

5 Neplatné volanie procedúry

Príklad:

Sub ExampleQBColor

Dim iColor As Integer

Dim sText ako typ String

iColor = 7

sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )

MsgBox stext,0,"Color " & iColor

End Sub


Spätná väzba na produkt | Ďalšia dokumentácia | Ochranné známky