IBM Lotus Symphony
|
Returnerer RGB-fargekoden i fargen som sendes som en fargeverdi gjennom et eldre MS-DOS-baserte programmeringssystem.
QBColor (Fargenummer som Heltall)
Lang
Fargenummer: Et heltallsuttrykk som angir fargeverdien til fargen som sendes fra et eldre MS-DOS-basert programmeringssystem.
Fargenummer kan tildeles følgende verdier:
0 : Svart
1 : Blå
2 : Grønn
3 : Cyan
4 : Rød
5 : Magenta
6 : Gul
7 : Hvit
8 : Grå
9 : Lys blå
10 : Lys grønn
11 : Lys cyan
12 : Lys rød
13 : Lys magenta
14 : Lys gul
15 : Lys hvit
Denne funksjonen brukes bare til å konvertere fra eldre MS-DOS-baserte BASIC-applikasjoner som bruker fargekodene ovenfor. Funksjonen returnerer en lang heltallsverdi som indikerer fargen som skal brukes i Lotus Symphony-IDE.
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