利用VB控制窗口顯示風格

2019-11-18 17:32:43

字體：大中小

來源：轉載

供稿：網友

軟件界面生動與否很大程度上決定于你對窗口的設計和控制。事實上，Windows程序員可以對系統中的任何窗口進行操縱，它意味著，Windows程序員可以直接操縱任何正在運行的應用窗口；可以發現一個特定的應用是否在運行，如果該應用沒有運行還可以啟動它；可以重新排列屏幕上的所有窗口；還可以使其他應用的窗口最大化或最小化。下面我們探討一種十分有意義的應用。
我們很希望在程序激活其它窗口時仍使得封面窗口處于前臺，也就是說該窗口具有“總在最前面”（“AlwaysOnTop”）這一特性。其實Microsoft系列軟件都是這樣做的，當你運行Word、Excel或Powerpoint時，你會發現它們的封面窗口不隨系統激活其它窗口而消
失。
VisualBasicForWindows3.0（以下簡稱VB）作為一種可視化編程軟件，以其優秀的圖形化界面設計風格而著稱。利用它可使軟件開發周期大為縮短，然而VB對WindowsDLL（動態鏈接庫）調用的強大功能卻易受不少程序員所忽略。事實上，靈活應用WindowsDLL的API（應用程序接口）才能使你開發的系統更加充滿活力。正是由于VB支持DLL使得我們可以隨心所欲地控制窗口顯示風格，從而我們可以讓系統封面總處于前臺，下面說明用到的API函數。
.SetWindowPOS
VB定義：DeclareSubSetWindowPosLib“User”（BybalhWndasInteger，
hWndInserAfterasInteger，ByValXasInteger，ByValYasInteger，ByVal
cxasInteger，ByValcyasInteger，ByValwFlagsasInteger）

說明：能改變窗口的位置和大小，并能修改窗口在內部窗口列表中所處的位置，
以控制顯示次序。
參數類型／說明
hWndInteger－需定位的窗口
hWndInserfterInteger－窗口句柄，在窗口列表里，窗口hWnd將放在該窗口句柄的后面，它可以取以下值：
HWND＿BOTTOM：把窗口放在窗口列表的底部；
HWND－TOP：把窗口放在Z序的頂部。Z序是窗口按層次級別顯示的順序；
HWND＿TOP（MOST）：把窗口放在列表的頂部，位于所有最頂窗口之后。
XInteger—窗口新的x坐標，如果hWnd是一個子窗口，X給出的是父窗口的客戶坐標。
YInteger—窗口新的Y坐標，如果hWnd是一個子窗口，Y給出的是父窗口的客戶坐標。
cxInteger—指定新窗口寬度。
cyInteger—指定新窗口高度。
wFlagsInteger—包含下列標志之一的整數：
SWP＿DRAWFRAME：圍繞窗口畫一個邊框；
SWP＿HIDEWINDOW：隱藏該窗口；
SWP＿NOACTIVATE：不激活該窗口；
SWP＿NOMOVE：保持當前位置（X和Y被忽略）；
SWP＿NOREDRAW：窗口不自動重畫；
SWP＿NOSIZE：保持當前大小（cx和cy被忽略）；
SWP＿NOZORDER：保持窗口列表中的當前位置（hWndInsertAfter被忽略）；
SWP＿SHOWWINDOW：顯示該窗口。
注釋：當一個窗口成為最頂窗口時，它所有的從屬窗口也成為最頂窗口；當它成為非最頂窗口時，它全部的從屬窗口和擁有窗口也成為非最頂窗口，Z序表示窗口沿著從屏幕里向外延伸的假想Z軸，從頂到底的排列次序。
VB實現窗口擁有“AlwaysOnTop”特性：
首先，定義全局常量及函數。
GlobalConstHWND＿TOPMOST＝－1
GlobalConstSWP＿NOACTIVATE＝＆H10
GlobalConstSWP＿SHOWWINDOW＝＆H40
DeclareSubSetWindowPosLib“User”（ByBalhWndasInteger，hWndInserAfterasInteger，ByValXasInteger，ByValYasInteger，ByValcxasInteger，ByValcyasInteger，ByVALwFlagsasInteger）主程序如下編寫：
SubMain0
Screen.MousePointer＝11'使鼠標變為漏斗狀
LoadSystemCover'裝載系統封面窗體
SetWindowPosSystemCover.hWnd，HWND＿TOPMOST，0，0，0，0，SWP＿NOACTIVATEOrSWP＿SHOWWINDOW'使得封面總處于最前面
LoadInitWindow1'裝載初始化窗體1
LoadInitWindow2'裝載初始化窗體2
：
：

UnloadSystemCover'關閉系統封面窗體
Screen.MousePointer＝0'使鼠標變為缺省形狀
EndSub->

上一篇：VisualBasic中的界面設計原則和編程技巧

下一篇：使用VB設計具有「動感」的命令圖標欄