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

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.
 

Copyright ©2000-2024 vb@rchiv Dieter OtterAlle Rechte vorbehalten.

Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.