ترجع قيمة طويلة تمثل قيمة لون RGB.

بناء الجملة

RGB( أحمر، أخضر، أزرق)

بناء جملة الدالة RGB على هذه الوسيطات:

الوسيطة

الوصف

أحمر

مطلوبة. متغير (عدد صحيح). الرقم في النطاق من 0 إلى 255، ضمنا، الذي يمثل المكون الأحمر للون.

أخضر

مطلوبة. متغير (عدد صحيح). الرقم في النطاق من 0 إلى 255، ضمنا، الذي يمثل المكون الأخضر للون.

أزرق

مطلوبة. متغير (عدد صحيح). الرقم في النطاق من 0 إلى 255، ضمنا، الذي يمثل المكون الأزرق للون.


ملاحظات

تتوقع أساليب التطبيق وخصائصه التي تقبل مواصفة اللون أن تكون المواصفات رقما يمثل قيمة لون RGB. تحدد قيمة اللون RGB الشدة النسبية لللون الأحمر والأخضر والأزرق للتسبب في عرض لون معين.

من المفترض أن تكون قيمة أي وسيطةRGB التي تتجاوز 255 هي 255.

يسرد الجدول التالي بعض الألوان القياسية والقيم الحمراء والأخضر والأزرق التي تتضمنها:

اللون

القيمة الحمراء

قيمة خضراء

القيمة الزرقاء

أسود

0

0

0

أزرق

0

0

255

أخضر

0

255

0

بني

0

255

255

أحمر

255

0

0

الأرجوان

255

0

255

أصفر

255

255

0

أبيض

255

255

255


لا تتوافق قيم ألوان RGB التي يتم إرجاعها بواسطة هذه الدالة مع تلك التي يستخدمها نظام التشغيل Macintosh. ويمكن استخدامها في سياق تطبيقات Microsoft ل Macintosh، ولكن لا يجب استخدامها عند تغيير اللون مباشرة إلى نظام التشغيل Macintosh.

مثال

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

يوضح هذا المثال كيفية استخدام الدالة RGB لإرجاع رقم كامل يمثل قيمة لون RGB. يتم استخدامه لأساليب التطبيق وخصائصه التي تقبل مواصفة اللون. يتم استخدام MyObject وممتلكاته لأغراض التوضيح فقط. إذا MyObject موجود، أو إذا لم يكن لديه خاصية لون، يحدث خطأ.

Dim RED, I, RGBValue, MyObject
' Return the value for Red.
Red = RGB(255, 0, 0)
' Initialize offset.
I = 75
RGBValue = RGB(I, 64 + I, 128 + I)
' Same as RGB(75, 139, 203).
' Set the Color property of MyObject to Red.
MyObject.Color = RGB(255, 0, 0)

هل تحتاج إلى مزيد من المساعدة؟

توسيع المهارات
استكشاف التدريب
الحصول على الميزات الجديدة أولاً
الانضمام إلى Microsoft Insider

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

ما مدى رضاك عن جودة الترجمة؟
ما الذي أثّر في تجربتك؟

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

×