IBM Lotus Symphony
|
Retorna o código de cores RGB da cor transmitida como um valor de cor por meio do sistema de programação baseado no MS-DOS mais antigo.
QBColor (ColorNumber As Integer)
Longo
ColorNumber : Qualquer expressão inteira que especifique o valor de cores da cor transmitida de um sistema de programação baseado no MS-DOS mais antigo.
ColorNumber podem ser atribuídos os seguintes valores:
0 : Preto
1 : Azul
2 : Verde
3 : Ciano
4 : Vermelho
5 : Magenta
6 : Amarelo
7 : Branco
8 : Cinza
9 : Azul Claro
10 : Verde Claro
11 : Ciano Claro
12 : Vermelho Claro
13 : Magenta Claro
14 : Amarelo Claro
15 : Branco Brilhante
Esta função é usada somente para converter a partir dos aplicativos BASIC baseados no MS-DOS mais antigo que usem os códigos de cores acima mencionados. A função retorna um valor de número inteiro longo indicando a cor a ser usada 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