IBM Lotus Symphony
|
Ескі MS-DOS бағдарламалау жүйесне негізделген арқылы түс мәні ретінде берілген түстің RGB түс кодын қайтарады.
QBColor (Бүтін сан ретіндегі ColorNumber)
Ұзын
ColorNumber: Ескі MS-DOS бағдарламалық жүйеге негізделгеннен жіберілген түстің түс мәніні көрсетілген кез келген бүтін сан өрнегі.
ColorNumber келесі мәндермен тапсырылуы мүмкін:
0 : Қара
1 : Көк
2 : Жасыл
3 : Көгілдір
4 : Қызыл
5 : Күлгін
6 : Сары
7 : Ақ
8 : Сұр
9 : Ашық көк
10 : Ашық жасыл
11 : Ашық көгілдір
12 : Ашық қызыл
13 : Ашық күлгін
14 : Ашық сары
15 : Жарық ақ
Бұл функция жоғарыда көрсетілген түс кодтарын қолдану үшін тек ескі MS-DOS негізделген BASIC бағдарламасын түрлендіру үшін пайдаланылады. Функция Lotus® Symphony™ IDE қолданылатын түспен бірге ұзын бүтін сан мәнін қайтарады.
Қосымша ExampleQBColor
iColor бүтін сан ретінде қайтару
sText ұяшығын жол ретінде қайтару
iColor = 7
sText = "RGB= " & Қызыл(QBColor( iColor) ) & ":" & Көк(QBColor( iColor) ) & ":" & Жасыл(QBColor( iColor) )
MsgBox stext,0,"Color " & iColor
Аяқталу ішкі элементі