إرجاع صورة طويلة تمثل رمز اللون RGB المطابق لرقم اللون المحدد.
بناء الجملة
QBColor(color)
إن وسيطة اللونالمطلوبة عبارة عن عدد صحيح في النطاق من 0 إلى 15.
إعدادات
تتضمن وسيطة اللون هذه الإعدادات:
| Number | اللون | Number | اللون |
|---|---|---|---|
| 0 | أسود | 8 | رمادي |
| 1 | أزرق | 9 | أزرق فاتح |
| 2 | أخضر | 10 | أخضر فاتح |
| 3 | سماوي | 11 | سماوي فاتح |
| 4 | أحمر | 12 | أحمر فاتح |
| 5 | أرجواني | 13 | أرجواني فاتح |
| 6 | أصفر | 14 | أصفر فاتح |
| 7 | أبيض | 15 | أبيض فاتح |
ملاحظات
تمثل وسيطة اللون قيم الألوان المستخدمة بواسطة الإصدارات السابقة من Basic (مثل Microsoft Visual Basic ل MS-DOS والمحول البرمجي الأساسي). بدءا من البايت الأقل أهمية، تحدد القيمة التي يتم إرجاعها القيم الحمراء والخضراء والأزرق المستخدمة لتعيين اللون المناسب في نظام RGB الذي يستخدمه Visual Basic for Applications.
مثال
ملاحظة
توضح الأمثلة التالية استخدام هذه الدالة في وحدة نمطية ل Visual Basic for Applications (VBA). لمزيد من المعلومات حول استخدام VBA، حدد "مرجع المطور" في القائمة المنسدلة بجوار "بحث" وأدخل مصطلح أو أكثر في مربع البحث.
يستخدم هذا المثال الدالة QBColor لتغيير خاصية BackColor للنموذج الذي تم تمريره كاللون MyForm المشار إليه بواسطة ColorCode. يقبل QBColor قيم الأعداد الصحيحة بين 0 و15.
Sub ChangeBackColor (ColorCode As Integer, _
MyForm As Form)
MyForm.BackColor = QBColor(ColorCode)
End Sub