[علي بنيان]

السلام عليكم 

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

'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-جعل الفورم على شكل قلب