Einen Farbverlauf - the easy way

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

   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