Farben per Farbauswahldialog auswählen

Umwandlung in hexadezimale Farben

Die Funktion gibt immer einen RGB-Wert des Typs Long zurück. Das ist nicht immer optimal. Benötigen Sie die Farbe beispielsweise für die Ausgabe von HTML-Code oder CSS-Code bei einem Datenexport, ist dazu eine Angabe im hexadzimalen Format besser geeignet. Um den Farbwert umzurechnen, können Sie die Funktion getHex aus Listing 4 verwenden. Die Funktion gibt den hexadezimalen Farbwert zurück, wie er in HTML- und CSS-Dateien benötigt wird.

Function toHex(lngFarbe As Long) As String
Dim intR As Integer 'ROT
Dim intG As Integer 'GRÜN
Dim intB As Integer 'BLAU
Dim strR As String 'ROT
Dim strG As String 'GRÜN
Dim strB As String 'BLAU
toHex = ""
'Ermitteln der einzelnen Farbanteile
intR = lngFarbe And &HFF&
intG = lngFarbe \ &H100& And &HFF&
intB = lngFarbe \ &H10000 And &HFF&
'Umwandeln in Hexadezimale Werte
strR = Hex(intR)
strG = Hex(intG)
strB = Hex(intB)
If Len(strR) < 2 Then
strR = "0" & strR
End If
If Len(strG) < 2 Then
strG = "0" & strG
End If
If Len(strB) < 2 Then
strB = "0" & strB
End If
toHex = "#" & strR & strG & strB
End Function