Função QBColor

Retorna um Long que representa o código de cor RGB correspondente ao número de cores especificado.

Sintaxe

QBColor(cor)

O argumento de cor necessário é um número inteiro no intervalo de 0 a 15.

Configurações

O argumento de cor tem essas configurações:

Número Cor Número Cor
0 Preto 8 Cinza
1 Azul 9 Azul Claro
2 Verde 10 Verde Claro
3 Ciano 11 Ciano Claro
4 Vermelho 12 Vermelho Claro
5 Magenta 13 Magenta Leve
6 Amarelo 14 Amarelo Claro
7 Branco 15 Branco Brilhante

Comentários

O argumento de cor representa valores de cor usados por versões anteriores do Basic (como o Microsoft Visual Basic para MS-DOS e o Compilador Básico). Começando com o byte menos significativo, o valor retornado especifica os valores vermelho, verde e azul usados para definir a cor apropriada no sistema RGB usado por Visual Basic for Applications.

Exemplo

Este exemplo usa a função QBColor para alterar a propriedade BackColor do formulário passado quanto MyForm à cor indicada por ColorCode. O QBColor aceita valores inteiros entre 0 e 15.

Sub ChangeBackColor (ColorCode As Integer, MyForm As Form)
    MyForm.BackColor = QBColor(ColorCode)
End Sub

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.