Properti BackColor

Berlaku untuk

Objek BoundObjectFrame

Objek ObjectFrame

Objek ComboBox

Objek OptionGroup

Objek FormatCondition

Objek Persegi

Objek Gambar

Objek Bagian

Objek Label

Objek TextBox

Objek ListBox

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
Kembangkan keterampilan Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×