[علي بنيان]

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


'31-اظهار الفورم على شكل نصف دائرة

PHP كود :

Public Class Form1

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

        Dim path As New Drawing2D.GraphicsPath
        path.AddEllipse(15, 150, 250, 250)
        Me.Region = New Region(path)

    End Sub
End Class

'31-اظهار الفورم على شكل نصف دائرة 


'32-اظهار الفورم بشكل بيضوي

PHP كود :

Public Class Form1

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

        Dim path As New Drawing2D.GraphicsPath
        path.AddEllipse(25, 100, 250, 125)
        Me.Region = New Region(path)


    End Sub
End Class

'32-اظهار الفورم بشكل بيضوي