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

♥ Doe para nosso projeto! ♥