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 por Visual Basic for Applications.
Exemplo
Observação: Exemplos a seguir demonstram o uso dessa função em um módulo VBA (Visual Basic for Applications). 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
