Option Explicit''窗口显示特效
Private Enum DWFAGS
AW_SLIDE
AW_ACTIVE
AW_BLEND
AW_HIDE
AW_CENTER
AW_HOR_POSITIVE
AW_VER_POSITIVE
AW_VER_NEGATIVE
End EnumPrivate Declare Function AnimateWindow Lib "user32" _
(ByVal hwnd As Long, ByVal dwTime As Long, ByVal flag As DWFAGS) As Boolean
Private Sub Form_Load()
AnimateWindow hwnd, 400, AW_BLEND Or AW_CENTER
Me.Refresh
End Sub
Private Enum DWFAGS
AW_SLIDE
AW_ACTIVE
AW_BLEND
AW_HIDE
AW_CENTER
AW_HOR_POSITIVE
AW_VER_POSITIVE
AW_VER_NEGATIVE
End EnumPrivate Declare Function AnimateWindow Lib "user32" _
(ByVal hwnd As Long, ByVal dwTime As Long, ByVal flag As DWFAGS) As Boolean
Private Sub Form_Load()
AnimateWindow hwnd, 400, AW_BLEND Or AW_CENTER
Me.Refresh
End Sub
当windowstate<>0时,效果不好。