IBM Lotus Symphony
|
Devolve o código de cor RGB da cor transferida como um valor de cor através de um sistema de programação em MS-DOS mais antigo.
QBColor (ColorNumber As Integer)
Long
ColorNumber: Qualquer expressão de números inteiros que especifique o valor de cor da cor transferida de um sistema de programação em MS-DOS mais antigo.
ColorNumber pode ser atribuído aos seguintes valores:
0: Preto
1: Azul
2: Verde
3: Ciano
4: Vermelho
5: Magenta
6: Amarelo
7: Branco
8: Cinzento
9: Azul claro
10: Verde claro
11: Ciano claro
12: Vermelho claro
13: Magenta claro
14: Amarelo claro
15: Branco intenso
Esta função é utilizada somente para converter aplicações BASIC baseadas no MS-DOS que utilizem os códigos de cor acima apresentados. A função devolve um valor inteiro longo que indica a cor a utilizar no 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