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
   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!