|
Mit der VB-eigenen Funktion  RGB(Red
As Integer, Green As Integer, Blue As Integer) setzen Sie aus
drei den Farbanteilen Rot, Grün und Blau (jeweils Werte von 0 -
255) einen Long-Farbwert zusammen. Für den umgekehrten Weg bietet
VB jedoch keine eigene Funktion an.
Die Prozedur ColorToRGB zerlegt einen gegebenen Farbwert in die
entsprechenden Farbanteile Rot, Grün und Blau. Im Parameter Color
wird der zu zerlegende Farbwert übergeben, die Anteile bekommen Sie
in den Rückgabe-Parametern R, G und B zurück:
Sub ColorToRGB _
(ByVal Color As Long, R as Integer, G As Integer, B As Integer)
R = Color Mod 256
Color = Color \ 256
G = Color Mod 256
Color = Color \ 256
B = Color Mod 256
End Sub
 |
Die Prozedur ColorToRGB zerlegt einen
Farbwert in die Anteile R, G und B
|
Beachten Sie, dass Sie nur "echte" Farbwerte in Color
übergeben dürfen. Systemfarben-Konstanten (wie etwa
vbWindowBackground) können von dieser Prozedur nicht zerlegt
werden. |