Função QBColor

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 (NumeroCor As Integer)

Valor de retorno:

Long

Parâmetros:

NumeroCor: 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.

Pode atribuir os seguintes valores a NumeroCor:

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 só é utilizada para converter aplicações Basic baseadas no MS-DOS que utilizem os códigos de cor acima anteriores. A função devolve um número inteiro longo que indica a cor a utilizar no IDE do LibreOffice.

Códigos de erro

5 Chamada de procedimento invá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,"Cor " & iColor
End Sub

Necessitamos da sua ajuda!