IBM Lotus Symphony
|
يتم ارجاع كود اللون 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.
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