VB呼叫API函式使視窗保持在最上層 (轉)

VB呼叫API函式使視窗保持在最上層 (轉)[@more@]

比較簡單,但是這篇說的倒是很詳細
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_HWINDOW 隱藏視窗
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_SHOW = &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 瀏覽”程式中找到所需的函式宣告，然後複製到VB程式碼中。 

關於： SetWindowPos() 函式的詳細解釋，也許用的著。

 

【VB宣告】
  Private Declare Function SetWindowPLib "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

 

【說明】
  這個函式能為視窗指定一個新位置和狀態。它也可改變視窗在內部視窗列表中的位置。該函式與DeferWindowPos函式相似，只是它的作用是立即表現出來的（在vb裡使用：針對vb窗體，如它們在下遮蔽或最小化，則需重設最頂部狀態。如有必要，請用一個子類處理模組來重設最頂部狀態

 

【返回值】
  Long，非零表示成功，零表示失敗。會設定GetLastError

 

【備註】
  視窗成為最頂級視窗後，它下屬的所有視窗也會進入最頂級。一旦將其設為非最頂級，則它的所有下屬和物主視窗也會轉為非最頂級。Z序列用垂直於螢幕的一根假想Z軸量化這種從頂部到底部排列的視窗順序

 

【參數列】
  hwnd -----------  Long，欲定位的視窗

 

  hWndInsertAfter -  Long，視窗控制程式碼。在視窗列表中，視窗hwnd會置於這個視窗控制程式碼的後面。也可能選用下述值之一：
  HWND_BOTTOM
  將視窗置於視窗列表底部
  HWND_TOP
  將視窗置於Z序列的頂部；Z序列代表在分級結構中，視窗針對一個給定級別的視窗顯示的順序
  HWND_TOPMOST
  將視窗置於列表頂部，並位於任何最頂部視窗的前面
  HWND_NOTOPMOST
  將視窗置於列表頂部，並位於任何最頂部視窗的後面

 

  x --------------  Long，視窗新的x座標。如hwnd是一個子視窗，則x用父視窗的客戶區座標表示

 

  y --------------  Long，視窗新的y座標。如hwnd是一個子視窗，則y用父視窗的客戶區座標表示

 

  cx -------------  Long，指定新的視窗寬度

 

  cy -------------  Long，指定新的視窗高度

 

  wFlags ---------  Long，包含了旗標的一個整數
  SWP_DRAWFRAME
  圍繞視窗畫一個框
  SWP_HIDEWINDOW
  隱藏視窗
  SWP_NOACTIVATE
  不啟用視窗
  SWP_NOMOVE
  保持當前位置（x和y設定將被忽略）
  SWP_NOREDRAW
  視窗不自動重畫
  SWP_NOSIZE
  保持當前大小（cx和cy會被忽略）
  SWP_NOZORDER
  保持視窗在列表的當前位置（hWndInsertAfter將被忽略）
  SWP_SHOWWINDOW
  顯示視窗
  SWP_FRAMECHANGED
  強迫一條WM_NCCALCSIZE訊息進入視窗，即使視窗的大小沒有改變