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.
Configurações
O argumento de cor tem estas definições:
| Número | Co | Número | Co |
|---|---|---|---|
| 0 | Preto | 8 | Cinza |
| 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 |
Comentários
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
Observação
Exemplos que se seguem demonstram a utilização desta função num módulo Visual Basic for Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione Referência do Programador 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