IBM Lotus Symphony
|
Ermittelt einen Long-Integer-Farbwert aus Rot-, Grün- und Blauanteilen.
RGB (Rot, Grün, Blau)
Long
Rot: Ein beliebiger Integer-Ausdruck, der die Rotkomponente (0-255) der Mischfarbe angibt.
Grün: Ein beliebiger Integer-Ausdruck, der die Grünkomponente (0-255) der Mischfarbe angibt.
Blau: Ein beliebiger Integer-Ausdruck, der die Blaukomponente (0-255) der Mischfarbe angibt.
Sub ExampleColor
Dim lVar As Long
lVar = rgb(128,0,200)
msgbox "Die Farbe " & lVar & " hat die Anteile:" & Chr(13) &_
"rot= " & red(lVar) & Chr(13)&_
"grün= " & green(lVar) & Chr(13)&_
"blau= " & blue(lVar) & Chr(13) , 64,"Farben"
end sub