| |
Fortgeschrittene ProgrammierungFarben und Farbverläufe | | | Autor: constructor | Datum: 07.12.07 05:07 |
| Hallo
Folgende Umgebung:
2 Pictureboxen,
In der ersten Box ist ein Bild mit einen Farbverlauf von schwarz nach weiß.
Aufgabe:
In der zwoten Box soll das gleiche Bild dargestellt werden, ABER: Das Schwarz soll mit einer vorgegebenen Farbe ersetzt werden.
Bsp:
Farbverlauf von Schwarz nach Weiß soll mit der vorgegebenen Farbe zb. Rot umgewandelt werden in einen Farbverlauf von Rot nach Weiss
Halbe Lösung:
For Y = 1 To Picture1.Width
For X = 1 To Picture1.Height
PCol = GetPixel(Picture1.hdc, X, Y)
newColor = vbRed
'Hier müsste die Manipulation rein
SetPixel Picture2.hdc, X, Y, PCol
Next X
Next Y
Ich komm einfache nich drauf wie das gehen soll, hat vieleicht jemand hier eine Idee? | |
Re: Farben und Farbverläufe | | | Autor: mst547 | Datum: 07.12.07 22:17 |
| Hallo!
Ich weiß nicht, ob du dir das so vorstellst wie ich es jetzt verstanden habe, aber ich würde einfach den Mittelwert aus R, G und B errechnen und diesen als Rot-Wert im neuen Pixel setzen:Dim nRed As Long, nGreen As Long, nBlue As Long, nWert As Long
nRed = PCol Mod 256
nGreen = ((PCol And &HFF00) / 256&) Mod 256&
nBlue = (PCol And &HFF0000) / 65536
nWert = (nRed + nGreen + nBlue) / 3
PCol = RGB(nWert, 0, 0) Bzw. allgemein würde ich die "Sollfarbe" vor der Schleife ebenfalls in ihre RGB-Werte zerlegen, diese in Variablen abspeichern und für jedes Pixel jeden Anteil mit nWert/255 multiplizieren:Dim nRed As Long, nGreen As Long, nBlue As Long, nWert As Double
Dim newRed As Long, newGreen As Long, newBlue As Long
newRed = newColor Mod 256
newGreen = ((newColor And &HFF00) / 256&) Mod 256&
newBlue = (newColor And &HFF0000) / 65536
...
For ...
...
nWert = (nRed + nGreen + nBlue) / (3 * 255)
PCol = RGB(nWert * newRed + nWert * newGreen + nWert * newBlue)
...
Next
... (Die Formeln zum Zerlegen in RGB stammen übrigens aus diesem Tipp: Bild in Graustufen umwandeln)
mfg mst547 | |
Re: Farben und Farbverläufe | | | Autor: constructor | Datum: 07.12.07 22:59 |
| Hey Danke für deine Lösung, ich hab aber nach Stunden der rumprobiererei endlich ne Lösung welche extrem kurz ist.
For Y = 1 To Picture1.Width
For X = 1 To Picture1.Height
PCol = GetPixel(Picture1.hdc, X, Y)
newColor = vbRed
PCol = PCol OR newColor '<-----------------------Lösung
SetPixel Picture2.hdc, X, Y, PCol
Next X
Next Y
Danke Dir trotzdem vielmals | |
Re: Farben und Farbverläufe | | | Autor: Zardoz | Datum: 07.12.07 23:28 |
| Hi constructor,
das geht dann aber so schneller:
Picture2.BackColor = NewColor
Picture2.PaintPicture Picture1.Image, 0, 0, , , , , , , vbSrcPaint ' oder
' Picture1.Picture Gruss,
Zardoz | |
Re: Farben und Farbverläufe | | | Autor: constructor | Datum: 08.12.07 03:16 |
| die methode kenne ich schon aber die bringt mir nix da ich ja mit den rgb werten rumspielen möchte. dort kann man ja nur invertieren usw aber nich "or" mit eine beliebigen farbe anwenden. | |
Re: Farben und Farbverläufe | | | Autor: Zardoz | Datum: 08.12.07 11:28 |
| Hi constructor,
vbSrcPaint bei PaintPicture entspricht Or.
Gruss,
Zardoz | |
Re: Farben und Farbverläufe | | | Autor: constructor | Datum: 08.12.07 21:28 |
| Das ist richtig, aber wie gesagt, versuch mal mit dieser Funktion Die Farbwerte nach eigenen wünschen zu ändern. | |
| 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 |
|
|
Neu! sevCoolbar 3.0
Professionelle Toolbars im modernen Design!
Mit sevCoolbar erstellen Sie in wenigen Minuten ansprechende und moderne Toolbars und passen diese optimal an das Layout Ihrer Anwendung an (inkl. große Symbolbibliothek) - für VB und MS-Access Weitere InfosTipp des Monats Access-Tools Vol.1
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|