应用SetWindowPos函数可以设置一个窗口的位置和状态，本例正是利用此函数来把一个窗体放在所有窗体之上，使之总是处于最前面。
我们先来看看SetWindowPos函数的定义和参数：
使用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) |
这样窗体就能保持在所有窗体的前面了。
