Websichere Farben Erzeugt aus einem Hex-Farbton (HTML-Farbe) eine websichere Farbe
Autor:   E7	Bewertung:     [ Jetzt bewerten ]	Views:  11.709
ohne Homepage	System:  Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Anzahl Bewertungen bisher: 7 Bewertung insgesamt: gut Durchschnittliche Bewertung: 4.0 von 5 Sternen

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

Mit dieser Funktion können Sie beliebige Hexfarben (z.B. #F03D28) in eine entsprechende websichere Farbe umwandeln:

' Hex-Farbwert (HTML-Farbe) in websicheren Farbwert umwandeln
Public Function WebSaveColor(ByVal sColor As String) As String
  Dim B As String
  Dim i As Long
  Dim a As Long
  Dim c As Long
 
  If Left$(sColor, 1) = "#" Then sColor = Mid$(sColor, 2)
 
  B = "#"
  For i = 1 To 6 Step 2
    a = CLng("&H" & Mid$(sColor, i, 2))
    c = a Mod 51
    If c > 25 Then
      a = a + (51 - c)
    Else
       a = a - c
    End If
    B = B & IIf(Len(Hex$(a)) = 1, "0" & Hex$(a), Hex$(a))
  Next i
 
  WebSaveColor = UCase$(B)
End Function

Das Prinzip der websicheren Farben:
Alle Farben gelten dann als websicher, wenn deren einzelne Rot-, Grün- und Blauanteile restlos durch 51 teilbar sind; in Hex-Notation ausgedrückt: 00, 33, 66, 99, CC, FF.

So gibt es bei den Farben #000000 bis #FFFFFF genau 216 verschiedene, websichere Farben. Die Grafikkarte kann im 256-Farben-Modus genau 256 verschiedene Farben anzeigen. Welche das sind, kann das Betriebssystem bzw. die Anwendung frei festlegen. Der Browser meldet nun dem Betriebssystem eben diese websicheren Farben. Der Rest von 216 auf 256 ist für Windows wie etwa Farben für Fensterdekoration, Taskleiste etc.