Właściwość BackColor

Dotyczy

Właściwość BackColor służy do określania koloru wnętrza kontrolka lub sekcja. Właściwość do odczytu i zapisu typu Long (liczba długa).

wyrażenie.BackColor

wyrażenie Argument wymagany. Wyrażenie zwracające jeden z obiektów na liście Dotyczy.

Ustawienie

Właściwość BackColor zawiera wyrażenie numeryczne odpowiadające kolorowi użytemu do wypełnienia wnętrza kontrolki lub sekcji.

Za pomocą Konstruktora kolorów możesz ustawić tę właściwość, klikając przycisk Konstruuj z prawej strony pola właściwości w arkusz właściwości. Używanie Konstruktora kolorów umożliwia zdefiniowanie niestandardowych kolorów pleców dla kontrolek lub sekcji.

Tę właściwość można również ustawić przy użyciu arkusz właściwości kontrolki lub sekcji, kodu makro lub Visual Basic for Applications (VBA) albo za pomocą polecenia Kolor wypełnienia w obszarze Czcionka (na karcie Projektowanie lub Formatowanie, w zależności od tego, czy jesteś w widoku projektu, czy w widoku układu).

W kodzie w języku Visual Basic for Applications (VBA) należy użyć wyrażenia numerycznego, aby ustawić tę właściwość. To ustawienie właściwości ma typ danych Long.

Wartość domyślną tej właściwości można ustawić, używając domyślny styl kontrolki kontrolki lub właściwości DefaultControl w kodzie VBA.

Dla obiektów Tabela możesz ustawić tę właściwość przy użyciu polecenia Kolor wypełnienia w obszarze Czcionka na karcie Dane lub w kodzie w języku VBA przy użyciu właściwości DatasheetBackColor.

Spostrzeżenia

Aby użyć właściwości BackColor, wartość właściwości BackStyle, jeśli jest dostępna, musi zostać ustawiona na Normal (Normalny).

Przykład

W poniższym przykładzie użyto funkcji RGB w celu ustawienia właściwości BorderColor, BackColor i ForeColor w zależności od wartość pola tekstowego txtPastDue. Możesz też użyć funkcji QBColor, aby ustawić te właściwości. Umieszczenie następującego kodu zdarzenia Form_Current( ) powoduje ustawienie charakterystyk wyświetlania kontrolki natychmiast po otwarciu przez użytkownika formularza lub przejściu do nowego rekordu.

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