Kırmızı Fonksiyonu

Belirtilen renk kodunun Kırmızı bileşenini döndürür.

Sözdizimi:


Kırmızı (RenkNumarası Büyük Tamsayı Olarak)

Dönen değer:

Tamsayı

Parametre:

RenkNumarası: Büyük tamsayı ifadesi, Kırmızı içeriği döndürmek için renk kodu.

Hata kodları:

5 Geçersiz yordam çağrısı

Örnek:


Sub ExampleColor
Dim lVar As Long
    lVar = rgb(128,0,200)
    MsgBox lVar & " rengi, şundan oluşmuştur:" & Chr(13) &_
        "red= " & red(lVar) & Chr(13)&_
        "green= " & Green(lVar) & Chr(13)&_
        "blue= " & blue(lVar) & Chr(13) , 64,"colors"
End Sub