Функция RGB

Връща цветова стойност от тип long integer, съдържаща червен, зелен и син компонент.

Синтаксис:


RGB (Red, Green, Blue – червено, зелено, синьо)

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

Long

Параметър:

Red: целочислен израз, представящ червения компонент (0-255) на съставния цвят.

Green: целочислен израз, представящ зеления компонент (0-255) на съставния цвят.

Blue: целочислен израз, представящ синия компонент (0-255) на съставния цвят.

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

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

Моля, подкрепете ни!