Propriedade CorDoFundo

Aplica-se a

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