IBM Lotus Symphony


‏‎QBColor Function [Runtime]‎‏

يتم ارجاع كود اللون RGB للون الذي تم امراره كقيمة لون من خلال نظام برمجة MS-DOS قديم.

الصيغة:

QBColor (ColorNumber As Integer)

القيمة المرتجعة:

طويل

المعامل:

ColorNumber: أي تعبير رقمي يحدد قيمة اللون للون الذي تم امراره من نظام برمجة MS-DOS قديم.

يمكن أن يتم تخصيص القيم التالية الى ColorNumber:

0 : أسود

1 : أزرق

2 : أخضر

3 : أزرق نيلي

4 : أحمر

5 : أرجواني

6 : أصفر

7 : أبيض

8 : رمادي

9 : أزرق فاتح

10 : أخضر فاتح

11 : أزرق نيلي فاتح

12 : أحمر فاتح

13 : أرجواني فاتح

14 : أصفر فاتح

15 : أبيض ناصع

يتم استخدام هذه الوظيفة فقط للتحويل من تطبيقات MS-DOS based BASIC القديمة التي تستخدم أكواد الألوان التي توجد بأعلى. تقوم الوظيفة بارجاع قيمة رقمية طويلة تشير الى اللون الذي سيتم استخدامه في Lotus® Symphony™ IDE.

أكواد الخطأ

5 استدعاء غير صحيح للاجراء

مثال:

Sub ExampleQBColor

Dim iColor As Integer

Dim sText As String

iColor = 7

sText = "RGB= " & Red(QBColor( iColor) ) & ":" & Blue(QBColor( iColor) ) & ":" & Green(QBColor( iColor) )

MsgBox stext,0,"Color " & iColor

End Sub


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية