Was für absolute Cracks!
15.06.2005 15:59:23
Camel
Ich versuche einer ImageCombo die Standardfarben des Sheets beizubringen!
da es 56 sind dachte ich mir ich mache das mit RGB(..,..,..)
Eine ImageCombo arbeitet mit dem Imagelist-Control zusammen, also müssen die
RGB-Werte Bilder sein, aber ich möchte keine Bilder lokal oder sonstwo mit
den SheetFarben erstellen müssen, da sich diese jederzeit ändern können!
Hat irgendjemand eine Idee wie das hinbekomme?
Mein Versuch war (alles API..):
udt.Right = 32
udt.Bottom = 32
hDC = CreateCompatibleDC(0)
hBrush = CreateSolidBrush(RGB(0, 255, 0))
Call FillRect(hDC, udt, hBrush)
Call DeleteObject(hBrush)
aber jetzt klemmt's. Die habe keine Ahnung wie ich daraus ein Bild mache,
also z.B. einer IPictureDisp zuweise oder so!
Vielleicht bin auch völlig auf dem Holzweg!
Im Internet habe ich eine vergeleichbare Lösung gesehen, die ich aber nicht auf Excel umbiegen kann (wenn dergeneigte Leser schauen möchte :
http://www.vbarchiv.net/archiv/tipp_details.php?pid=426%5C
Gruss
Camel