Interpolation Colors : LinearGradientBrush « 2D Graphics « VB.Net Tutorial






Interpolation Colors
Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms

public class InterpolationColors
   public Shared Sub Main
        Application.Run(New Form1)
   End Sub
End class

public class Form1
  Inherits System.Windows.Forms.Form

  Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
        Dim g As Graphics = Me.CreateGraphics()
        g.Clear(Me.BackColor)

        Dim brBrush As New LinearGradientBrush(New Point(0, 0), New Point(50, 20), Color.Blue, Color.Red)
        Dim rect As New Rectangle(0, 0, 200, 100)
        Dim clrArray As Color() = {Color.Red, Color.Blue, Color.Green, Color.Pink, Color.Yellow, Color.DarkTurquoise}
        Dim posArray As Single() = {0.0F, 0.2F, 0.4F, 0.6F, 0.8F, 1.0F}

        Dim colorBlend As New ColorBlend
        colorBlend.Colors = clrArray
        colorBlend.Positions = posArray

        brBrush.InterpolationColors = colorBlend

        g.FillRectangle(brBrush, rect)
        rect.Y = 150
        rect.Width = 100
        rect.Height = 100
        g.FillEllipse(brBrush, rect)

        g.Dispose()

  End Sub

  Public Sub New()
   
    MyBase.New()
    Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
    Me.ClientSize = New System.Drawing.Size(292, 273)
    Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

  End Sub

End Class








17.56.LinearGradientBrush
17.56.1.A diagonal brushA diagonal brush
17.56.2.Create a LinearGradientBrushCreate a LinearGradientBrush
17.56.3.Set Blend Triangular Shape for LinearGradientBrushSet Blend Triangular Shape for LinearGradientBrush
17.56.4.Set Sigma Bell ShapeSet Sigma Bell Shape
17.56.5.Make a rectangle that shades from black to whiteMake a rectangle that shades from black to white
17.56.6.LinearGradientBrush: InterpolationColorsLinearGradientBrush: InterpolationColors
17.56.7.LinearGradientBrush ColorBlendLinearGradientBrush ColorBlend
17.56.8.LinearGradientBrush BlendLinearGradientBrush Blend
17.56.9.LinearGradientBrush: too short to cross the whole rectangleLinearGradientBrush: too short to cross the whole rectangle
17.56.10.Change the LinearGradientBrush's WrapModeChange the LinearGradientBrush's WrapMode
17.56.11.Trangular brushTrangular brush
17.56.12.Transform LinearGradientBrushTransform LinearGradientBrush
17.56.13.Blend PropertiesBlend Properties
17.56.14.Interpolation ColorsInterpolation Colors
17.56.15.LinearGradientBrush.SetBlendTriangularLinearGradientBrush.SetBlendTriangular
17.56.16.LinearGradientBrush.SetSigmaBellShapeLinearGradientBrush.SetSigmaBellShape
17.56.17.LinearGradientBrush.GammaCorrectionLinearGradientBrush.GammaCorrection