VB调用API函数使窗口保持在最上层|中文方案文档站(提供各类方案下载,WORD文档下载,范文,案例等)

vb调用api函数使窗口保持在最上层

转自: vb编程园

---- 我们看到有的应用程序不管窗口是否活动都使窗口保持在最上层，常见的microsoft word的文件打开和编辑查找窗口就是这样。在vb开发中可以通过调用setwindowspos()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变元是窗口的句柄；x，y是窗口的左上角的坐标；cx、cy是窗口宽度和高度；hwndinsertafter变元是窗口清单中hwnd窗口前面的窗口句柄，有四个可选值：

序号可选值作用
1 hwnd_bottom 把窗口放在窗口清单的底部
2 hwnd_top 把窗口放在窗口清单的字符顺序的顶部
3 hwnd_topmost 把窗口放在窗口清单的顶部
4 hwnd_notopmost 把窗口放在窗口清单的顶部，最上层窗口之下

---- wflags变元为整型值，有八个可选值：

序号可选值作用
1 swp_drawframe 在窗口周围画一个方框
2 swp_hidewindow 隐藏窗口
3 swp_noactivate 不激活窗口
4 swp_nomove 保持窗口当前位置
5 swp_noredraw 窗口不自动重画
6 swp_nosize 保持窗口当前尺寸
7 swp_nozorder 保持窗口在窗口清单中的当前位置
8 swp_showwindow 显示窗口

---- 下面的例子程序test演示了对函数中的以上7个变元作正确的选择后，应用程序运行后窗口总可保持在最上层,程序清单如下：

option explicit
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_showwindows = &h40

private sub form_load()
dim retvalue as long
retvalue = setwindowpos(me.hwnd,
hwnd_topmost, me.currentx, _
me.currenty, 300, 300, swp_showwindows)
end sub

---- 备注：编写函数声明时，整个函数声明须在一行中写完，不可提行。一般是自动从系统中得到函数声明，方法是从vb的外接程序管理中启动“api 浏览”程序，在“api 浏览”程序中找到所需的函数声明，然后复制到vb代码中。

VB调用API函数使窗口保持在最上层

[入库：2005年8月18日] [更新：2007年3月24日]