Mit nachfolgender Funktion lässt sich der transparente Bereich eines transparenten Bildes (z.B. GIF oder PNG) auf eine bestimmte Hintergrundfarbe festlegen. Die Funktion erwartet als Parameter das Bild-Objekt, sowie den Farbwert für den transparenten Bereich des Bildes. Zurück erhalten Sie ein Image-Objekt mit der festgelegten Hintergrundfarbe. Imports System.Drawing.Drawing2D ... ''' <summary> ''' Ändert die Hintergrundfarbe eines transparenten Bildes. ''' </summary> ''' <param name="Picture">Originalbild</param> ''' <param name="BackColor">Hintergrundfarbe für den transparenten Bereich des Bildes</param> ''' <returns>Image-Objekt</returns> Public Function ImageSetBackColor(ByVal Picture As Image, ByVal BackColor As Color) As Image ' Größe des Bildes Dim Width As Integer = Picture.Width Dim Height As Integer = Picture.Height ' ein neues Bitmap-Objekt in der benötigten Größe erstellen Dim newBitmap As New Bitmap(Width, Height) Using oGraphics As Graphics = Graphics.FromImage(newBitmap) ' Hintergrund füllen oGraphics.FillRectangle(New SolidBrush(BackColor), 0, 0, Width, Height) ' transparentes Bild auf den Hintergrund ausgeben oGraphics.DrawImage(Picture, 0, 0) End Using Return newBitmap End Function Aufrufbeispiel: PictureBox1.Image = ImageSetBackColor(Image.FromFile("MeinBild.gif"), Color.Red) Dieser Tipp wurde bereits 8.474 mal aufgerufen.
Anzeige
![]() ![]() ![]() (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
Neu! sevDTA 3.0 Pro ![]() SEPA mit Kontonummernprüfung Erstellen von SEPA-Dateien mit integriertem BIC-Verzeichnis und Konto- nummern-Prüfverfahren, so dass ungültige Bankdaten bereits im Vorfeld ermittelt werden können. Tipp des Monats ![]() Microsys Kramer Mausrad im Formular abschalten (Access) Deaktiviert das Mausrad in Access-Formularen. 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 |
||||||||||||||||
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein. |