VB利用AIP制作窗口淡入淡出的效果

本文主要是介绍VB利用AIP制作窗口淡入淡出的效果，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

Option Explicit
Private Declare Function AnimateWindow Lib “user32” (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Boolean
Private Const WS_CLIPSIBLINGS = &H4000000 '不重绘层叠子窗口
Const AW_HIDE = &H10000 '隐藏窗口，缺省则显示窗口。
Const AW_SHOW = &H20000 '带最小化按钮的窗口
Const AW_BLEND = &H80000 '使用滑动类型。缺省则为滚动动画类型。当使用AW_CENTER标志时，这个标志就被忽略。

Private Sub Form_Load() '淡入效果
AnimateWindow Me.hwnd, 0, AW_BLEND Or AW_SHOW Or WS_CLIPSIBLINGS
End Sub

Private Sub Form_Unload(Cancel As Integer) '淡出效果
AnimateWindow Me.hwnd, 0, AW_BLEND Or AW_HIDE Or WS_CLIPSIBLINGS
Set Form1 = Nothing
End Sub

这篇关于VB利用AIP制作窗口淡入淡出的效果的文章就介绍到这儿，希望我们推荐的文章对编程师们有所帮助！

---