คุณสมบัติ 'สีพื้นหลัง' (BackColor)

นำไปใช้กับ

คุณสามารถใช้คุณสมบัติ BackColor เพื่อระบุสีสําหรับการตกแต่งภายในของ ตัวควบคุม หรือ ส่วน อ่าน/เขียน แบบยาว

นิพจน์.BackColor

นิพจน์ จำเป็น นิพจน์ที่ส่งกลับวัตถุใดวัตถุหนึ่งในรายการ นําไปใช้กับ

การตั้งค่า

คุณสมบัติ BackColor จะมี นิพจน์ตัวเลข ที่สอดคล้องกับสีที่ใช้เติมด้านในของตัวควบคุมหรือส่วน

คุณสามารถใช้ตัวสร้างสีเพื่อตั้งค่าคุณสมบัตินี้ได้โดยการคลิกปุ่ม สร้าง ทางด้านขวาของกล่องคุณสมบัติใน แผ่นคุณสมบัติ การใช้ตัวสร้างสีช่วยให้คุณสามารถกําหนดสีพื้นหลังแบบกําหนดเองสําหรับตัวควบคุมหรือส่วนได้

คุณยังสามารถใช้คุณสมบัตินี้โดยการใช้ แผ่นคุณสมบัติ, แมโคร หรือโค้ด Visual Basic for Applications (VBA) ของตัวควบคุมหรือส่วน หรือใช้คำสั่ง เติมสี ภายใต้ ฟอนต์ (บนแท็บ ออกแบบ หรือ รูปแบบ โดยขึ้นอยู่กับว่าคุณอยู่ในมุมมองออกแบบหรือมุมมองเค้าโครง)

ในโค้ด Visual Basic for Applications (VBA) ให้ใช้นิพจน์ตัวเลขเพื่อตั้งค่าคุณสมบัตินี้ การตั้งค่าคุณสมบัตินี้มีชนิดข้อมูล เป็น Long

คุณสามารถตั้งค่าเริ่มต้นสำหรับคุณสมบัตินี้โดยการใช้ ลักษณะตัวควบคุมเริ่มต้น ของตัวควบคุมหรือคุณสมบัติ DefaultControl ในโค้ด VBA

สำหรับวัตถุ ตาราง คุณสามารถตั้งค่าคุณสมบัตินี้ได้โดยใช้คำสั่ง เติมสี ภายใต้ ฟอนต์ บนแท็บ ข้อมูล หรือในโค้ด VBA โดยใช้คุณสมบัติ DatasheetBackColor

ข้อสังเกต

เมื่อต้องการใช้คุณสมบัติ BackColor คุณสมบัติ BackStyle จะต้องถูกตั้งค่าเป็น ปกติ

ตัวอย่าง

ตัวอย่างต่อไปนี้ใช้ฟังก์ชัน RGB เพื่อตั้งค่าคุณสมบัติ BorderColor, BackColor และ ForeColor โดยขึ้นอยู่กับค่าของกล่องข้อความ txtPastDue คุณยังสามารถใช้ฟังก์ชัน QBColor เพื่อตั้งค่าคุณสมบัติเหล่านี้ได้ การใส่โค้ดต่อไปนี้ในเหตุการณ์ Form_Current( ) จะตั้งค่าคุณลักษณะการแสดงตัวควบคุมทันทีที่ผู้ใช้เปิดฟอร์มหรือย้ายไปยังระเบียนใหม่

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