[علي بنيان]

السلام عليكم 

هذا الموضوع استكمال لموضوع سابقاً 

3- الكود الثالث : اظهار الفورم بطريقة مميزة 

PHP كود :

Imports System.Runtime.InteropServices

Public Class Form1

    Public Enum AnimateWindowFlags
        AW_HOR_POSITIVE = &H1
        AW_HOR_NEGATIVE = &H2
        AW_VER_POSITIVE = &H4
        AW_VER_NEGATIVE = &H8
        AW_CENTER = &H10
        AW_HIDE = &H10000
        AW_ACTIVATE = &H20000
        AW_SLIDE = &H40000
        AW_BLEND = &H80000
    End Enum
    <DllImport("user32.dll")> _
    Shared Function AnimateWindow _
    (ByVal hwnd As IntPtr, ByVal time As Integer, _
     ByVal flags As AnimateWindowFlags) As Boolean
    End Function

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

        AnimateWindow(Me.Handle, 1000, _
        AnimateWindowFlags.AW_VER_NEGATIVE _
        Or AnimateWindowFlags.AW_SLIDE)

    End Sub
End Class

'3-اظهار الفورم بطريقة جذابة رائعة 


4- اظهار الفورم بطريقة تدريجية مميزة

PHP كود :

Public Class Form1

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

        For iCount = 10 To 100 Step 5
            Me.Opacity = iCount / 100
            Me.Refresh()
            Threading.Thread.Sleep(50)
        Next


    End Sub
End Class

'4-اظهار الفورم بطريقة تدريجية