2395人阅读
最近想做一个桌面的类似台历的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
函数的具体用法如下：
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
类型及说明
Long，欲定位的窗口
hWndInsertAfter
Long，窗口句柄。在窗口列表中，窗口hwnd会置于这个窗口句柄的后面。也可能选用下述值之一：
HWND_BOTTOM
将窗口置于窗口列表底部
将窗口置于Z序列的顶部；Z序列代表在分级结构中，窗口针对一个给定级别的窗口显示的顺序
HWND_TOPMOST
将窗口置于列表顶部，并位于任何最顶部窗口的前面
HWND_NOTOPMOST
将窗口置于列表顶部，并位于任何最顶部窗口的后面
Long，窗口新的x坐标。如hwnd是一个子窗口，则x用父窗口的客户区坐标表示
Long，窗口新的y坐标。如hwnd是一个子窗口，则y用父窗口的客户区坐标表示
Long，指定新的窗口宽度
Long，指定新的窗口高度
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 LongPublic Const HWND_TOPMOST = -1Public Const SWP_NOMOVE = &H2Public Const SWP_NOSIZE = &H1Public Const SWP_NOZORDER = &H8'将下面的子程序放到模块中Public Sub SetFormTopmost(TheForm As Form)SetWindowPos TheForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, _SWP_NOZORDER + SWP_NOMOVE + SWP_NOSIZEEnd Sub'最后，通过调用该子程序设置你想要放置的窗体。例如，你想将窗体frmMyForm放在最前面，代码如下：Private Sub Form_Load()SetFormTopmost frmMyFormEnd Sub
为了您的安全，请只打开来源可靠的网址
参考知识库
* 以上用户言论只代表其个人观点，不代表CSDN网站的观点或立场
访问：6876次
排名：千里之外> 怎么让自己的程序窗口总在最前
怎么让自己的程序窗口总在最前
hanfeizi & &
发布时间： & &
浏览：3 & &
回复：4 & &
悬赏：0.0希赛币
如何让自己的程序窗口总在最前。参考帖子：原帖使用的是VS2008，一楼的回复非常到位。现在使用C++ builder。不知道C++ builder中有没有这样方便的属性。
　　C/C++ code　　//FormStyle
Form1-&FormStyle
= fsStayOnT
hanfengbeyond & &
22:26:18 & &
& & （0）（0）引用　　C/C++ code　　: TForm(Owner)
SetWindowPos(Handle, HWND_TOPMOST, 0, 0,
0, 0, SWP_NOMOVE|SWP_NOSIZE);
hanfengbeyond & &
22:26:18 & &
& & （0）（0）引用1楼正解，2楼没有测试过。估计也行
HANFENGG & &
22:26:18 & &
& & （0）（0）引用这里写的很好。hanfeng3043 & &
22:26:18 & &
& & （0）（0）引用
本问题标题：
本问题地址：
温馨提示：本问答中心的任何言论仅代表发言者个人的观点，与希赛网立场无关。请对您的言论负责，遵守中华人民共和国有关法律、法规。如果您的言论违反希赛网问答中心的规则，将会被删除。
暂无合适的专家
&&&&&&&&&&&&&&&
希赛网 版权所有 & &&