谢谢
'dwtime -- 是动画持续的时间,默认值为200;
'dwflags -- 是动画方式,可以取&H1、&H2、&H3、&H4、&H5、&H6、&H8、&H9、和&H10共8个值,分别代表左右、右左、上下、左上到右下、右上到左下、下上、左下到右上以及中间到四周等。
'AW_HIDE 在窗体卸载时若想使用本函数就得加上此常量
'AW_ACTIVATE 在窗体通过本函数打开后,默认情况下会失去焦点,除非加上本常量
'AW_SLIDE 窗体移动滑出滑入
'AW_BLEND 淡入淡出效果(适用于WIN2000)
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long
Private Const AW_HIDE = &H10000 '在窗体卸载时若想使用本函数就得加上此常量
Private Const AW_ACTIVATE = &H20000 '平常窗体出的方式,即突发式
Private Const AW_SLIDE = &H40000 '在窗体通过本函数打开后,默认情况下会失去焦点,除非加上本常量
Private Const AW_BLEND = &H80000 '渐入式,由透明逐渐出现
Private Const AW_CENTER = &H10 '由中心逐渐出现
Private Const AW_HOR_NEGATIVE = &H2 '由右至左渐出
Private Const AW_HOR_POSITIVE = &H1 '由左至右渐出
Private Const AW_VER_NEGATIVE = &H8 '由下到上渐出
Private Const AW_VER_POSITIVE = &H4 '由上到下渐出
Private Sub Form_Load()
' AnimateWindow hwnd, 1000, AW_CENTER Or AW_SLIDE Or AW_ACTIVATE '中间向四周展开并获取焦点
AnimateWindow hwnd, 1500, AW_BLEND Or AW_VER_NEGATIVE Or AW_CENTER
Me.Refresh
End Sub
Private Sub Form_Unload(Cancel As Integer)
AnimateWindow hwnd, 1500, AW_BLEND Or AW_ACTIVATE Or AW_HIDE
Me.Refresh
End Sub
'参数自己去匹配吧