Propriedade CorDoFundo

Aplica-se a

Objeto BoundObjectFrame

Objeto ObjectFrame

Objeto ComboBox

Objeto OptionGroup

Objeto FormatCondition

Objeto Rectangle

Objeto Image

Objeto Section

Objeto Label

Objeto TextBox

Objeto ListBox

Pode utilizar a propriedade CorDoFundo para especificar a cor para o preenchimento do controlo ou da secção. Número Inteiro Longo de leitura/escrita.

expressão.CorDoFundo

expressão Obrigatório. Uma expressão que devolve um dos objetos na lista Aplica-se a.

Definição

A propriedade CorDoFundo contém uma expressão numérica que corresponde à cor utilizada para preencher o interior de um controlo ou secção.

Pode utilizar o Construtor de Cores para definir esta propriedade ao clicar no botão Criar à direita da caixa de propriedades na folha de propriedades. A utilização do Construtor de Cores permite-lhe definir cores de fundo personalizadas para controlos e secções.

Também pode definir esta propriedade ao utilizar a folha de propriedades de um controlo ou secção, uma macro, um código VBA (Visual Basic for Applications) ou ao utilizar o comando Cor de Preenchimento em Tipo de Letra (no separador Estrutura ou Formatar, caso esteja na vista Estrutura ou na vista Esquema).

No código VBA (Visual Basic for Applications), utilize uma expressão numérica para definir esta propriedade. A definição da propriedade tem o tipo de dados Número Inteiro Longo.

Pode definir a predefinição para esta propriedade ao utilizar o estilo predefinido do controlo de um controlo ou a propriedade DefaultControl no código VBA.

Para os objetos Table, pode definir esta propriedade com o comando Cor de Preenchimento em Tipo de Letra no separador Dados ou em código VBA ao utilizar a propriedade CorDoFundoDaFolhaDeDados.

Observações

Para utilizar a propriedade CorDoFundo, a propriedade EstiloDoFundo, caso esteja disponível, tem de estar definida como Normal.

Exemplo

O seguinte exemplo utiliza a função RGB para definir as propriedades CorDosLimites, CorDoFundo e CorDePrimeiroPlano, consoante o valor da caixa de texto do txtPastDue. Também pode utilizar a função QBCor para definir essas propriedades. Ao colocar o seguinte código no evento Formulário_Atual( ), define a apresentação das características do controlo assim que o utilizador abrir o formulário ou se mover para um novo registo.

Sub Form_Current()
Dim curAmntDue As Currency, lngBlack As Long
Dim lngRed As Long, lngYellow As Long, lngWhite As Long
If Not IsNull(Me!txtPastDue.Value) Then
curAmntDue = Me!txtPastDue.Value
Else
Exit Sub
End If
lngRed = RGB(255, 0, 0)
lngBlack = RGB(0, 0, 0)
lngYellow = RGB(255, 255, 0)
lngWhite = RGB(255, 255, 255)
If curAmntDue > 100 Then
Me!txtPastDue.BorderColor = lngRed
Me!txtPastDue.ForeColor = lngRed
Me!txtPastDue.BackColor = lngYellow
Else
Me!txtPastDue.BorderColor = lngBlack
Me!txtPastDue.ForeColor = lngBlack
Me!txtPastDue.BackColor = lngWhite
End If
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.

×