IBM Lotus Symphony
|
Возвращает цветовой код в формате RGB для цвета, полученного в виде цветового значения из устаревшей системы программирования на базе MS-DOS.
QBColor (Цвет As Integer)
Long
ColorNumber : целочисленное выражение, задающее цветовое значение для цвета, полученного из устаревшей системы программирования на базе MS-DOS.
Цвет может принимать следующие значения:
0 : черный
1 : синий
2 : зеленый
3 : бирюзовый
4 : красный
5 : лиловый
6 : желтый
7 : белый
8 : серый
9 : голубой
10 : светло-зеленый
11 : светло-бирюзовый
12 : светло-красный
13 : светло-лиловый
14 : светло-желтый
15 : ярко-белый
Эта функция применяется только для преобразования значений из устаревших приложений BASIC для MS-DOS, применяющих перечисленные цветовые коды. Функция возвращает значение типа Long Integer — цвет, который может использоваться в IDE Lotus® Symphony™.
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