السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'29-كود اخر مميز لجعل الفورم على شكل دائرة
كود PHP:
Public Class Form1
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
Dim shape As New System.Drawing.Drawing2D.GraphicsPath
shape.AddEllipse(0, 0, Me.Width, Me.Height)
Me.Region = New System.Drawing.Region(shape)
End Sub
End Class
'29-كود اخر مميز لجعل الفورم على شكل دائرة
'30-كود اخر لجعل الفورم على شكل دائرة
كود PHP:
Imports System.Drawing.Drawing2D
Public Class Form1
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
e.Graphics.TextRenderingHint = _
Drawing.Text.TextRenderingHint.ClearTypeGridFit
e.Graphics.SmoothingMode = SmoothingMode.Default
Me.TransparencyKey = Color.Black
e.Graphics.FillRectangle(Brushes.Black, _
Me.ClientRectangle)
Dim lBrush As LinearGradientBrush = New _
LinearGradientBrush(Me.ClientRectangle, _
Color.RoyalBlue, Color.MidnightBlue, _
LinearGradientMode.BackwardDiagonal)
Dim sb As SolidBrush
sb = New SolidBrush(Color.Black)
e.Graphics.FillEllipse(lBrush, Me.ClientRectangle)
End Sub
End Class
'30-كود اخر لجعل الفورم على شكل دائرة
رد مع اقتباس
