30-11-12, 03:24 PM
silverlight كتب :كود :
Imports System.Drawing.Drawing2D
Public Class Form1
Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
' تعريف الصورة
Dim bmp As New Bitmap(150, 150)
' تعريف متغيرات للجرافكس
Using gr As Graphics = Graphics.FromImage(bmp)
Dim rect As Rectangle = New Rectangle(0, 0, 150, 150)
Dim lgb As New LinearGradientBrush(rect, Color.Blue, Color.Azure, 90)
' إرسم شيئا علي الصورة
gr.FillRectangle(lgb, rect)
End Using
'إرسم الصورة علي سطح الفورم
Using g As Graphics = Me.CreateGraphics
g.DrawImage(bmp, 10, 10)
End Using
End Sub
End Class
شكراً لك أخي، و لكل من حاول مساعدتي

