[علي بنيان]

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


'33-كود جعل الفورم على شكل مثلث

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.AddLine(0, 0, 216, 320)
        path.AddLine(216, 320, 408, 0)
        path.AddLine(408, 0, 0, 0)
        Me.Region = New Region(path)

    End Sub
End Class

'33-كود جعل الفورم على شكل مثلث 


'34-جعل الفورم تقوم بعملية وميض

PHP كود :

Public Class Form1

    Private Declare Function FlashWindow Lib _
    "user32" (ByVal hwnd As Integer, ByVal _
    bInvert As Integer) As Integer
    Private Const Invert As Integer = 1

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        FlashWindow(Me.Handle.ToInt32, Invert)

    End Sub

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

        Timer1.Enabled = True

    End Sub
End Class

'34-جعل الفورم تقوم بعملية وميض