VB 编程·API 专区·API实例解析·让窗体处于最前面 -- 追寻梦想＞编程乐园

　　应用SetWindowPos函数可以设置一个窗口的位置和状态，本例正是利用此函数来把一个窗体放在所有窗体之上，使之总是处于最前面。

　　为了学习方便，提供的源码已经作了详细的中文注释，看看源码框中的代码：

'-------------------------------------------
'        让一个窗体总是处于最前的例子
'-------------------------------------------
'           洪恩在线 求知无限
'-------------------------------------------
'程序说明：
'本例应用SetWindowPos函数，设置窗体的显示属性
'来实现让一个窗体总是处于其他窗体的前面而不会
'被其他窗体所遮住。
'-------------------------------------------
Option Explicit

'【VB声明】
'  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

'【说明】
'  这个函数能为窗口指定一个新位置和状态。它也可改变窗口在内部窗口列表中的位置。该函数与DeferWindowPos函数相似，只是它的作用是立即表现出来的（在vb里使用：针对vb窗体，如它们在win32下屏蔽或最小化，则需重设最顶部状态。如有必要，请用一个子类处理模块来重设最顶部状态

'【返回值】
'  Long，非零表示成功，零表示失败。会设置GetLastError

'【备注】
'  窗口成为最顶级窗口后，它下属的所有窗口也会进入最顶级。一旦将其设为非最顶级，则它的所有下属和物主窗口也会转为非最顶级。Z序列用垂直于屏幕的一根假想Z轴量化这种从顶部到底部排列的窗口顺序

'【参数表】
'  hwnd -----------  Long，欲定位的窗口

'  hWndInsertAfter -  Long，窗口句柄。在窗口列表中，窗口hwnd会置于这个窗口句柄的后面。也可能选用下述值之一：
'  HWND_BOTTOM        将窗口置于窗口列表底部
'  HWND_TOP           将窗口置于Z序列的顶部；Z序列代表在分级结构中，窗口针对一个给定级别的窗口显示的顺序
'  HWND_TOPMOST       将窗口置于列表顶部，并位于任何最顶部窗口的前面    -1
'  HWND_NOTOPMOST     将窗口置于列表顶部，并位于任何最顶部窗口的后面    -2

'  x --------------  Long，窗口新的x坐标。如hwnd是一个子窗口，则x用父窗口的客户区坐标表示

'  y --------------  Long，窗口新的y坐标。如hwnd是一个子窗口，则y用父窗口的客户区坐标表示

'  cx -------------  Long，指定新的窗口宽度

'  cy -------------  Long，指定新的窗口高度

'  wFlags ---------  Long，包含了旗标的一个整数，是下列之一：
'  SWP_DRAWFRAME      围绕窗口画一个框
'  SWP_HIDEWINDOW     隐藏窗口
'  SWP_NOACTIVATE     不激活窗口                        &H10
'  SWP_NOMOVE         保持当前位置 (x和y设定将被忽略)    &H2
'  SWP_NOREDRAW       窗口不自动重画
'  SWP_NOSIZE         保持当前大小 (cx和cy会被忽略)      &H1
'  SWP_NOZORDER       保持窗口在列表的当前位置 (hWndInsertAfter将被忽略)
'  SWP_SHOWWINDOW     显示窗口                          &H40
'  SWP_FRAMECHANGED   强迫一条WM_NCCALCSIZE消息进入窗口，即使窗口的大小没有改变
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
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
Private Sub Form_load()
Dim retValue As Long
'将窗体设置为处于所有窗口的顶层，注意在 VB 中运行时，可能不行，但编译成EXE后就可以了
retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW)
End Sub

　　使用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	Long，欲定位的窗口
hWndInsertAfter	Long，窗口句柄。在窗口列表中，窗口hwnd会置于这个窗口句柄的后面
x，y	Long，窗口新的x,y坐标
cx，cy	Long，指定新的窗口宽度和高度
wFlags	Long，包含了旗标的一个整数，是下列之一
返回值	Long，非零表示成功，零表示失败

　　下面是部分wFlags参数和它们的意义：

参数	意义和使用方法
SWP_DRAWFRAME	围绕窗口画一个框
SWP_HIDEWINDOW	隐藏窗口
SWP_NOACTIVATE	不激活窗口
SWP_NOMOVE	保持当前位置 (x和y设定将被忽略) &H2
SWP_NOREDRAW	窗口不自动重画
SWP_NOSIZE	保持当前大小 (cx和cy会被忽略) &H1
SWP_NOZORDER	保持窗口在列表的当前位置 (hWndInsertAfter将被忽略)
SWP_SHOWWINDOW	显示窗口 &H40
SWP_FRAMECHANGED	强迫一条WM_NCCALCSIZE消息进入窗口，即使窗口的大小没有改变

　　函数的使用很简单，我们只须在Form_Load中加入如下语句即可：

　　retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW)

　　这样窗体就能保持在所有窗体的前面了。