[ابو روضة]

(01-01-20, 09:33 PM)3booody كتب : اهلآ بك اخي الغالي

كل مافي الامر تقوم برسم الشكل الذي تريد بالفئة GraphicsPath ثم تحدد منطقة الاداة بالرسم المصمم

ضع زر بوتون وهذا الكود بحدث التحميل

كود :

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Button1.FlatAppearance.BorderSize = 0
       Button1.FlatStyle = Windows.Forms.FlatStyle.Flat
       Button1.BackColor = Color.Cyan
       Button1.Size = New Size(120, 40)
       Dim DGP As New Drawing2D.GraphicsPath
       DGP.StartFigure()
       Dim w As Integer = Button1.Width / (Button1.Width / 40)
       DGP.AddArc(New Rectangle(0, 0, w, 40), 180, 100)
       DGP.AddArc(New Rectangle(Button1.Width - 40, 0, w, 40), -90, 100)
       DGP.AddArc(New Rectangle(Button1.Width - 40, Button1.Height - 40, w, 40), 0, 100)
       DGP.AddArc(New Rectangle(0, Button1.Height - 40, w, 40), 90, 100)
       DGP.CloseFigure()
       Button1.Region = New Region(DGP)
       DGP.Dispose()
   End Sub

لاحظ اني رسمت الشكل المطلوب ثم قمت بالامر

كود :

Button1.Region = New Region(DGP)

أي تحديد شكل الزر طبقآ للرسم الموجود بالفئة DGP

الله يكرمك أخى العزيز ويبارك بعمرك ويزيدك من علمه.