منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تغير شكل الليبول الي شكل اخر غير المسطيل

السلام عليكم ورحمة الله وبركاته

اخوتي الاعزاء

الان اريد تغير شكل الليبول بوكس بشكل غير المسطيل او المربع وليكون مثلا دائري او يصبح علي شكل مثلث او غيره فهل يوجد كود او طريقة لتغير الشكل شكرا للجميع

هذا كود لتغيير شكل بعض الكائنات الى الشكل الدائري

نلاحظ انه نفس الكود مع تغييرات بسيطة

كود :

Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

Dim shape As New System.Drawing.Drawing2D.GraphicsPath

shape.AddEllipse(0, 0, Me.Width, Me.Height)

Me.Region = New System.Drawing.Region(shape)

End Sub

Private Sub Button1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Button1.Paint

Dim shape As New System.Drawing.Drawing2D.GraphicsPath

shape.AddEllipse(0, 0, Button1.Width, Button1.Height)

Button1.Region = New System.Drawing.Region(shape)

End Sub

Private Sub Panel1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint

Dim shape As New System.Drawing.Drawing2D.GraphicsPath

shape.AddEllipse(0, 0, Panel1.Width, Panel1.Height)

Panel1.Region = New System.Drawing.Region(shape)

End Sub

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

Private Sub DataGridView1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles DataGridView1.Paint

Dim shape As New System.Drawing.Drawing2D.GraphicsPath

shape.AddEllipse(0, 0, DataGridView1.Width, DataGridView1.Height)

DataGridView1.Region = New System.Drawing.Region(shape)

End Sub

جعل Label دائريًا:

يمكنك استخدام GraphicsPath لجعل عنصر التحكم دائريًا:

PHP كود :

Imports System.Drawing.Drawing2D

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim path As New GraphicsPath()
        path.AddEllipse(0, 0, Label1.Width, Label1.Height)
        Label1.Region = New Region(path)
    End Sub
End Class 

لجعل Label مثلثًا:

يمكنك رسم مثلث بنفس الطريقة عبر تحديد نقاطه:

PHP كود :

Imports System.Drawing.Drawing2D

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim path As New GraphicsPath()
        Dim points As Point() = {
            New Point(Label1.Width \ 2, 0),   ' النقطة العلوية
            New Point(0, Label1.Height),      ' الزاوية اليسرى السفلية
            New Point(Label1.Width, Label1.Height) ' الزاوية اليمنى السفلية
        }
        path.AddPolygon(points)
        Label1.Region = New Region(path)
    End Sub
End Class 

تأكد من أن Label1 لديه خلفية ملونة (BackColor = Color.Red) حتى يظهر المثلث.

يمكنك ضبط النقاط لتعديل شكل المثلث حسب احتياجاتك.

تطبيق على PictureBox:

إذا كنت تريد تطبيق هذا على PictureBox بنفس الطريقة:

PHP كود :

Dim path As New GraphicsPath()
path.AddEllipse(0, 0, PictureBox1.Width, PictureBox1.Height)
PictureBox1.Region = New Region(path) 

شكرا لكم جميعا

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

fireswored1

salamandal

Kamil

fireswored1