Devolve um Valor Longo representando o código de cor RGB correspondente ao número de cor especificado.
Sintaxe
QBColor ( cor )
A cor necessáriaargumento é um número inteiro no intervalo 0-15.
Definições
O argumento de cor tem estas definições:
|
Número |
Cor |
Número |
Cor |
|
0 |
Preto |
8 |
Cinzento |
|
1 |
Azul |
9 |
Azul Claro |
|
2 |
Verde |
10 |
Verde Claro |
|
3 |
Yan |
11 |
Ciano Claro |
|
4 |
Vermelho |
12 |
Vermelho Claro |
|
5 |
Magenta |
13 |
Magenta Claro |
|
6 |
Amarelo |
14 |
Amarelo Claro |
|
7 |
Branco |
15 |
Branco Brilhante |
Observações
O argumento de cor representa valores de cor utilizados por versões anteriores do Básico (como o Microsoft Visual Basic para MS-DOS e o Compilador Básico). A partir do byte menos significativo, o valor devolvido especifica os valores vermelho, verde e azul utilizados para definir a cor adequada no sistema RGB utilizado pelo Visual Basic for Applications.
Exemplo
Nota: Os exemplos seguintes demonstram a utilização desta função no módulo VBA (Visual Basic for Applications). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência para Programadores na lista pendente junto a Procurar e introduza um ou mais termos na caixa de pesquisa.
Este exemplo utiliza a função QBColor para alterar a propriedade BackColor do formulário transmitido como MyForm para a cor indicada por ColorCode. QBColor aceita valores inteiros entre 0 e 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub
