Módulo
Conteúdo
Índice 🔎︎

# Função QBColor

Retorna o código de cor RGB da cor passada como um valor de cor por meio de um sistema de programação antigo baseado em MS-DOS.

## Sintaxe:

    QBColor (ColorNumber As Integer)

## Valor de retorno:

Long

## Parâmetro:

ColorNumber: qualquer expressão de número inteiro que especifique o valor de cor da cor passada a partir de um sistema de programação mais antigo, baseado em MS-DOS.

É possível atribuir os seguintes valores a ColorNumber:

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 brilhoso

Esta função é usada apenas para fazer a conversão de aplicativos BASIC baseados em um sistema MS-DOS mais antigo que utilizem os códigos de cores acima. A função retorna um valor inteiro longo que indica a cor a ser usada no IDE do LibreOffice.

## 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,"Cor " & iColor

    End Sub