IBM Lotus Symphony
|
Vrne RGB barvno kodo barve, podane kot vrednost barve v starejših sistemih za programiranje, ki temeljijo na MS-DOS.
QBColor (ColorNumber As Integer)
Dolgo celo število
ColorNumber: Katerikoli celoštevilski izraz, ki podaja vrednost barve za barvo, ki je podana iz starejšega sistema za programiranje, ki temelji na MS-DOS.
ColorNumber se lahko dodeli naslednje vrednosti:
0 : Črna
1 : Modra
2 : Zelena
3 : Cijan
4 : Rdeča
5 : Magenta
6 : Rumena
7 : Bela
8 : Siva
9 : Svetlo modra
10 : Svetlo zelena
11 : Svetlo cijan
12 : Svetlo rdeča
13 : Svetlo magenta
14 : Svetlo rumena
15 : Bleščeče bela
Ta funkcija se uporablja samo za pretvorbo iz starejših aplikacij, ki temeljijo na BASIC MS-DOS, in uporabljajo zgoraj navedene kode barv. Funkcija vrne dolgo celo število, ki označuje barvo, ki naj se uporablja v IDE-ju programske opreme Lotus® Symphony™.
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,"Barva " & iColor
End Sub