Einfache Funktion, um einen HexWert (zB 006699) in einen RGB-Farbwert umzurechnen. Sie benötigen eine Form, ein Picturebox und eine Textbox.
Public Function HexDez(H$) As Long
If Left$(H$, 2) <> "&H" Then H$ = "&H" + H$
HexDez& = Val(H$)
End Function
Sub Text1_Change()
Dim Red As Long
Dim Green As Long
Dim Blue As Long
Dim Farbe As Long
Red = HexDez(Mid$(Text1, 1, 2))
Green = HexDez(Mid$(Text1, 3, 2))
Blue = HexDez(Mid$(Text1, 5, 2))
Farbe = RGB(Red, Green, Blue)
Picture1.BackColor = Farbe
End Sub
