Função QBCor

Nota: Queremos fornecer-lhe os conteúdos de ajuda mais recentes o mais rapidamente possível e no seu idioma. Esta página foi traduzida automaticamente e pode conter erros gramaticais ou imprecisões. O nosso objetivo é que estes conteúdos lhe sejam úteis. Pode informar-nos se as informações foram úteis no final desta página? Eis o artigo em inglês para referência.

Devolve um valor longo que representa o código de cores RGB correspondente ao número de cor especificado.

Sintaxe

QBCor ( cor )

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

Definições

O argumento 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

Turquesa

11

Turquesa 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 cor representa valores de cor utilizados por versões anteriores do básicas (como o Microsoft Visual Basic para MS-DOS e o básico compilador). Começar com o 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 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 QBCor para alterar a propriedade CorDoFundo do formulário passada em como MyForm para a cor indicada por ColorCode. QBCor aceita valores de número inteiro entre 0 e 15.

Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub
Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×