السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'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-اظهار الفورم بشكل بيضوي