IBM Lotus Symphony
|
Vráti kód RGB farby odovzdaný ako hodnota farby prostredníctvom staršieho programovacieho systému založeného na MS-DOS.
QBColor (ColorNumber As Integer)
Typ Long
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.
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