Feedback

VB - Einen Farbverlauf - the easy way

Veröffentlicht von am 20.12.2006
(4 Bewertungen)
benötigt man auf die schnelle einen Farbverlauf - hier eine Quick and Dirty Lösung
GFU-Schulungen  [Anzeige]

VB.NET Einführung

Die Schulung zeigt Ihnen, wie Sie einfache, benutzerorientierte Programme, die auf Datenbanken zugreifen, in VB.NET eigenständig entwickeln. 

ASP.NET 2.0 und 3.5

Dieser Kurs vermittelt Ihnen alle Erweiterungen von Microsoft ASP.NET 2.0. Zu diesen zählen u. a. Data Bindung, Master Pages, und Security.

   Private Sub Form1_Paint(ByVal sender As Object, _
                ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        Dim Rectangle As New Rectangle(5, 5, Me.ClientRectangle.Width - 10, _
          Me.ClientRectangle.Height - 10)

        ' Rand des Rechtsecks zeichnen.
        Dim DrawingPen As New Pen(Color.Blue, 2)
        e.Graphics.DrawRectangle(DrawingPen, Rectangle)

        ' rechteck mit Farbverlauf füllen.
        Dim DrawingBrush As New _
          System.Drawing.Drawing2D.LinearGradientBrush( _
          Rectangle, Color.LightGray, Color.Gray, 45)
        e.Graphics.FillRectangle(DrawingBrush, Rectangle)

    End Sub

    Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) _
                            Handles MyBase.Resize

        ' Anzeigen, dass der Formularinhalt nicht länger gültig ist,
        ' und Windows das Neuzeichnen veranlassen.
        Me.Invalidate()

    End Sub
Abgelegt unter Gradient, Farbverlauf.

1 Kommentare zum Snippet

Jürgen Gutsch schrieb am 23.12.2006:
Quick, ja, aber wieso Dirty?
 

Logge dich ein, um hier zu kommentieren!