How To Create A Gradient Background

[HenryC]

How does one create a gradient background for a form?

 

[Bob Powell [MVP]]

Override OnPaintBackground and see the LinearGradientBrush help details.

--
Bob Powell [MVP]
Visual C#, System.Drawing

Find great Windows Forms articles in Windows Forms Tips and Tricks
http://www.bobpowell.net/tipstricks.htm

Answer those GDI+ questions with the GDI+ FAQ
http://www.bobpowell.net/faqmain.htm

All new articles provide code in C# and VB.NET.
Subscribe to the RSS feeds provided and never miss a new article.

 

[HenryC]

Thanks,
I am new to VB and have already read quite a bit without getting it right.
Some code snippet would be nice.

 

[JohnFol]

Stick this behind the form



Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)

MyBase.OnPaint(e)

Dim baseBackground As System.Drawing.Drawing2D.LinearGradientBrush

baseBackground = New LinearGradientBrush(New Point(0, 0), _

New Point(ClientSize.Width, 0), _

Color.Blue, _

Color.Red)

e.Graphics.FillRectangle(baseBackground, ClientRectangle)

End Sub

 

[HenryC]

Thanks Bob,
I went to your site and got the code snippet I needed.

 

[HenryC]

Thanks John

Stick this behind the form



Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)

MyBase.OnPaint(e)

Dim baseBackground As System.Drawing.Drawing2D.LinearGradientBrush

baseBackground = New LinearGradientBrush(New Point(0, 0), _

New Point(ClientSize.Width, 0), _

Color.Blue, _

Color.Red)

e.Graphics.FillRectangle(baseBackground, ClientRectangle)

End Sub

 

[Jay B. Harlow [MVP - Outlook]]

Henry,
In addition to the other comments.

I've set the BackgroundImage of the from to an image that was painted with a
gradient brush, something like:

Protected Overrides Sub OnLayout(ByVal e As LayoutEventArgs)
MyBase.OnLayout(e)

If Not Me.BackgroundImage Is Nothing Then
If Size.op_Equality(Me.BackgroundImage.Size, Me.ClientSize) Then
Exit Sub
End If
Me.BackgroundImage.Dispose()
Me.BackgroundImage = Nothing
End If

Dim rect As New Rectangle(New Point(0, 0), Me.ClientSize)
Dim image As New Bitmap(Me.ClientSize.Width, Me.ClientSize.Height)
Dim gr As Graphics = Graphics.FromImage(image)

Dim brush As New LinearGradientBrush(rect,
ControlPaint.LightLight(Me.BackColor), Me.BackColor,
LinearGradientMode.Vertical)
brush.SetBlendTriangularShape(2 / 3)

gr.FillRectangle(brush, rect)
gr.Dispose()
brush.Dispose()

Me.BackgroundImage = image
End Sub

Hope this helps
Jay

| How does one create a gradient background for a form?
|
|