Unter VB6 brauchte man für einen "ordentlichen" Farbverlauf noch allerhand API-Funktionen und -Aufrufe. Unter VB.NET ist das jetzt viel einfacher. Hier kann man direkt auf die LinearGradientBrush-Funktion aus der Klasse "System.Drawing.Drawing2D" zurückgreifen. Wann immer das Fenster bzw. dessen Inhalt neu gezeicheichnet werden muss, wird das OnPaint-Ereignis der Form ausgelöst. Und genau hier ist dann auch der richtige "Ort", um den Hintergrund-Farbverlauf zu erstellen. Imports System.Drawing.Drawing2D Public Class Form1 ' Hintergrund-Farbverlauf erstellen Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs) ' Größe der Form Dim oRect As New Rectangle(0, 0, Me.Width, Me.Height) ' Neues Brush-Objekt mit den gewünschten Farben und ' Farbverlauf-Richtung erstellen Dim oBrush As New LinearGradientBrush(oRect, Color.White, Color.Blue, _ LinearGradientMode.ForwardDiagonal) ' Hintergrund-Farbverlauf anzeigen e.Graphics.FillRectangle(oBrush, oRect) End Sub End Class Über den Parameter "LinearGradientMode" kann die Richtung des Farbverlaufs festgelegt werden. Zur Auswahl stehen:
Dieser Tipp wurde bereits 27.222 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. |
sevAniGif (VB/VBA) ![]() Anzeigen von animierten GIF-Dateien Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Tipp des Monats TOP Entwickler-Paket ![]() TOP-Preis!! Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR... |
||||||||||||||||
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. |