在VB中實現窗體的動態效果

作者:姜衛東、華云

   在VB編程中，應用程序窗體的出現和關閉一般都是靜態的，不過，我們利用下面的一個API函數AnimateWindow就可以輕松實現窗體的動態效果。
   API函數AnimateWindow的聲明如下：
   Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal dwTime As Long, ByVal dwFlags As Long) As Long
   其中：hwnd只對form有效；dwtime是動畫持續的時間，默認值為200；dwflags是動畫方式，可以取&&H1、&&H2、&&H4、&&H5、&&H6、&&H8、&&H9和&&H10共8 個值，分別代表左右、右左、上下、左上到右下、右上到左下、下上、左下到右上以及中間到四周等。
   AW_HIDE = &&H10000 在窗體卸載時若想使用本函數就得加上此常量
   AW_ACTIVATE = &&H20000 在窗體通過本函數打開后，默認情況下會失去焦點，除非加上本常量
   AW_SLIDE = &&H40000
   AW_BLEND = &&H80000 淡入淡出效果（適用于WIN2000）
   下面，我們舉一個例子讓朋友們熟習AnimateWindow函數的使用。
   例：從左上角到右下角逐漸顯示窗體
   Private Sub Form_Load()
   AnimateWindow hwnd, 3000, &&H5
   Form1.Refresh
   End Sub
   以上程序在PWIN98，VB6.0中文企業版中運行通過。

原文轉自：http://www.anti-gravitydesign.com