السلام عليكم
هذا الموضوع استكمال لدورة الاكواد الشاملة
'25-وضع ايكون للفورم بشريط المهام
كود PHP:
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim a As New NotifyIcon
a.Icon = Me.Icon
a.Visible = True
Me.Hide()
End Sub
End Class
'25-وضع ايكون للفورم بشريط المهام
'26-جعل الفورم على شكل قلب
كود 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.AddArc(70, 10, 150, 150, 135, 195)
path.AddArc(200, 10, 150, 150, 210, 195)
path.AddLine(92, 139, 210, 270)
path.AddLine(327, 139, 210, 270)
path.AddLine(327, 139, 92, 139)
Me.Region = New Region(path)
End Sub
End Class
'26-جعل الفورم على شكل قلب
رد مع اقتباس
دخت شني هاي 
المشاركة الأصلية كتبت بواسطة sawsanmahmoud
)