VB調用API函數使窗口保持在最上層

岳陽市鷹山石油化工總廠 周四陽

---- 我們看到有的應用程序不管窗口是否活動都使窗口保持在最上層，常見的Microsoft Word的文件打開和編輯查找窗口就是這樣。在VB開發中可以通過調用SetWindowsPos()API函數實現這個功能。該函數聲明如下：

Private Declare 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變元是窗口的句柄；x，y是窗口的左上角的坐標；cx、cy是窗口寬度和高度；hWndInsertAfter變元是窗口清單中hWnd窗口前面的窗口句柄，有四個可選值：

序號 可 選 值 作 用
1 HWND_BOTTOM 把窗口放在窗口清單的底部
2 HWND_TOP 把窗口放在窗口清單的字符順序的頂部
3 HWND_TOPMOST 把窗口放在窗口清單的頂部
4 HWND_NOTOPMOST 把窗口放在窗口清單的頂部，最上層窗口之下

---- WFlags變元為整型值，有八個可選值：

序號 可  選  值 作   用
1 SWP_DRAWFRAME 在窗口周圍畫一個方框
2 SWP_HIDEWINDOW 隱藏窗口
3 SWP_NOACTIVATE  不激活窗口
4 SWP_NOMOVE 保持窗口當前位置
5 SWP_NOREDRAW 窗口不自動重畫
6 SWP_NOSIZE  保持窗口當前尺寸
7 SWP_NOZORDER 保持窗口在窗口清單中的當前位置
8 SWP_SHOWWINDOW 顯示窗口

---- 下面的例子程序Test演示了對函數中的以上7個變元作正確的選擇后，應用程序運行后窗口總可保持在最上層,程序清單如下：

Option Explicit
Private Declare 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
Private Const HWND_TOPMOST = -1
Private Const SWP_SHOWWINDOWS = &H40

Private Sub Form_Load()
Dim retValue As Long
retValue = SetWindowPos(Me.hwnd,
HWND_TOPMOST, Me.CurrentX, _
Me.CurrentY, 300, 300, SWP_SHOWWINDOWS)
End Sub

---- 備注：編寫函數聲明時，整個函數聲明須在一行中寫完，不可提行。一般是自動從系統中得到函數聲明，方法是從VB的外接程序管理中啟動“API 瀏覽”程序，在“API 瀏覽”程序中找到所需的函數聲明，然后復制到VB代碼中。 

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