2024年3月24日发(作者：)

VB中让窗体始终处于最前面

我们先来看看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参数和它们的意义：

第 1 页 共 7 页

VB中让窗体始终处于最前面

参数 意义和使用方法

SWP_DRAWFRAME 围绕窗口画一个框

SWP_HIDEWINDOW 隐藏窗口

SWP_NOACTIVATE 不激活窗口

SWP_NOMOVE 保持当前位置 (x和y设定将被忽略) amp;H2

SWP_NOREDRAW 窗口不自动重画

SWP_NOSIZE 保持当前大小 (cx和cy会被忽略) amp;H1

SWP_NOZORDER 保持窗口在列表的当前位置 (hWndInsertAfter将被忽略)

SWP_SHOWWINDOW 显示窗口 amp;H40

SWP_FRAMECHANGED 强迫一条WM_NCCALCSIZE消息进入窗口，即使窗口的大

小没有改变

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

retValue = SetWindowPos(, HWND_TOPMOST, tX,

tY, 300, 300, SWP_SHOWWINDOW)

第 2 页 共 7 页