hallo!
ich versuche die hintergrundfarbe einer form in rgb umzurechnen, klappt aber nicht wirklich. ich bekomme zwar 3 werte aber wenn ich die nehme wird das nicht die fensterfarbe(grau standard) sondern weiss.
kann vielleicht jmd helfen?
achso, bc ist backcolor der form, aslo ne hex-zahl
Sub holRGB(ByRef ColorR As Long, ByRef ColorG As Long, ByRef ColorB As Long)
Dim Wert As Long
On Error Resume Next
Wert = bc
ColorR = Wert Mod 256
Wert = (Wert - ColorR) / 256
ColorG = Wert Mod 256
Wert = (Wert - ColorG) / 256
ColorB = Wert Mod 256
End Sub