Функция Green

Връща зеления компонент от зададения код на цвят.

Синтаксис:


Green (Color As Long)

Връщана стойност:

Integer

Параметър:

Color: израз от тип Long integer, задаващ код на цвят, за който да се намери зеленият компонент.

Кодове за грешка:

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