17-10-12, 05:17 PM
كاتب الموضوع : AhmedEssawy
كود :
Namespace DevDistrict.Sample
Imports System
Imports System.Windows.Forms
Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Class GradientPanel
Inherits System.Windows.Forms.Panel
Protected Overrides Sub OnPaint(ByVal e As PaintEventArgs)
MyBase.OnPaint(e)
Dim g As Graphics = e.Graphics
g.SmoothingMode = SmoothingMode.HighQuality
Dim gPath As GraphicsPath = New GraphicsPath
Dim r As Rectangle = New Rectangle(0, 0, Me.Width, Me.Height)
gPath.AddRectangle(r)
Dim lb As LinearGradientBrush = New LinearGradientBrush(r, Color.White, Color.Blue, LinearGradientMode.Vertical)
g.FillPath(lb, gPath)
End Sub
End Class
End Namespace