Возвращает значение типа Long, представляющее значение цвета RGB.
Синтаксис
RGB( красный, зеленый, синий )
Функция RGB имеет следующие аргументы:
|
Аргумент |
Описание |
|
красный |
Обязательный аргумент. Variant (Integer). Число в диапазоне от 0 до 255 включительно, определяющее красный компонент цвета. |
|
зеленый |
Обязательный аргумент. Variant (Integer). Число в диапазоне от 0 до 255 включительно, определяющее зеленый компонент цвета. |
|
синий |
Обязательный аргумент. Variant (Integer). Число в диапазоне от 0 до 255 включительно, определяющее синий компонент цвета. |
Замечания
Использование спецификации цвета методами и свойствами приложения основано на предположении, что численное значение спецификации является значением цвета RGB. Значение RGB определяет отображаемый цвет, задавая относительную яркость красного, зеленого и синего.
Значение любого аргумента функции RGB, превышающее 255, приравнивается к 255.
В следующей таблице представлены некоторые стандартные цвета и образующие их значения красного, зеленого и синего компонентов.
|
Цвет |
Значение красного компонента |
Значение зеленого компонента |
Значение синего компонента |
|
Черный |
0 |
0 |
0 |
|
Синий |
0 |
0 |
255 |
|
Зеленый |
0 |
255 |
0 |
|
Голубой |
0 |
255 |
255 |
|
Красный |
255 |
0 |
0 |
|
Пурпурный |
255 |
0 |
255 |
|
Желтый |
255 |
255 |
0 |
|
Белый |
255 |
255 |
255 |
Возвращаемые данной функцией цвета RGB несовместимы с цветами, используемыми в операционной системе masOS. Они могут использоваться в контексте приложений Майкрософт для masOS, но не должны применяться, когда цвет передается непосредственно в операционную систему masOS.
Пример
Примечание: В примерах ниже показано, как использовать эту функцию в модуле Visual Basic для приложений (VBA). Чтобы получить дополнительные сведения о работе с VBA, выберите Справочник разработчика в раскрывающемся списке рядом с полем Поиск и введите одно или несколько слов в поле поиска.
В данном примере показано использование функции RGB для возврата целого числа, представляющего цвет RGB. Она применима к тем методам и свойствам приложения, которые принимают спецификацию цвета. Объект MyObject и его свойства служат только для иллюстрации. Если объект MyObject отсутствует или для него не задано свойство Color, возникает ошибка.
Dim RED, I, RGBValue, MyObject' Return the value for Red.Red = RGB(255, 0, 0) ' Initialize offset.I = 75 RGBValue = RGB(I, 64 + I, 128 + I) ' Same as RGB(75, 139, 203).' Set the Color property of MyObject to Red.MyObject.Color = RGB(255, 0, 0)
