Proprietatea BackColor

Se aplică la

Puteți utiliza proprietatea BackColor pentru a specifica culoarea pentru interiorul unui control sau pentru o secțiune. Long în citire/scriere.

expresie.BackColor

expresie Obligatoriu. O expresie care returnează unul dintre obiectele din lista Se aplică la.

Setare

Proprietatea BackColor conține o expresie numerică ce corespunde culorii utilizate pentru a umple interiorul unui control sau al unei secțiuni.

Puteți utiliza Generatorul de culoare pentru a seta această proprietate, făcând clic pe butonul Generare din dreapta casetei de proprietăți din foaie de proprietăți. Utilizarea Generatorului de culoare vă permite să definiți culorile de fundal particularizate pentru controale sau secțiuni.

De asemenea, puteți seta această proprietate utilizând foaie de proprietăți unui control sau al secțiunii, un macrocomandă sau cod Visual Basic for Applications (VBA) sau utilizând comanda Culoare de umplere de sub Font (pe fila Proiectare sau Format , în funcție de locul în care vă aflați în Vizualizarea proiect sau vizualizarea Aspect).

În codul Visual Basic for Applications (VBA), utilizați o expresie numerică pentru a seta această proprietate. Această setare de proprietate are un tip de date Long.

Puteți seta valoarea implicită pentru această proprietate utilizând un stil implicit de control al controlului sau proprietatea DefaultControl în codul VBA.

Pentru obiectele Table, puteți seta această proprietate utilizând comanda Culoare de umplere de sub Font, pe fila Date sau cod VBA, utilizând proprietatea DatasheetBackColor.

Observații

Pentru a utiliza proprietatea BackColor, proprietatea BackStyle, dacă este disponibilă, trebuie setată la Normal.

Exemplu

Următorul exemplu utilizează funcția RGB pentru a seta proprietățile BorderColor, BackColor și ForeColor în funcție valoarea casetei text txtPastDue. Puteți utiliza și funcția QBColor pentru a seta aceste proprietăți. Plasarea următorului cod în evenimentul Form_Current( ) setează caracteristicile de afișare a controlului imediat ce utilizatorul deschide un formular sau trece la o înregistrare nouă.

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