設計“總在上現”的窗口

曠　強

　　什么是“總在上面”呢？就是這個窗口總是停留在其他窗口的上面。那么，這個TopMost窗口怎樣設計呢？請看下面的“招兒”：

　　這個“總在上面”的窗口的實現需要用到一個API函數——SetWindowPos。這個函數的格式如下：

　　Function SetWindowPos Lib ″user32″(ByVal hWnd As Long,ByVal hWndInsertAfter As Long,ByVal x As Long,ByVal y As Long ,ByVal cx As Long,ByVal cy As Long,ByVal wFlags As Long)As Long

　　函數的參數意義如下：

　　hWnd——所處理窗口的句柄。

　　hWndInsertAfter——窗口的句柄，它將在Z軸順序上先于該窗口。這個變量可以賦以下值中的一種，從而成為窗口的句柄：HWND—BOTTOM(=1,將窗口放置在Z軸順序的底端）、HWND——TOP（=0，將窗口放置在Z軸順序的頂端）、HWND—TOPMOST（=－1，將窗口放置在所有非首頁窗口的上面）或者HWND—NOTOPMOST（=2，對在所有非首頁窗口的頂端窗口重新定位）。

　　x——規定窗口左邊的新位置。

　　y——規定窗口上邊的新位置。

　　cx——規定窗口的新寬度。

　　cy——規定窗口的新高度。

　　wFlags——規定大小和定位選擇，如表所示。

　　接下來我們該看一個例子。

　　先設置一個200×200像素的窗口，然后聲名API函數SetWindowPos：

　　Declare Function SetWindowPos Lib ″user32″ Alias ″SetWindowPos″ (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

　　并定義各個常量的值，如下：

　　const SWP—SHOWWINDOW=＆H40

　　const SWP—DRAWFRAME=＆H20

　　const HWND—TOPMOST=－1

　　然后，在Form—Load子程序中填寫如下代碼就可以使其成為首頁了：

　　Sub Form—Load()

　　retval=SetWindowPos(Form1.hwnd, HWND—TOPMOST, 100, 100, 100, 100, SWP—DRAWFRAME Or SWP—SHOWWINDOW)

　　End Sub

　　到此為止，我們已經完成了這個TopMost的所有工作，它現在已經可以保持在其他窗口之上了。試試看？

常   量 含    義 swp_noredraw=&h8 不重繪變化，如果設置該標志則對任何出現的變化都不在重繪 swp_drawframe=&h20 圍繞窗口繪制一幀 swp_framechanged=&h20 給窗口發送一wn_nclearcase/" target="_blank" >ccalcsize信息，使窗口的大小不再調整。如果該標志不加以限定，wn_nccalcsize信息只有在窗口的大小變化時才發送。 swp_hidewindow=&h80 隱藏窗口 swp_noactivate=&h10 不能活動的窗口 swp_nocopybits=&h100 丟棄客戶區的所有內容 swp_nomove=&h2 保持當前的位置 swp_noownerzorder=&h200 窗口在z軸的位置不變 swp_noreposition=swp_noownerzorder 與swp_noownerzorder一樣 swp_nosize=&h1 保持當前的尺寸，忽略變量cx和cy swp_nozorder=&h4 保持當前的順序，忽略hwndinsertafter swp_showwindow=&h40 顯示窗口

　

原文轉自：http://www.kjueaiud.com