Rubrik: Grafik und Font · Grafische Effekte | VB-Versionen: VB4, VB5, VB6 | 29.09.03 |
Bild in PictureBox mit Farbe "überziehen" Dieser Tipp verrät, wie man ein Bild in einer PictureBox mit einem bestimmten Farbton "überziehen" kann. | ||
Autor: Zardoz | Bewertung: | Views: 18.565 |
ohne Homepage | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Wie man ein Bild in einer PictureBox darstellt, sollte klar sein:
Picture1.Picture = LoadPicture("bild.bmp")
Wie lässt sich jedoch das Bild mit einer bestimmten Farbe "überziehen", so dass das Bild z.B. einen leichten Rotschimmer hat?
Hier die Lösung:
Dim oBild As StdPicture ' Picture1 enthält bereits das Bild With Picture1 ' Image zwischenspeichern Set oBild = .Image ' PictureBox "leeren" Set .Picture = LoadPicture() ' Hintergrundfarbe festlegen .BackColor = vbRed ' Bild neu "malen" .PaintPicture oBild, 0, 0, , , , , , , vbSrcPaint End With