German Farbcode z.B. -7508

[strupp01]

Habe in einer Datei einen Farbcode -7508 und auch -1515609 gesehen.

Wer kann mir sagen, wie dieser Eintrag aus einer Farbe erstellt wird bzw. wie ich aus dieser Zahl wieder eine Farbe erstelle ?

Mit freundlichem Gruß

strupp01

 

[klaus]

Ich verstehe nicht genau was Du machen willst.

Mit diesem Code kannst Du die ARGB Werte bekommen:

Sub GetARGB(Color As Int) As Int()
    Dim col(4) As Int
    col(0) = Bit.UnsignedShiftRight(Bit.AND(Color, 0xff000000), 24)
    col(1) = Bit.UnsignedShiftRight(Bit.AND(Color, 0xff0000), 16)
    col(2) = Bit.UnsignedShiftRight(Bit.AND(Color, 0xff00), 8)
    col(3) = Bit.AND(Color, 0xff)
    Return col
End Sub

col(0) > A
col(1) > R
col(2) > G
col(3) > B

So was funktioniert auch:

Label1.Color = -7508
Label2.Color = -1515609

Beste Grüsse.

 

[strupp01]

Hallo Klaus,
danke für deine Antwort. Mir war nicht klar, was diese Werte bedeuten.
Durch Deine Antwort habe ich wieder dazugelernt. Jetzt weiß ich, wie ich diese Werte erzielen und anwenden Kann.

Gruß
Strupp01