Tipp 10.15 - RGB-Werte ermitteln

Wie kann ich die RGB-Werte eines Farbwertes ermitteln?

Mit dieser Funktion können Sie die RGB-Werte eines Farbwertes ermitteln. Kopieren Sie einfach nachfolgenden Quellcode in die Zwischenablage und fügen Sie anschließend den Inhalt der Zwischenablage in ein neues Modul ein. Die Aufrufparameter finden Sie im Quellcode beschrieben.

Beispiel:

Option Explicit
 
Function Red(ByVal Color As Long) As Long
'// -----------------------------------------------------
'// Methode:   | Rot-Wert einer Farbe ermitteln
'// -----------------------------------------------------
'// Parameter: | Color - Farbcode
'// -----------------------------------------------------
'// Rückgabe:  | Rot-Wert der Farbe
'// -----------------------------------------------------
'// Autor:     | Stefan Kulpa
'//            | EDV Innovation & Consulting - Dormagen
'// -----------------------------------------------------
    Red = Color And (Not &HFFFFFF00)
 
End Function
 
Function Green(ByVal Color As Long) As Long
'// -----------------------------------------------------
'// Methode:   | Grün-Wert einer Farbe ermitteln
'// -----------------------------------------------------
'// Parameter: | Color - Farbcode
'// -----------------------------------------------------
'// Rückgabe:  | Grün-Wert der Farbe
'// -----------------------------------------------------
'// Autor:     | Stefan Kulpa
'//            | EDV Innovation & Consulting - Dormagen
'// -----------------------------------------------------
    Green = (Color And (Not &HFFFF00FF))  &H100&
 
End Function
 
Function Blue(ByVal Color As Long) As Long
'// -----------------------------------------------------
'// Methode:   | Blau-Wert einer Farbe ermitteln
'// -----------------------------------------------------
'// Parameter: | Color - Farbcode
'// -----------------------------------------------------
'// Rückgabe:  | Blau-Wert der Farbe
'// -----------------------------------------------------
'// Autor:     | Stefan Kulpa
'//            | EDV Innovation & Consulting - Dormagen
'// -----------------------------------------------------
    Blue = (Color And (Not &HFF00FFFF))  &HFFFF&
 
End Function


Zurück Tipp 10.14 - DWORD aufsplitten | Inhalt | Tipp 10.16 - In-/Dekrementieren Weiter