המאפיין BackColor

חל על

באפשרותך להשתמש במאפיין BackColor כדי לציין את הצבע עבור החלק הפנימי של פקד או מקטע‏. קריאה/כתיבה Long.

ביטוי.BackColor

ביטוי נדרש. ביטוי שמחזיר אחד מהאובייקטים ברשימה חל על.

הגדרה

המאפיין BackColor מכיל ביטוי מספרי שמתאים לצבע המשמש למילוי חלק פנימי של פקד או מקטע.

באפשרותך להשתמש בבונה הצבעים כדי להגדיר מאפיין זה על-ידי לחיצה על לחצן בנה משמאל לתיבת המאפיין ב- גליון מאפיינים. שימוש בבונה הצבעים מאפשר להגדיר צבעי רקע מותאמים אישית עבור פקדים או מקטעים.

באפשרותך גם להגדיר מאפיין זה על-ידי שימוש ב- גליון מאפיינים של פקד או מקטע, ב- מאקרו או בקוד Visual Basic for Applications‏ (VBA), או על-ידי שימוש בפקודה צבע מילוי תחת גופן (בכרטיסיה עיצוב או תבנית, תלוי אם אתה בתצוגת 'עיצוב' או בתצוגת 'פריסה').

בקוד Visual Basic for Applications‏ (VBA), השתמש בביטוי מספרי להגדרת מאפיין זה. הגדרת מאפיין זה היא בעל סוג נתונים של Long.

באפשרותך להגדיר את ברירת המחדל של מאפיין זה באמצעות סגנון פקד המהווה ברירת מחדל של פקד או באמצעות המאפיין DefaultControl בקוד VBA.

עבור אובייקטי טבלה, באפשרותך להגדיר מאפיין זה באמצעות הפקודה צבע מילוי תחת גופן בכרטיסיה נתונים או בקוד VBA על-ידי שימוש במאפיין DatasheetBackColor.

הערות

כדי להשתמש במאפיין צבע רקע, המאפיין 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