إرجاع Long يمثل رمز لون 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