让窗口始终在最前面显示 VB

 

最近想做一个桌面的类似台历的VB程序，其中最主要的就是显示效果的问题，一般我们可能要求有一个异样的外观，另外我们还可能要让它总是显示在最前面，所以我就将我做的让VB窗口总是在最前面显示的总结写出来大家参考一下，其实想要让窗口始终在最前面显示，只需要一个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

函数的具体用法如下：

VB声明
Declare Function SetWindowPos Lib "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窗体，如它们 在win32下屏蔽或最小化，则需重设最顶部状态。如有必要，请用一个子类处理模块来重设最顶部状态
返回值
Long，非零表示成功，零表示失败。会设置GetLastError
参数表
参数	类型及说明
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消息进入窗口，即使窗口的大小没有改变
注解
窗口成为最顶级窗口后，它下属的所有窗口也会进入最顶级。一旦将其设为非最顶级，则它的所有下属和物主窗口也会转为非最顶级。Z序列用垂直于屏幕的一根假想Z轴量化这种从顶部到底部排列的窗口顺序

在VB中声明此函数之后，我们就可以用以下调用将窗口放置在最前面了

SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE

其中SWP_NOMOVE是常量H1，SWP_NOSIZE是常量H2

一个简单的例子：

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_NOSIZE& = &H1 ' 保持窗口大小
       Private Const SWP_NOMOVE& = &H2 ' 保持窗口位置
       Private Sub Form_Load()
        SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE '将窗口设为总在最前
        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)

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

　　为了学习方便，下面提供了源码：

注释：-------------------------------------------
注释： 让一个窗体总是处于最前的例子
注释：-------------------------------------------
注释：程序说明：
注释：本例应用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函数SetWindowPos可实现此功能?

'首先添加一个公用模块，将下面的代码放到模块的声明段中。

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

Public Const HWND_TOPMOST = -1
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_NOZORDER = &H8

'将下面的子程序放到模块中

Public Sub SetFormTopmost(TheForm As Form)

SetWindowPos TheForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _
SWP_NOZORDER + SWP_NOMOVE + SWP_NOSIZE




End Sub

'最后，通过调用该子程序设置你想要放置的窗体。例如，你想将窗体frmMyForm放在最前面，代码如下：



Private Sub Form_Load()
SetFormTopmost frmMyForm
End Sub

为了您的安全，请只打开来源可靠的网址

打开网站    取消

来自: http://hi.baidu.com/shgedu/blog/item/fc807627aa0e140b908f9d1f.html