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

كود :
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) 

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

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

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

bidaya

الوادي

bidaya