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âmetros:

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