ArtalanRengi Özelliği

Uygulandığı öğe

denetim veya bölüm öğesinin içinde kullanılacak rengi belirtmek için BackColor özelliğini kullanabilirsiniz. Okuma/Yazma Uzun.

ifade.BackColor

ifade Gerekli. Uygulandığı Öğe listesindeki nesnelerden birini döndüren ifade.

Ayar

BackColor özelliği, denetimin veya bölümün içini doldurmak için kullanılan renge karşılık gelen bir sayısal ifade içerir.

Bu özelliği ayarlamak için Color Builder’ı kullanabilir, özellik sayfası içinde özellik kutusunun sağ tarafındaki Oluştur düğmesine tıklayabilirsiniz. Color Builder’ın kullanılması, denetimler veya bölümler için özel arka plan renkleri tanımlamanıza olanak tanır.

Bu özelliği, denetime veya bölüme ait özellik sayfası, makro veya Visual Basic for Applications (VBA) kodu kullanarak ya da Yazı Tipi’nin altındaki (Tasarım görünümünde mi yoksa Düzen görünümünde mi olduğunuza bağlı olarak, Tasarım veya Biçim sekmesinde) Dolgu Rengi komutunu kullanarak da ayarlayabilirsiniz.

Visual Basic for Applications (VBA) kodunda, bu özelliği ayarlamak için sayısal bir ifade kullanın. Bu özellik ayarı, Uzun veri türündedir.

Bu özelliğin varsayılan değerini ayarlamak için denetimdeki varsayılan denetim stili veya VBA kodundaki DefaultControl özelliğini kullanabilirsiniz.

Tablo nesneleri için bu özelliği, Veri sekmesinde yer alan Yazı Tipi’nin altındaki Dolgu Rengi komutunu kullanarak veya VBA kodunda DatasheetBackColor özelliğini kullanarak ayarlayabilirsiniz.

Notlar

BackColor özelliğini kullanmak için, BackStyle özelliği (varsa) Normal olarak ayarlanmalıdır.

Örnek

Aşağıdaki örnekte, txtPastDue metin kutusundaki değere bağlı olarak BorderColor, BackColor ve ForeColor özelliklerini ayarlamak için RGB işlevi kullanılır. Bu özellikleri ayarlamak için QBColor işlevini de kullanabilirsiniz. Form_Current( ) olayına aşağıdaki kod yerleştirilirse, kullanıcı bir form açtığında veya yeni bir kayda geçtiğinde denetim görüntü özellikleri hemen ayarlanır.

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