RGB Function

Возвращает значение цвета типа Long, состоящее из красного, зелёного и синего компонентов.

Синтаксис


RGB (Красный, Зелёный, Синий)

Возвращаемое значение:

Long

Параметр:

Красный. Выражение из целых чисел, которое представляет красный компонент (0-255) составного цвета.

Зелёный. Выражение из целых чисел, которое представляет зелёный компонент (0-255) составного цвета.

Синий. Выражение из целых чисел, которое представляет синий компонент (0-255) составного цвета.

Error codes:

5 Неправильный вызов процедуры

Пример:


Sub ExampleColor
Dim lVar As Long
    lVar = rgb(128,0,200)
    MsgBox "Этот цвет " & lVar & " состоит из:" & Chr(13) &_
        "красного= " & red(lVar) & Chr(13)&_
        "зелёного= " & green(lVar) & Chr(13)&_
        "синего= " & blue(lVar) & Chr(13) , 64,"цветов"
End Sub

Please support us!