+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مساعدة من فظلكم (/showthread.php?tid=16397)
مساعدة من فظلكم - bidaya - 09-07-16
كود :
Private Sub PictureBox1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
Dim shape As New System.Drawing.Drawing2D.GraphicsPath
shape.AddEllipse(0, 0, PictureBox1.Width, PictureBox1.Height)
PictureBox1.Region = New System.Drawing.Region(shape)
End Subاريد كود لجهل الادات مكعبة بالشكل التالي
![[صورة مرفقة: 08-07-2016_21-33-47]](http://www.4shared.com/img/w63ZllWlba/s25/155cc3b6ed8/08-07-2016_21-33-47)
وشكرا
RE: مساعدة من فظلكم - الوادي - 09-07-16
يا بدايا،
هذا الكود في حدث Paint للأداة المستهدفة
PHP كود :
Dim path As New System.Drawing.Drawing2D.GraphicsPath
Dim rect As Rectangle = sender.Bounds
Dim ang As Integer = 10
path.AddPolygon(New Point() {
New Point(ang, 0),
New Point(rect.Width, 0),
New Point(rect.Width - ang, rect.Height),
New Point(0, rect.Height)})
sender.Region = New System.Drawing.Region(path)
صورة لتوضيح احداثيات النقاط ومكانها في الكود بالاضافة لمقدار زاوية الميل
RE: مساعدة من فظلكم - bidaya - 09-07-16
اخي الوادي الشكر قليل عليك ادعو الله ان يجعلها لك في ميزان الحسنات وان يرزقك الجنةو يرحم والديك
وشكرا لك