说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
VB调用API函数使窗口保持在最上层
岳阳市鹰山石油化工总厂
周四阳
---- 我们看到有的应用程序不管窗口是否活动都使窗口保持在最上层,常见的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代码中。
.NET开发者必备的工具箱 热情不减!七款Swift应用开源项目推荐 如何给苹果提交Bug或功能需求? 深入钻研Augular两年 谈谈其究竟适用于哪些场合 唐巧:谈谈React Native DropDownList 问题 crystal report 如何动态显示图片? 编译时提示包不存在怎么办? ADO.NET的连接字符串能不能用相对路径的??? redhat8 下php安装问题 快救救我,几天都不能解决的问题。急死我了 连接ORACLE问题 动态库DLL高手请进!! 关于OUTLOOK的问题`~~~急死了 英国的权利法案是宪法吗? 玉米什么时候追多肽尿素,是不是要比普通尿素早?急 作物追肥用普通尿素和多肽尿素的持效期各有多长时间? 什么是多肽尿素 天然气尿素有什么特点 多肽尿素是什么 谁能告诉我…矿泉水、矿物质水是一样的吗? 重为10kg的西瓜,其重量的90%是水分,将西瓜放 某种西瓜的含水量可达到102%. 国际财经一周大事回顾:第四次中欧经贸国务院常务会议部署推进公司注册资本登格鲁吉亚总统选举开始投票印度火车站炸弹爆炸造成一死一伤美国纽约发生持刀杀人案5人丧生 死者信息快车文化短波向村委会成员讲解中央农村工作会议主要美特种部队一架“黑鹰”直升机硬着陆致偷配朋友家钥匙 入室盗窃进牢房狙杀异界星魂逆宇失落的记忆之宿命之剑校花是九尾狐天宫传芙蓉古村旅游武林广场旅游硇洲岛旅游莱阳市博物馆旅游万春园旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘