[bidaya]

كود :

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

هذا كود لجعل الادات بيكتر بوكس دائرية
اريد كود لجهل الادات   مكعبة   بالشكل التالي    

وشكرا

[الوادي]

يا بدايا،

هذا الكود في حدث 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) 


صورة لتوضيح احداثيات النقاط ومكانها في الكود بالاضافة لمقدار زاوية الميل

[bidaya]

اخي الوادي الشكر قليل عليك ادعو الله ان يجعلها لك في ميزان الحسنات وان يرزقك الجنةو يرحم والديك
وشكرا لك