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