IBM Lotus Symphony
|
Vrne modro komponento podane kode barve.
Blue (Color As Long)
Celo število
Vrednost barve: Izraz z dolgim celim številom, ki podaja katerokoli kodo barve, za katero naj se vrne modra komponenta.
Sub ExampleColor
Dim lVar As Long
lVar = rgb(128,0,200)
MsgBox "Barva " & lVar & " je sestavljena iz:" & Chr(13) &_
"rdeča = " & Red(lVar) & Chr(13)&_
"zelena= " & Green(lVar) & Chr(13)&_
"modra= " & Blue(lVar) & Chr(13) , 64,"colors"
End Sub