salam aval ye add user control baz mikoni esmesho mizari Co_Gr.vb hala in codo tosh qarar midim
amuzesham toriye ke age vb balad bashi mitoni anjamesh bedi beer
- Code:
Public Class Co_Gr
''' <summary>
''' must be 4>=GrColor.len>=1
''' </summary>
Public Overloads Property GrColors As Color() = {Color.DeepSkyBlue, Color.Snow, Color.LightSkyBlue, Color.Azure}
Public Overloads Property BorderWidh As Int32 = 5
Private Sub Co_Gr_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim gp As New Drawing2D.GraphicsPath
gp.AddRectangle(Me.DisplayRectangle)
Dim gpbr As New Drawing2D.PathGradientBrush(gp)
gpbr.SurroundColors = GrColors
e.Graphics.DrawPath(New Pen(gpbr, BorderWidh), gp)
End Sub
Private Sub Co_Gr_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
amuzesham toriye ke age vb balad bashi mitoni anjamesh bedi beer