[3booody]

(04-11-19, 08:49 PM)عبد العزيز البسكري كتب :

شكرا جزيلا أخي اكريم 3booody

مثال آخر ..

كود :

   Public Sub Round_Corners_Form(obj As Form)
       obj.FormBorderStyle = FormBorderStyle.None
       obj.BackColor = Color.Cyan
       Dim DGP As New Drawing2D.GraphicsPath
       DGP.StartFigure()
       'top left corner
       DGP.AddArc(New Rectangle(0, 0, 40, 40), 180, 90)
       DGP.AddLine(40, 0, obj.Width - 40, 0)
       'top right corner
       DGP.AddArc(New Rectangle(obj.Width - 40, 0, 40, 40), -90, 90)
       DGP.AddLine(obj.Width, 40, obj.Width, obj.Height - 40)
       'buttom right corner
       DGP.AddArc(New Rectangle(obj.Width - 40, obj.Height - 40, 40, 40), 0, 90)
       DGP.AddLine(obj.Width - 40, obj.Height, 40, obj.Height)
       'buttom left corner
       DGP.AddArc(New Rectangle(0, obj.Height - 40, 40, 40), 90, 90)
       DGP.CloseFigure()
       obj.Region = New Region(DGP)
   End Sub

بالفورم لود لأي فورم ..

كود :

Call Round_Corners_Form(Me)

تحياتي

ماشاء الله ,, جزاك الله خيرآ استاذ