• 0

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

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

انشر على الشّبكات الاجتماعية


رابط هذه المساهمة
  • 0

الطريقة المستعملة عند المبرمجين، لجعل الزر ذي تأثير بيضاوي أو بزوايا خارجية دائرية -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.

لنحصل على :

Bosky.png

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

 

انشر على الشّبكات الاجتماعية


رابط هذه المساهمة

يجب أن تكون عضوًا لدينا لتتمكّن من التعليق

انشاء حساب جديد

يستغرق التسجيل بضع ثوان فقط


سجّل حسابًا جديدًا

تسجيل الدخول

تملك حسابا مسجّلا بالفعل؟


سجّل دخولك الآن