Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Umwandeln???
Autor: Sniper-K
Datum: 31.08.02 21:54
HI, wie kann ich rgb-werte in ganz normle farbe umwandeln? beispiel: Dim RGB as String Dim Color as Long Function RGB2HTML(Color) RGB2HTML = Right("00000" & Hex(Color), 6) RGB2HTML = "#" & Mid(RGB2HTML, 5, 2) & Mid(RGB2HTML, 3, 2) & Mid(RGB2HTML, 1, 2) End Function Function PickC() With cdlDialog .CancelError = False .ShowColor Color = .Color RGB = RGB2HTML(Color) End With msgbox = RGB ' Hier wird der Wert angeziegt Shape1.FillColor = RGB ' UND DASS GEHT NICHT End Function was muss ich jetzt tun? danke, im voraus cu sniper-k

Umwandeln???	97	Sniper-K	31.08.02 21:54
Re: Umwandeln???	68	Stefan	01.09.02 02:10

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen