Hi Oscar,
du könntest UNION in TYPE verwenden, um r, g, b, a mit z.b. col als Int32 zu vereinen. Damit sparst du dir die Umwandlung von den R, G, B, A Werten zu Int32.
Sowas benutze ich mit Freebasic.
Code
Union tColor
As Ulong col
Type
As Ubyte b, g, r, a
End Type
End Union
Dim As tColor Farben
Farben.r = 16
Farben.g = 32
Farben.b = 64
Farben.a = 255
? "Farbe: " & Hex(Farben.col, 8)
Sleep
Alles anzeigen
Output:
