Função QBColor

Observação: Desejamos fornecer o conteúdo da Ajuda mais recente no seu idioma da forma mais rápida possível. Esta página foi traduzida de forma automatizada e pode conter imprecisões ou erros gramaticais. Nosso objetivo é que este conteúdo seja útil para você. As informações foram úteis? Dê sua opinião no final desta página. Aqui está o artigo em inglês para facilitar a referência.

Retorna um longo que representa o código de cor RGB correspondente ao número de cor especificada.

Sintaxe

QBColor ( cor )

O necessário corargumento é um número inteiro no intervalo 0 – 15.

Configurações

O argumento color possui estas configurações:

Número

Cor

Número

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 Light

6

Amarelo

14

Amarelo-claro

7

Branco

15

Branco brilhante


Comentários

O argumento de cor representa valores de cores 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 de vermelho, verde e azul usados para definir a cor apropriada no sistema RGB utilizado pelo Visual Basic para aplicativos.

Exemplo

Observação: Exemplos a seguir demonstram o uso dessa função em um Visual Basic para módulo Applications (VBA). Para obter mais informações sobre como trabalhar com o VBA, selecione a Referência do desenvolvedor na lista suspensa ao lado de pesquisa 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. QBColor aceita valores de número inteiro entre 0 e 15.

Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub
Expanda suas habilidades no Office
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar no Office Insider

Essas informações foram úteis?

Obrigado por seus comentários!

Agradecemos pelos seus comentários! Parece que pode ser útil conectar você a um de nossos agentes de suporte do Office.

×