VB6 Farben to Hex

[hhunderter]

Wie der Titel schon sagt möchte ich gern die Zahl, die Visual Basic immer als Zahl für die Farben verwendet gerne in Hex umwandeln, saodass ich die Farben auf der seite verwenden kann.

Ich lade die VB6 Farben aus einer Datenbank, habe es schon mit Google versucht "Dec to hex" aber ich binn mir auch noch net schlüssig ob VB6 dec verwendet.

eine Farbe ause datenbank ist zb. 4210752

Vlt kann mir ja einer helfen ^^

 

[Flex]

Wie sieht denn so ein VB Color String aus?

Finde grade nur widersprüchliche Dinge bei Google...

 

[Dkl764]

hat der doch geschrieben:

eine Farbe ause datenbank ist zb. 4210752

Edit: Schau mal hier, die schreiben ein Programm in dem das umgerechnet wird...
http://board.gulli.com/thread/26292-farbcode-in-hex-format-vb-6-/

 

[Steusi]

Sonst mach doch schon in VB6 ein Hex draus?

Folgendes habe ich gefunden:

Private Function HexRGB(lCdlColor As Long)
Dim lCol As Long
Dim iRed, iGreen, iBlue As Integer
Dim vHexR, vHexG, vHexB As Variant

lCol = lCdlColor 'Aufschlüsseln in R G B Komponenten
iRed = lCol Mod &H100
lCol = lCol \ &H100
iGreen = lCol Mod &H100
lCol = lCol \ &H100
iBlue = lCol Mod &H100

vHexR = Hex(iRed) 'Rotanteil in Hex

If Len(vHexR) < 2 Then
vHexR = "0" & vHexR
End If

vHexG = Hex(iGreen) 'Grünanteil in Hex

If Len(vHexG) < 2 Then
vHexG = "0" & iGreen
End If

vHexB = Hex(iBlue) ' Blauanteil in Hex

If Len(vHexB) < 2 Then
vHexB = "0" & vHexB
End If

HexRGB = "#" & vHexR & vHexG & vHexB
End Function

Sonst, wenn es Dezi ist einfach:

$a = 4210752;

$formatHex ="%X";

echo ('Hexadezimal: ');
printf($formatHex,$a);

Dann kommt 404040 raus, also so ein dunkles grau