Δώστε gradient background σε μία φόρμα

Με το παρακάτω κομμάτι κώδικα θα μπορέσετε να δώσετε ένα όμορφο χρώμα διαβάθμισης κίτρινο-πορτοκαλί στο φόντο μίας φόρμας.

Ο κώδικας χρησιμοποιείται στη ρουτίνα γεγονότος OnPaintBackGround :

'----------------------------------------------------------

Protected Overrides Sub OnPaintBackground(ByVal pevent As _

System.Windows.Forms.PaintEventArgs)

MyBase.OnPaintBackground(pevent)

'Δημιούργησε μία μεταβλητή τύπου Rectangle που θα κρατά το μέγεθος του χώρου της φόρμας.
Dim rect As New Rectangle(0, 0, Me.Width, Me.Height)

'Δημιούργησε ένα Gradient πινέλο για βάψιμο, χρώματος Κίτρινο-πορτοκαλί.
'Ο τύπος διαβάθμισης θα είναι ForwardDiagonal.
Dim brush1 As New LinearGradientBrush(rect, Color.Yellow, Color.Orange,_

LinearGradientMode.ForwardDiagonal)

'Σχεδίασε τον ορθογώνιο χώρο της φόρμας με το χρώμα του πινέλου.
pevent.Graphics.FillRectangle(brush1, rect)

'Απελευθέρωσε μνήμη.
brush1.Dispose()

End Sub

'----------------------------------------------------------

'Οταν αλλάζουν οι διαστάσεις της φόρμας να κάνει επανασχεδίαση.

Protected Overrides Sub OnResize(ByVal e As System.EventArgs)

MyBase.OnResize(e)

Me.Refresh()

End Sub

'----------------------------------------------------------

Μην ξεχάσετε να εισάγετε στην κορυφή του παραθύρου του κώδικα την δήλωση του namespace:

Imports System.Drawing.Drawing2D

διότι η κλάση LinearGradientBrush ανήκει σε αυτό το χώρο ονοματοδοσίας.

· Χρήστος Μουρατίδης