كيف أجعل شكل الزر بيضاوي أو دائري في الفيجوال بيسك 2010؟

الطريقة المستعملة عند المبرمجين، لجعل الزر ذي تأثير بيضاوي أو بزوايا خارجية دائرية -border radius-، هي باستعمال مكتبة Drawin2D، حيث ننشئ شكل بيضوي وزوايا دائرية ليتم بعد ذلك تطبيق التأثير على الزر أثناء بناء الواجهة أي عند حدث Form1_Load، بواسط الكود التالي:

Dim p As New Drawing2D.GraphicsPath p.StartFigure() 
p.AddArc(New Rectangle(0, 0, 40, 40), 180, 90)
p.AddLine(40, 0, Button1.Width - 40, 0) 
p.AddArc(New Rectangle(Button1.Width - 40, 0, 40, 40), -90, 90)
p.AddLine(Button1.Width, 40, Button1.Width, Button1.Height - 40) 
p.AddArc(New Rectangle(Button1.Width - 40, Button1.Height - 40, 40, 40), 0, 90)
p.AddLine(Button1.Width - 40, Button1.Height, 40, Button1.Height) 
p.AddArc(New Rectangle(0, Button1.Height - 40, 40, 40), 90, 90) 
p.CloseFigure() 
Button1.Region = New Region(p)

أيضا يمكن استعمال الطريقة المبينة في الرابط حيث تم استعمال مكتبة Microsoft Visual Basic PowerPacks.

لنحصل على :

الفيديوالتالي يتضمن شرحاً مفصلا للعملية: