Gradient Paint : Gradient « 2D « VB.Net






  1. VB.Net
  2. 2D
  3. Gradient

Gradient Paint

  

Imports System.Drawing

Public Class Form1
    Inherits System.Windows.Forms.Form

    Public Sub New()
        MyBase.New()
        Me.SuspendLayout()
        Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
        Me.BackColor = System.Drawing.Color.Gainsboro
        Me.ClientSize = New System.Drawing.Size(400, 182)
        Me.ResumeLayout(False)
    End Sub
    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
        Dim objBrush As New Drawing2D.LinearGradientBrush(Me.DisplayRectangle, Color.Blue, Color.AliceBlue, Drawing2D.LinearGradientMode.Vertical)
        Dim objGraphics As Graphics = Me.CreateGraphics()
        objGraphics.FillRectangle(objBrush, Me.DisplayRectangle)
        objBrush.Dispose()
        objGraphics.Dispose()

    End Sub
End Class








Related examples in the same category

1.Make a rectangle that shades from black to whiteMake a rectangle that shades from black to white
2.Linear Gradient Brushes: Color BlendLinear Gradient Brushes: Color Blend
3.Linear Gradient Brushes: Make a brush that makes 50 percent of the color changeLinear Gradient Brushes: Make a brush that makes 50 percent of the color change
4.Linear Gradient Brushes: This brush's line is too short to cross the whole rectangleLinear Gradient Brushes: This brush's line is too short to cross the whole rectangle
5.Linear Gradient Brushes: Change the brush's WrapModeLinear Gradient Brushes: Change the brush's WrapMode
6.Linear Gradient Brushes: Trangular brushLinear Gradient Brushes: Trangular brush
7.Linear Gradient Brushes: Sigma bell shapeLinear Gradient Brushes: Sigma bell shape
8.Linear Gradient Brushes: A diagonal brushLinear Gradient Brushes: A diagonal brush
9.Path Gradient Brush: rectanglePath Gradient Brush: rectangle
10.Fill an ellipse setting CenterColor and SurroundColorsFill an ellipse setting CenterColor and SurroundColors
11.Fill an ellipse using SetBlendTriangularShapeFill an ellipse using SetBlendTriangularShape
12.Fill an ellipse using SetSigmaBellShapeFill an ellipse using SetSigmaBellShape
13.Linear Brush: draw ellipse filled with a blue-yellow gradientLinear Brush: draw ellipse filled with a blue-yellow gradient
14.Linear Gradient Brushes: Normal, Triangle, Bell and custom colorLinear Gradient Brushes: Normal, Triangle, Bell and custom color
15.Path Gradient Brushes: Diamond, Rectangle, Cirlce and quadPath Gradient Brushes: Diamond, Rectangle, Cirlce and quad