Devolve um Valor Longo representando o código de cor RGB correspondente ao número de cor especificado.
Sintaxe
QBColor(cor)
O argumento de cornecessário é 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 quanto MyForm à 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