Table of contents
TOC
Recolher sumário
Expandir sumário

Função QBColorQBColor Function

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

Retorna um Long representando o código de cor RGB correspondente ao número de cor especificada. SintaxeQBColor (cor) Oargumento do necessário cor_é um número inteiro no intervalo de 0 a 15. Configurações O argumento _color possui as seguintes configurações:Returns a Long representing the RGB color code corresponding to the specified color number. SyntaxQBColor(color) The required colorargument is a whole number in the range 0-15. Settings The color argument has these settings:

NúmeroNumberCorColorNúmeroNumberCorColor
00PretoBlack88CinzaGray
11AzulBlue99Azul ClaroLight Blue
22VerdeGreen1010Verde ClaroLight Green
33CianoCyan1111Ciano ClaroLight Cyan
44VermelhoRed1212Vermelho claroLight Red
55MagentaMagenta1313Magenta claroLight Magenta
66AmareloYellow1414Amarelo ClaroLight Yellow
77BrancoWhite1515Branco brilhanteBright White

Comentários O argumento color representa os valores de cores usados por versões anteriores do nível básico (como o Microsoft Visual Basic for MS-DOS e o Basic Compiler). Iniciando 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 usado pelo Visual Basic for Applications.Remarks The color argument represents color values used by earlier versions of Basic (such as Microsoft Visual Basic for MS-DOS and the Basic Compiler). Starting with the least-significant byte, the returned value specifies the red, green, and blue values used to set the appropriate color in the RGB system used by Visual Basic for Applications.

ExemploExample

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 os valores do tipo integer entre 0 e 15.This example uses the QBColor function to change the BackColor property of the form passed in as MyForm to the color indicated by ColorCode. QBColor accepts integer values between 0 and 15.

Sub ChangeBackColor (ColorCode As Integer, MyForm As Form)
    MyForm.BackColor = QBColor(ColorCode)
End Sub
© 2018 Microsoft