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

VB如何让窗口始终在最前面?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何让窗口始终在最前面?


调用一个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放在最前面,代码如下:

SetFormTopmost frmMyForm.


请注意,在VB的API查看器中将SWP_NOZORDER设成&H4,正确值就为&H8。要了解更多此函数的信息,可访问下面的网址:http://www.microsoft.com/msdn/sdk/platforms/doc/sdk/win32/func/src/f84_2.htm

查看SetWindowPos的详细用法

Delphi在网络数据库中的应用 Delphi中多库关联查询 Delphi中建表 Delphi中数据文件路径的管理 ODBC中的同步与异步执行模式-Delphi资料 SQL编程常见问题-Delphi资料 第11章 中级SQL-Delphi资料 第10章 SQL基础-Delphi资料 SQL语句中的删除和改变-Delphi资料 TDataLink类别的说明-Delphi资料 TDBGrid控件中对多个记录的处理-Delphi资料 安装BDE需要的东东-Delphi资料 保存DBGrid中栏的字段名及尺寸-Delphi资料 动态生成定义数据库-Delphi资料 动态组成SQL速句-Delphi资料 多层C/S的客户端调用服务器端的方法-Delphi资料 关于dephi数据库的动态建立-Delphi资料 基 于WEB 的 数 据 库 查 询-Delphi资料 计算数据库某字段的值-Delphi资料 计算字段值-Delphi资料 建立应用软件注册安全机制-Delphi资料 建立自己的数据字典库-Delphi资料 将BLOB字段的BMP图显示出来-Delphi资料 将图像放入数据库中-Delphi资料 解 决sybase 用 户 数 据 库 不 能 进 入 故 障 的 一 种 方 法-Delphi资 解决sybase用户数据库不能进入故障的一种方法-Delphi资料 解决一个DBF表时的"Index not found.."错误-Delphi资料 精简Delphi数据库应用系统 精简Delphi数据库应用系统-定制BDE驱动程序 精简数据库应用系统-Delphi资料 开 发 基 于ORACLE7 数 据 库 的 管 理 信 息 系 统-Delphi资料 企业中一般如何写数据字典阿?急,在线等待 文件上传 如何将txt文件导入mdb文件之中,在线等,解决问题立即给分。 在菜单中打开MDI窗口,但是每一次点击,就出现一个新窗口,如何只出现一个? 大侠,救命啊,这个编译错误,折磨我好几天了,如何解决啊?????? 求C语言程序:从键盘上输入若干个证书,去掉重复的,将剩余数的前n个输出显示 新手发问(有关C#和MySQL数据库)! 试用期的前几天会被安排做什么?(对于一个没有一点工作经验的大学生) 如何合并两个字符串?急!!! 请问哪有jive 的中文版原代码下载啊?? jdon的压缩包不好使!!谢谢 关于静态方法! tomcat 406 错误 如何遍历任务栏上已经打开的程序呢? 动态添加commandbutton后如何写其clicked()的事情 今天晚上可能要時間長了,那個算法的流程你看看,服務器的負載太大了,不斷的連接,數據碎片太多了 把dataSet里的多个表插入数据库时,怎么把这多个表作为一个事务? tomcat报出406号错误 CDONTS.NewMail发送邮件? 继承的问题 我的问题 C++ Primer和C++ Programming Language 哪本好一些呢? 哪位朋友可以给一个PHP4导航栏的代码(1 2 3 4 5 6 这样的) redhat9.0是否支持ich5 在VS2002中可以用的设置星期格式的代码,在VS2003下不能用,为什么? 请教一个关于时间的SQL语句! 关于多级菜单问题 我的电脑里的chm文档打不开了,求救~~~~~~~~~~~! 购买QQ,共1000分(1) 大家帮忙分析一下 请教,关于“name not Unique in this context”的错误。50分,急!!!! 请教一个小问题 显示属性打不开? 购买QQ,共1000分(2) 很简单的问题,最好详细写listput 这个组件怎么用? 80分够不?在线等待中。 改好了告訴我一下,等0點去機房,這邊的認證服務器不動了,VMS系統我不懂 MIDAS 高手请进,这个问题在大富翁上出了600分,也没人拿到,难道真的没人明白吗? 女儿三岁生日,酬宾 关于PHP GD库的问题. jsp主要做什么的?菜鸟问题 为什么会重复显示两次? 怎样恢复类! 有没有人可以帮我的,55 如何把DBF文件导入到SQL2000里? 我想将一个字符串(用户密码)加密,有没有好的算法,请大家指教 熟悉化境编程界HTTP上传程序的请进! 我想将一个字符串(用户密码)加密,有没有好的算法,请大家指教 局域网搜索时,怎样连上要搜索的机子 如何分辨用户是通过在URL栏输入地址,还是点击链接来到本站网页。 好了,我把数据库清理一下,你继续改那几个参数,LOG文件太大先不要管 问题! “多步 OLE DB 操作产生错误。。。”怎么解决?? 急!!! sharpener怎么读 Sally is like her mother 改为同义句 C#中dictionary.single()是什么意思?补充single定义Dictionary usedIconList = new Dictionary(); SrcMajIconId_t srcMajIconId = usedIconList.Single(x => x.Value == iconId).Key; return allIconSets[srcMajIconId];当中usediconlist sharpener的发音最好有音标 deadline什么意思 rolling deadline pasacl语言中的single是什么意思 It is our specialty.这是我们的特产 这是我们的特色菜 翻译哪句对 Bouilli is our specialty 这里的specialty是特产还是特色菜的意思 扣扣号下面一横的字母如何设置? 给下面字母填上一笔,是他们变成另一个字母 n r u 中学生晚上爬墙出校出意外 1人背上留陕西“房姐”龚爱爱案10月31日二审格鲁吉亚总统选举前对立阵营民情【组图日本最大快递公司曝出服务丑闻 冷藏邮安倍称福岛污水泄漏得到控制 逾8成国智能手机横行 日本偷拍案件五年翻一番英国遭飓风级暴风雨袭击 交通受阻数千因监听事件遭指责 德情报部门计划加强印度连环爆炸案已致6人死亡 反对党指阿根廷执政联盟赢得议会中期选举加拿大12岁黑客攻击政府网站 只为换河南中旅开通朝鲜旅游包机二郎山景区将举办槐花节你种牙,别人掏钱!凭啥不来?河南军团再夺四冠索九领衔,黄金“四强”完美对决爱老酒更爱拍卖鉴宝粉丝破纪录德臻酒酷举行一周年庆“金袋鼠”举行红酒品鉴会“五一”后,路仕达旅行社专列分赴大西2015年04月21日北方纯干仓“开仓”啦!
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘