خاصية "اللون_الخلفي"

ينطبق على

يمكنك استخدام الخاصية ‏BackColor‏ لتحديد لون الجزء الداخلي من عنصر تحكم أو مقطع. Long قراءة/كتابة.

التعبير.‏BackColor‏

التعبير Required. تعبير يُرجع أحد العناصر في قائمة "ينطبق على".

الإعداد

تحتوي الخاصية ‏BackColor‏ على تعبير رقمي يتوافق مع اللون المستخدم لتعبئة الجزء الداخلي من عنصر تحكم أو مقطع.

يمكنك استخدام "منشئ الألوان" لتعيين هذه الخاصية عن طريق النقر فوق زر إنشاء على الجانب الأيسر من مربع الخاصية في صفحة الخصائص. يتيح لك استخدام "منشئ الألوان" تعريف ألوان الخلفية المخصصة لعناصر التحكم أو المقاطع.

يمكنك أيضاً تعيين هذه الخاصية باستخدام صفحة الخصائص أو الماكرو أو التعليمات البرمجية لـ Visual Basic for Applications (‏VBA) الخاصة بعنصر تحكم أو بمقطع أو باستخدام الأمر لون التعبئة ضمن الخط (على علامة التبويب تصميم أو تنسيق استناداً إلى ما إذا كنت في عرض التصميم أو طريقة عرض التخطيط).

في التعليمات البرمجية لـ Visual Basic for Applications (‏VBA)، استخدم تعبيراً رقمياً لتعيين هذه الخاصية. يحتوي إعداد هذه الخاصية على نوع بيانات طويل.

يمكنك تعيين الإعداد الافتراضي لهذه الخاصية باستخدام نمط عنصر التحكم الافتراضي الخاص بعنصر تحكم أو الخاصية ‏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