alimanam
پنج شنبه 13 آبان 1389, 21:39 عصر
با سلام به تمامی دوستان
دوستی سوالی در مورد نمایش جلوه Gradient به فرم بود که کد و فایل نمونه رو در این تاپیک جواب دادم تا اگه دوستان دیگه ایی هم مورد سوالشون باشه ( در آینده ) بتونن با سرچ کردن در سایت نمونه ایی داشته باشن البته من در سایت سرچ نکردم و پیشاپش اگه نمونه دیگه ایی بوده عذرخواهی میکنم . موفق باشید .
http://251517.20upload.net/files/1389/aban2/12888959241.png
Public Class Form1
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim oRAngle As Rectangle = New Rectangle(0, 0, Me.Width, Me.Height)
Dim oGradientBrush As Brush = New Drawing.Drawing2D.LinearGradientBrush(oRAngle, Color.Beige, Color.OrangeRed, Drawing.Drawing2D.LinearGradientMode.Vertical)
e.Graphics.FillRectangle(oGradientBrush, oRAngle)
End Sub
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Me.Refresh()
End Sub
End Class
دوستی سوالی در مورد نمایش جلوه Gradient به فرم بود که کد و فایل نمونه رو در این تاپیک جواب دادم تا اگه دوستان دیگه ایی هم مورد سوالشون باشه ( در آینده ) بتونن با سرچ کردن در سایت نمونه ایی داشته باشن البته من در سایت سرچ نکردم و پیشاپش اگه نمونه دیگه ایی بوده عذرخواهی میکنم . موفق باشید .
http://251517.20upload.net/files/1389/aban2/12888959241.png
Public Class Form1
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim oRAngle As Rectangle = New Rectangle(0, 0, Me.Width, Me.Height)
Dim oGradientBrush As Brush = New Drawing.Drawing2D.LinearGradientBrush(oRAngle, Color.Beige, Color.OrangeRed, Drawing.Drawing2D.LinearGradientMode.Vertical)
e.Graphics.FillRectangle(oGradientBrush, oRAngle)
End Sub
Private Sub Form1_Resize(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Resize
Me.Refresh()
End Sub
End Class