[Kamil]

جعل 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)