軟件界面生動與否很大程度上決定于你對窗口的設計和控制。事實上，Windows程序員可以對系統中的任何窗口進行操縱，它意味著，Windows程序員可以直接操縱任何正在運行的應用窗口；可以發現一個特定的應用是否在運行，如果該應用沒有運行還可以啟動它；可以重新排列屏幕上的所有窗口；還可以使其他應用的窗口最大化或最小化。下面我們探討一種十分有意義的應用。
我們很希望在程序激活其它窗口時仍使得封面窗口處于前臺，也就是說該窗口具有“總在最前面”（“Always On Top”）這一特性。其實Microsoft系列軟件都是這樣做的，當你運行Word、Excel或PowerPoint時，你會發現它們的封面窗口不隨系統激活其它窗口而消失。
Visual Basic For Windows（以下簡稱VB）作為一種可視化編程軟件，以其優秀的圖形化界面設計風格而著稱。利用它可使軟件開發周期大為縮短，然而VB對Windows DLL（動態鏈接庫）調用的強大功能卻易受不少程序員所忽略。事實上，靈活應用Windows DLL的API（應用程序接口）才能使你開發的系統更加充滿活力。正是由于VB支持DLL使得我們可以隨心所欲地控制窗口顯示風格，從而我們可以讓系統封面總處于前臺，下面說明用到的API函數。
�。甋etWindowPOSVB定義：
Declare Sub SetWindowPosLib“User”（Bybal hWnd as Integer，hWndInsertAfter as Integer，ByValＸas Integer，ByValＹas Integer，ByVal cx as Integer，ByVal cy as Integer，ByVal wFlags as Integer）
說明：能改變窗口的位置和大小，并能修改窗口在內部窗口列表中所處的位置，以控制顯示次序。
參數類型／說明hWnd Integer－需定位的窗口hWndInsertAfter Integer－窗口句柄，在窗口列表里，
窗口hWnd將放在該窗口句柄的后面，它可以取以下值：
hWnd＿BOTTOM：把窗口放在窗口列表的底部；
hWnd－TOP：把窗口放在Ｚ序的頂部。Ｚ序是窗口按層次級別顯示的順序；
hWnd＿TOP（MOST）：把窗口放在列表的頂部，位于所有最頂窗口之后。
X Integer—窗口新的X坐標，如果hWnd是一個子窗口，X給出的是父窗口的客戶坐標。
Y Integer—窗口新的Y坐標，如果hWnd是一個子窗口，Y給出的是父窗口的客戶坐標。
cx Integer—指定新窗口寬度。
cy Integer—指定新窗口高度。
wFlags Integer—包含下列標志之一的整數：
SWP＿DRAWFRAME：圍繞窗口畫一個邊框；
SWP＿HIDEWINDOW：隱藏該窗口；
SWP＿NOACTIVATE：不激活該窗口；
SWP＿NOMOVE：保持當前位置（Ｘ和Ｙ被忽略）；
SWP＿NOREDRAW：窗口不自動重畫；
SWP＿NOSIZE：保持當前大�。╟x和cy被忽略）；
SWP＿NOZORDER：保持窗口列表中的當前位置（hWndInsertAfter被忽略）；
SWP＿SHOWWINDOW：顯示該窗口。
注釋：當一個窗口成為最頂窗口時，它所有的從屬窗口也成為最頂窗口；當它成為非最頂窗口時，它全部的從屬窗口和擁有窗口也成為非最頂窗口，Ｚ序表示窗口沿著從屏幕里向外延伸的假想Ｚ軸，從頂到底的排列次序。
VB實現窗口擁有“Always On Top”特性：
首先，定義全局常量及函數。
Global Const hWnd＿TOPMOST＝－１
Global Const SWP＿NOACTIVATE＝＆Ｈ１０
Global Const SWP＿SHOWWINDOW＝＆Ｈ４０
Declare Sub SetWindowPosLib “User” ByBal hWnd as Integer，hWndInsertAfter as Integer，ByVal Ｘ as Integer，ByVal Ｙ as Integer，ByVal cx as Integer，ByVal cy as Integer，ByVAL wFlags as Integer）
主程序如下編寫：
Sub Main ０
Screen．MousePointer＝１１'使鼠標變為漏斗狀
Load SystemCover'裝載系統封面窗體
SetWindowＰｏｓ SystemCover．hWnd，hWnd＿TOPMOST，０，０，０，０，SWP＿NOACTIVATE Or SWP＿SHOWWINDOW'使得封面總處于最前面
Load InitWindow１'裝載初始化窗體１
Load InitWindow２'裝載初始化窗體２
：
：
Unload SystemCover'關閉系統封面窗體
Screen．MousePointer＝０
'使鼠標變為缺省形狀
End Sub
文章來源于領測軟件測試網 http://www.kjueaiud.com/
