Zufälliger Artikel

Problemstellung:

Wie kann ich einen HEX-Farbwert in einen Long-Farbwert umrechnen?

Lösung:
Folgende Funktion in ein öffentliches Modul kopieren:

Public Function Hex2Long( _
     ByVal strHexColor As String) As Long
 
    Dim lngColor As Long
     Dim strR As String
     Dim strG As String
     Dim strB As String
 
    If Left(strHexColor, 1) = "#" Then
         strHexColor = Mid(strHexColor, 2)
     End If
 
    strHexColor = UCase(strHexColor)
 
    strR = Mid(strHexColor, 1, 2)
     strG = Mid(strHexColor, 3, 2)
     strB = Mid(strHexColor, 5, 2)
 
    lngColor = CLng("&H" & strB & strG & strR)
 
    Hex2Long = lngColor
 
End Function

Aufruf:

MsgBox Hex2Long("#FFFFFF")

Ergebnis:


Ähnliche Artikel

Login Form

Neueste Artikel

Problemstellung: Ab MS-Office 2010 gibt es eine 32bit und eine 64bit Variante.Übernimmt man nun eine Datenbank nach 64bit und diese enthält API-Declare Anweisungenerhlt min in der Regel diese...
1.png2.png0.png5.png1.png0.png2.png
Heute66
Gestern102
Diese Woche280
Dieser Monat2526
Total1205102

  • IP: 54.161.71.87
  • Browser: Unknown
  • Version:
  • OS: Unknown

Online

3
Online

26. September 2018

Letzte Kommentare

  • Trusted Locations Manager

    Tommy Admin 13.07.2018 13:06
    RE: Trusted Locations Manager
    Hallo Matthias, aus Ermangelung einer 64bit Version kann ich das leider nicht prüfen. Tut mir leid. Gruss ...

    Weiterlesen...

     
  • Trusted Locations Manager

    Matthias 13.07.2018 06:48
    Funktioniert nicht
    Habe gerade den TL-Manager installiert. Nach dem Start sagt er mir, dass es kein Office erkennen ...

    Weiterlesen...