Devolve um Longo que representa o código de cor RGB correspondente ao número da cor especificada.
Sintaxe
QBColor(cor)
O argumento de cornecessária é um número inteiro no intervalo de 0 a 15.
Definições
O argumento de cor tem as seguintes definições:
| Número | Cor | Número | Cor |
|---|---|---|---|
| 0 | Preto | 8 | Cinzento |
| 1 | Azul | 9 | Azul claro |
| 2 | Verde | 10 | Verde claro |
| 3 | Turquesa | 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 color representa valores de cor utilizados por versões anteriores do Basic (como o Microsoft Visual Basic for MS-DOS e o Basic Compiler). Começando com o byte menos significativo, o valor devolvido especifica os valores vermelho, verde e azul utilizados para definir a cor apropriada no sistema RGB utilizado por 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 usa a função QBCor para alterar a propriedade BackColor do formulário passado como MyForm a cor indicada por ColorCode.
QBCor aceita valores inteiros entre 0 e 15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub