Retorna um Long que representa o código de cor RGB correspondente ao número de cores especificado.
Sintaxe
QBColor ( cor )
A cor necessáriaargumento é um número inteiro no intervalo de 0 a 15.
Configurações
O argumento de cor tem essas configurações:
Núm |
Cor |
Núm |
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 pelo Visual Basic para Aplicativos.
Exemplo
Observação: Exemplos a seguir demonstram o uso dessa função em um módulo do Visual Basic for Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Desenvolvedor na lista suspensa ao lado de Pesquisar e insira um ou mais termos na caixa de pesquisa.
Este exemplo usa a função QBColor para alterar a propriedade BackColor do formulário passado como MyForm para a 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