AghaMohsen
شنبه 23 شهریور 1392, 10:26 صبح
من تونستم برای اینکه وقتی فرم لود میشه ، بهش انیمیشن بدم ، که من از انیمیشن fade استفاده کردم .
اینم کدش :
Public Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Integer, ByVal dwtime As Integer, ByVal dwflags As Integer) As Integer
Public Const AW_BLEND = &H80000
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
AnimateWindow(Me.Handle.ToInt32, 1000, &H80000)
End Sub
حالا میخوام برای بسته شدن فرم هم این انیمیشن رو بدم ، علم من قد نمیده ، هر کاری کردم نشد .
اینم کدش :
Public Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Integer, ByVal dwtime As Integer, ByVal dwflags As Integer) As Integer
Public Const AW_BLEND = &H80000
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
AnimateWindow(Me.Handle.ToInt32, 1000, &H80000)
End Sub
حالا میخوام برای بسته شدن فرم هم این انیمیشن رو بدم ، علم من قد نمیده ، هر کاری کردم نشد .