منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

كود :

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]

وشكرا

يا بدايا،

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

الوادي

bidaya