Propriedade BackColor

Aplicável a

Você pode usar a propriedade BackColor para especificar a cor do interior de um controle ou seção. Longo de leitura/gravação.

expressão.BackColor

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

Configuração

A propriedade BackColor contém um expressão numérica que corresponde à cor usada para preencher o interior de um controle ou seção.

Você pode usar o Construtor de Cor para definir esta propriedade clicando no botão Criar à direita da caixa de propriedade no folha de propriedades. Usar o Construtor de Cor permite definir cores de fundo personalizadas para seções ou controles.

Você também pode definir esta propriedade usando o folha de propriedades de um controle ou seção, um macro ou o código do Visual Basic for Applications (VBA), ou usando o comando Fill Color em Fonte (na guia Design ou Formato, dependendo se você estiver no modo Layout ou Design).

No código do Visual Basic for Applications (VBA), use uma expressão numérica para definir esta propriedade. Essa configuração de propriedade tem um tipo de dados Longo.

Você pode definir o padrão para esta propriedade usando o estilo de controle padrão de um controle ou a propriedade DefaultControl no código do VBA.

Para objetos Table, você pode definir esta propriedade usando o comando Fill Color em Font na guia Dados ou no código de VBA usando a propriedade DatasheetBackColor.

Comentários

Para usar a propriedade BackColor, a propriedade BackStyle, se estiver disponível, deverá ser definida como Normal.

Exemplo

O exemplo a seguir usa a função RGB para definir as propriedades BorderColor, BackColor e ForeColor dependendo do valor da caixa de texto txtPastDue. Você também pode usar a função QBColor para definir essas propriedades. Colocar o código a seguir no evento Form_Current( ) define as características da exibição do controle assim que o usuário abre um formulário ou move para um novo registro.

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