Seite 1 von 1

Farben ?

Verfasst: Do, 29.01.2009 23:30
von keksi1970
Hi,
wie bekomme ich aus einem long-Wert (BSP : 16711680) den RGB-FarbCode ?

lg Andreas

Re: Farben ?

Verfasst: Do, 29.01.2009 23:59
von turtle47
Hallo Andreas,

wie wäre es damit:

Code: Alles auswählen

Sub RGB_Farbe_ermitteln
farben = 167154368 
f1 =  "RGB-Farben: " & red(farben) & "," & green(farben) & "," & blue(farben)
msgbox f1
end sub
Schöne Grüsse.

Jürgen

Re: Farben ?

Verfasst: Fr, 30.01.2009 00:14
von keksi1970
es kann so einfach sein ;)

Danke Jürgen, aber diese Frage war nur dämlich :

ich setze Backgroundcolor mit RGB(X,X,X)

und nach dem testen kann ich den long-Wert einfach mit RGB vergleichen

Code: Alles auswählen

farben = 167154368 
if farben = RGB(255, 0, 0) then
ich dachte ich müsste kompliziert denken

lg
Andreas