خاصية BackColor

ينطبق على

عنصر BoundObjectFrame

عنصر ObjectFrame

عنصر ComboBox

عنصر OptionGroup

عنصر FormatCondition

عنصر Rectangle

عنصر Image

عنصر Section

عنصر Label

عنصر TextBox

عنصر ListBox

يمكنك استخدام الخاصية ‏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
توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Office Insider

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!

شكراً لك على الملاحظات! يبدو أنه من المفيد إيصالك بأحد وكلاء دعم Office لدينا.

×