IBM Lotus Symphony


Функция QBColor [встроенная]

Возвращает цветовой код в формате 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™.

Коды ошибок

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


Комментарии по продукту | Дополнительная документация | Товарные знаки