اذهب إلى المحتوى
  • 0

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

مؤمن

السؤال

Recommended Posts

  • 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

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

 

رابط هذا التعليق
شارك على الشبكات الإجتماعية

انضم إلى النقاش

يمكنك أن تنشر الآن وتسجل لاحقًا. إذا كان لديك حساب، فسجل الدخول الآن لتنشر باسم حسابك.

زائر
أجب على هذا السؤال...

×   لقد أضفت محتوى بخط أو تنسيق مختلف.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   جرى استعادة المحتوى السابق..   امسح المحرر

×   You cannot paste images directly. Upload or insert images from URL.

  • إعلانات

  • تابعنا على



×
×
  • أضف...