[علي بنيان]

السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة


'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-كود اخر لجعل الفورم على شكل دائرة