Função QBColorQBColor function

Retorna um Long representando o código de cor RGB correspondente ao número de cor especificada.Returns a Long representing the RGB color code corresponding to the specified color number.

SintaxeSyntax

QBColor (cores)QBColor(color)

O argumento do necessário cor é um número inteiro no intervalo de 0 a 15.The required color argument is a whole number in the range 0-15.

ConfiguraçõesSettings

O argumento color possui as seguintes configurações:The color argument has these settings:

NúmeroNumber CorColor NúmeroNumber CorColor
00 PretoBlack 88 CinzaGray
11 AzulBlue 99 Azul ClaroLight Blue
22 VerdeGreen 1010 Verde ClaroLight Green
33 CianoCyan 1111 Ciano ClaroLight Cyan
44 VermelhoRed 1212 Vermelho claroLight Red
55 MagentaMagenta 1313 Magenta claroLight Magenta
66 AmareloYellow 1414 Amarelo ClaroLight Yellow
77 BrancoWhite 1515 Branco brilhanteBright White

ComentáriosRemarks

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).The color argument represents color values used by earlier versions of Basic (such as Microsoft Visual Basic for MS-DOS and the 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.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.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 aceita os valores do tipo integer entre 0 e 15.QBColor accepts integer values between 0 and 15.

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

Confira tambémSee also