程序師世界是廣大編程愛好者互助、分享、學習的平台,程序師世界有你更精彩!
首頁
編程語言
C語言|JAVA編程
Python編程
網頁編程
ASP編程|PHP編程
JSP編程
數據庫知識
MYSQL數據庫|SqlServer數據庫
Oracle數據庫|DB2數據庫
 程式師世界 >> 編程語言 >> Visual Basic語言 >> VB6 >> 在VB中實現窗體的動態效果

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

編輯:VB6

在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中文企業版中運行通過。

  1. 上一頁:
  2. 下一頁:
Copyright © 程式師世界 All Rights Reserved