Properti BackColor

Berlaku untuk

Anda dapat menggunakan properti BackColor untuk menentukan warna interior kontrol atau bagian. Baca/tulis Long.

ekspresi.BackColor

ekspresi Diperlukan. Ekspresi yang mengembalikan salah satu objek dalam daftar Berlaku Untuk.

Pengaturan

Properti BackColor berisi ekpresi numerik yang berkaitan dengan warna yang digunakan untuk mengisi interior kontrol atau bagian.

Anda dapat menggunakan Penyusun Warna untuk mengatur properti dengan mengklik tombol Susun di kanan kotak properti pada lembar properti. Dengan Penyusun Warna memungkinkan Anda menentukan warna latar kustom untuk kontrol atau bagian.

Anda juga dapat mengatur properti dengan lembar properti kontrol atau bagian, makro, atau kode Visual Basic untuk Aplikasi (VBA), atau dengan perintah Isi Warna di bawah Font (pada tab Desain atau Format, tergantung apakah Anda berada di tampilan Desain atau Tata Letak).

Di kode Visual Basic for Applications, gunakan ekspresi numerik untuk menentukan properti ini. Pengaturan properti ini memiliki jenis data Panjang.

Anda dapat mengatur default untuk properti ini dengan kontrol gaya kontrol default atau properti DefaultControl di kode VBA.

Untuk objek Tabel Anda dapat mengatur properti dengan perintah Isi Warna di bawah Font pada tab Data, atau di kode VBA dengan properti DatasheetBackColor.

Keterangan

Untuk menggunakan properti BackColor, properti BackStyle, jika ada, harus diatur ke Normal.

Contoh

Contoh berikut ini menggunakan fungsi RGB untuk menentukan properti BorderColor, BackColor, dan ForeColor tergantung pada nilai kotak teks txtPastDue. Anda juga dapat menggunakan fungsi QBColor untuk mengatur properti ini. Menyimpan kode dalam acara Form_Current( ) mengatur karakteristik tampilan kontrol sesaat setelah pengguna membuka formulir atau memindahkannya ke data baru.

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