title image


Smiley Long2Hex
Mit folgender Function geht's:



Typendeklaration:





Public Type tpRGB

bytR As Byte

bytG As Byte

bytB As Byte

End Type





Eigentliche Function (geklaut aus "Das Access-VBA Codebook"):





Public Function Long2Hex(ByVal lngRGBColor As Long) As String

Dim tmpCol As tpRGB

Dim strR As String

Dim strG As String

Dim strB As String

With tmpCol

.bytR = lngRGBColor Mod 256

.bytG = (lngRGBColor \ 256) Mod 256

.bytB = lngRGBColor \ 65536

End With

strR = Trim(Hex(tmpCol.bytR))

strG = Trim(Hex(tmpCol.bytG))

strB = Trim(Hex(tmpCol.bytB))

If Len(strR) = 1 Then strR = "0" & strR

If Len(strG) = 1 Then strR = "0" & strG

If Len(strB) = 1 Then strR = "0" & strB

Long2Hex = "#" & strR & strG & strB

End Function





Test dann z.B. so:





Sub Test()

MsgBox Long2Hex(16711808)

End Sub





Greetz,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: