title image


Smiley Halt - in der Function ist noch ein Schnitzer
So geht's:





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 strG = "0" & strG

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

Long2Hex = "#" & strR & strG & strB

End Function





Sorry ;o)

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: