[علي بنيان]

السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة


'27-جعل الفورم على شكل دائرة مع تغيير لون الخلفية

PHP كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Size = New System.Drawing.Size(500, 500)
        Dim path As New Drawing2D.GraphicsPath
        path.AddEllipse(85, 0, 250, 250)
        Me.Region = New Region(path)
        Me.BackColor = Color.Gray


    End Sub
End Class

'27-جعل الفورم على شكل دائرة مع تغيير لون الخلفية 


'28-الفورم يظهر دائرة داخل دائرة

PHP كود :

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.Size = New System.Drawing.Size(500, 500)
        Dim path As New Drawing2D.GraphicsPath
        path.AddEllipse(85, 0, 250, 250)
        path.AddEllipse(135, 50, 150, 150)
        path.AddEllipse(160, 75, 100, 100)
        Me.Region = New Region(path)
        Me.BackColor = Color.Gray

    End Sub
End Class

'28-الفورم يظهر دائرة داخل دائرة