LinearGradientBrush.SetBlendTriangular : LinearGradientBrush « 2D Graphics « VB.Net Tutorial

1. VB.Net Tutorial
2. 2D Graphics
3. LinearGradientBrush

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms

public class SetBlendTriangular
   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 rect As New Rectangle(20, 20, 100, 50)
        Dim rgBrush As New LinearGradientBrush(rect, Color.Red, Color.Green, 0.0F, True)
        g.FillRectangle(rgBrush, rect)
        rect.Y = 90
        rgBrush.SetBlendTriangularShape(0.5F, 1.0F)
        g.FillRectangle(rgBrush, 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 brush
	17.56.2.	Create a LinearGradientBrush
	17.56.3.	Set Blend Triangular Shape for LinearGradientBrush
	17.56.4.	Set Sigma Bell Shape
	17.56.5.	Make a rectangle that shades from black to white
	17.56.6.	LinearGradientBrush: InterpolationColors
	17.56.7.	LinearGradientBrush ColorBlend
	17.56.8.	LinearGradientBrush Blend
	17.56.9.	LinearGradientBrush: too short to cross the whole rectangle
	17.56.10.	Change the LinearGradientBrush's WrapMode
	17.56.11.	Trangular brush
	17.56.12.	Transform LinearGradientBrush
	17.56.13.	Blend Properties
	17.56.14.	Interpolation Colors
	17.56.15.	LinearGradientBrush.SetBlendTriangular
	17.56.16.	LinearGradientBrush.SetSigmaBellShape
	17.56.17.	LinearGradientBrush.GammaCorrection