Conteúdo
Índice 🔎︎

# 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 LibreOfficeDev.

### 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