IBM Lotus Symphony


Função QBColor [Runtime]

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.

Sintaxe:

QBColor (ColorNumber As Integer)

Valor de retorno:

Long

Parâmetro:

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.

Códigos de erro

5 Chamada de procedimento não válido

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


Comentários sobre o produto | Documentação adicional | Marcas comerciais