IBM Lotus Symphony


Função QBColor [Tempo de Execução]

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.

Sintaxe:

QBColor (ColorNumber As Integer)

Valores de Retorno:

Longo

Parâmetro:

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.

Códigos de Erro

5 Chamada de procedimento inválida

Exemplo:

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


Feedback do Produto | Documentação Adicional | Marcas Registradas