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

VB如何设定 MsgBox 在若干时间之后若无回应則自动关闭?

HTML文档下载 WORD文档下载 PDF文档下载
VB如何设定 MsgBox 在若干时间之后若无回应則自动关闭?


在我们的印象中,VB 所提供的 MsgBox 是一个强制回应的窗口,您一定要按了其中的某一个 CommandButton 之后,它才会关闭!但是在某些软件中,我们会看到,明明是使用系統的 MsgBox,可是您如果不理它,几秒钟之后,它就自行关闭了!別人是如何做到的呢?


只要使用系統的 MsgBox 再加一个 Timer 就可以控制了!

我们都知道 MsgBox 可以设定成很多不同的样子,可以有很多不同的显示,不同的按鈕,其中控制按鈕的部份,可以设定的常数如下:

常数 值 說明
vbOKOnly 0 只显示 OK 按鈕。
VbOKCancel 1 显示 OK 及 Cancel 按鈕。
VbAbortRetryIgnore 2 显示 Abort、 Retry 及 Ignore 按鈕。
VbYesNoCancel 3 显示 Yes、No 及 Cancel 按鈕。
VbYesNo 4 显示 Yes 及 No 按鈕。
VbRetryCancel 5 显示 Retry 及 Cancel 按鈕。

为什么要特別提到 MsgBox 的常数呢?因为下面我们要告訴您的方法,还是有一点点限制的!当您设定的常数是 VbAbortRetryIgnore 或 VbYesNo 时,下面的方法也是沒用的!

'在表单的声明区中加入以下的声明

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long

Private Const WM_CLOSE = &H10
Private Const MsgTitle As String = "Test Message"
'在表单中加入一个 CommandButton 及一个 Timer 控制項,加入以下程序代码:

Private Sub Command1_Click()
Dim nRet As Long
Timer1.Interval = 3000
Timer1.Enabled = True
nRet = MsgBox("若您不回应的話,3 秒后此 MsgBox 会自动关闭", 64, MsgTitle)
Timer1.Enabled = False
End Sub

Private Sub Timer1_Timer()
Dim hWnd As Long
hWnd = FindWindow(vbNullString, MsgTitle)
Call SendMessage(hWnd, WM_CLOSE, 0, ByVal 0&)
End Sub
好了,很简单吧!您运行程序时,当 MsgBox 出现 3 秒之后,就会自动关闭了!
注意:此方法的限制說明:

1、当常数设定为 VbAbortRetryIgnore 或 VbYesNo 时,无效!
2、在 Design Time 时,无效,必須 Make EXE 之后才有效!


Eclipse 4.3 正式版发布 代号Kepler 为兴趣而生 七大编程挑战项目,你敢来吗? iOS 7辅助功能:左右摇头控制iOS设备 挑战传统关系型数据库:Facebook图形数据库TAO揭秘 揭秘“棱镜计划”幕后的技术 你更新了吗?Visual Studio 2013 Preview和.NET 4.5.1同时发布 你主要使用什么编程语言? 跨平台游戏开发工具App Game Kit或将新增更多强悍功能 移动应用推广的那些事儿:应用发现篇 DDoS攻击也能成为一种云计算服务 Netflix开源Hadoop集群调度工具:日处理近万作业、上千TB数据 传谷歌正开发自己的视频游戏主机和智能手表 AMD APU战略转型:全民四核,发力“云+端” 富士康自主研发智能手表 惹苹果发来订单 开发者眼中的iOS 7:重设计过程没想象中那么糟 游戏引擎Unity宣布免费支持Windows Phone 8及Xbox One 蝉游记王益善专访:7人小团队实现App 30万下载量 去除IE 10广告的两种方法 直接拿来用!最火前端开源项目(二) 工作变得简单又高效 试试这八个WebApp 移动周报:生于微信,疯狂猜图的推广经 DataTorrent 将数据分析速度从“实时”提升至“现在时” 华为FusionCube开启全球规模商用 黑暗架构:以最少时间完成系统升级并获客户认可的开发之道 Hadoop Summit 2013见闻:创业与Hadoop 2.0不可阻挡 Facebook的清洁能源改革——革命尚未成功,仍需努力 YARN或将成为Hadoop新发力点 主流编程语言属性一览(多图) 粉碎硬件复杂论:开发者不懂硬件运行的方式怎么可以?! 最新版Chrome OS加入Word和Excel编辑功能 直指微软 传诺基亚将购诺西全部股份,疑为出售手机业务做准备? 数据窗口鼠标焦点为什么会遗失? 怎么用xp安装盘升级两千或酒吧下的wmp? 怎样得知ListBox中已经有多少项内容了? 看看大家关于微软认证的看法(只能给77,全给了) OFFICE XP以及金山词霸的漂亮菜单如何实现的??有源代码可以参考吗?? 谁能说一下"快手"的程序是怎么工作的啊 这个问题我都问了三遍了,还是没人帮忙回答一下? 这样怎么能不行了?怪了. ~散分哦~,哈~ 可怜的准初级程序员(水平的没过,竟然拿了个资历格的) 各位兄弟请了!一个远程接入问题邀请教各位~! 这个问题好象不难 如何在WIN NT4中安装、使用IIS4????? no pains,no gains. work for the beautiful girl here and for our beautiful life 各位大侠: 我是新手,有人能给我讲讲xmlspy吗?? win.ini与SYSTEM.INI的区别? Oracle 的产品真的很烂吗?参与者都有分! 现需开发一套对多个数据库(不是一个数据库中的多个表)进行操作的程序,使用BDE,请大家提建议 CPen的问题! 各位请教:我要通过电话线做多路远程接入但我不想用路由器 请问,使用ado控件的程序,考到其他机器上,除了数据库和应用程序之外,还需要拷贝什么文件? 部分技术超过OFFICE 国产软件挑战微软 关于子窗口 请教:uninstall onflow.exe和wcmdmgr.exe是什么软件? DataSet如何定位记录. lius_lzc(小刘)你好。请来这 高程成绩 不是高手不要进来!!!!!!!!!!!!! 那位大侠能说一下快手的原理啊,有源码最好???????????????? 各位有什么网站可在线看片或下载东西,网速要非常快,如果有请与大家分享,如果没有请勿进,免得大家试半天的网址,谢谢合作 实模式和保护模式的区别? 一个只问小湖的问题 ASP 中的 Response.End 在JSP中怎么写??? 有关多媒体数据库的问题 笨鱼笨鱼,好象你的故事大家都知道了,贴张相片出来给大家看看,大家说好不好啊?? 请教关于第三方控件的问题,谢谢 软件工程师们,你们开发软件的时候听什么音乐呀? 各位大侠,请帮助一下初学者 CPen的问题!!!!!!! 我在泡脚呢,给大家发分,打听一下你们泡脚的时候都干什么? 关于新的论坛数据的提问 在Delphi如何存取SQLServer DataBase表里的图像记录?(100分) 怎样循环更改窗口图标? 请问,那位能帮忙给个Email地址和url地址的正则表达式。急用,在下不胜感谢! 各位网络高手请进! 关于服务端用自己(socket)的程序,客户端用IE,怎样把客户端的数据信息传给服务端? 共享锁,排他锁有什么不同?· 请问在D3D8.0里可否加汉字?要注意什么?多谢! 请问有没有这样一种类似容器的东东,它其中的元素可以是异构类型,比如可以同时放类A,类B的对象 呵呵。前几天狂问问题狂送分,现在分快没了。 我得计算机怎么播放rm格式有问题啦!大侠们给个招吧! 如何在ctree view 中改变tree 的风格? 瑞士军刀牌子的表是什么牌子的刚从美国回来 在那里买了个表请问这是什么牌子的 和瑞士军刀一个牌子的 表的背后也有一个瑞士军刀的图案 标志差不多是一个正方形里面一个十字 标志下 硅酸盐水泥的颜色受哪些因素的影响 铝矾土的用途是什么? 瑞士军刀的刀的材质是什么? 什么是弹性?什么是塑性?哪些东西具有弹性?哪些又具有塑性?请举例说明. 谁知道2007年现行的复合硅酸盐水泥标准是哪个? 各种继电器的表示符号(具体的)例如 HWJ表示合闸继电器,TWJ表示跳闸继电器……等等!越多越具体越好! 什么是材料的弹性和塑性 高铝砖就是氧化铝空心球砖吗?谢谢 固态继电器在图纸上用什么符号表示 某些材料虽然在受力初期表现为弹性,达到一定程度后表现出塑性特征,这类材料称塑性材料. 这句话是对某些材料虽然在受力初期表现为弹性,达到一定程度后表现出塑性特征,这类材料称塑性 氧化铝空心球砖体积尺一般是多少 1.熔断器、刀开关、热继电器、接触器、自动空气开关的作用及电气符号 硫铝酸盐水泥用途硫铝酸盐水泥在哪些地方用.什么类型的 厂要用?在 成都有 那些厂要 用硫铝酸盐水泥?具体每年能用多 T12钢的热处理将T12钢试样分别加热780℃和920℃并经足够时间保温后淬火至室温,试问两者中哪一个的Ms点高?残余奥氏体量多?马氏体片粗大?硬度低?出现显微裂纹倾向大? 两个S挂钩样子的是什么电气符号,有人说是热继电器,但是查了热继电器符号,不是啊 不好意思,我是在纸质图上看的,没有电子版图,再问下,接线图和原理图中热继电器的表示方法一样吗?我是纯 请问高铁硫铝酸盐水泥是不是普通硅酸盐水泥?区别在哪? 硅酸盐水泥是什么? Q345钢如何提高低温冲击韧性 弹性与塑性有什么区别? 硅酸盐水泥的主要特性有哪些? GB175-1999硅酸盐水泥中175是什么意思 VIKING材料淬火后硬度正常,按需求硬度回火,但回火2次和回火3次的硬度不一样,回火次数多硬度反而低? 矿渣硅酸盐水泥的特性有哪些? 通用硅酸盐水泥的特点、适用范围 请问聚丙烯pp是弹性还是塑性材料? 道路用硅酸盐水泥和普通硅酸盐水泥相比,有哪些特点 硅酸盐水泥熟料的矿物中决定水泥强度的主要矿物是____________和____________. cr12淬火后不回火能用吗 氧化铝和电解铝分别有什么用途,RT GB50235-97中压力试验的章节中有一句话:脆性材料严禁使用气体进行压力试验.请问脆性材料有哪些? 硅酸盐水泥和普通硅酸盐水泥 用途区别请问2者是否存在巨大区别,在用途上有什么差异,另外二者是否可以互相替代,那种成本更高?更适合非洲使用!是这样的,外商要采购硅酸盐水泥,由于以前 复合硅酸盐水泥与普通硅酸盐水泥怎么区别 材料脆性与结构脆性的区别. 硅酸盐水泥和普通硅酸盐水泥有何区别?通用水泥有六种,分别是硅酸盐水泥、普通硅酸盐水泥、矿渣硅酸盐水泥、火山灰硅酸盐水泥、粉煤灰硅酸盐水泥、复合硅酸盐水泥.我查看了《通用硅 硅酸盐水泥好还是复合硅酸盐水泥好?还有各种水泥的用水量有没有要求及范围? 塑性材料和脆性材料在拉伸时各有什么特点 普通硅酸盐水泥与硅酸盐水泥的区别? 复合硅酸盐水泥游离氧化钙控制在什么范围内 水泥的水化热是什么?它有些什么影响? 硅酸盐水泥P.I属于耐高温水泥吗?它的耐高温程度是多少? 塑性材料有哪些 通用硅酸盐水泥的水化和硬化有什么特点 硅酸盐水泥和普通水泥有什么区别? 塑性 是什么意思 硅酸盐水泥的二次水化反应对水泥产生了什么影响?产生的影响好不好?具体怎么影响的?到底水泥中的氢氧化钙对水泥好不好? O、P、T、 H 建筑材料具有良好的塑性和韧性对钢结构的设计和使用具有什么意义 这把瑞士军刀是真的吗 32.5普通硅酸盐水泥,32.5代表什么? 为什么矿渣硅酸盐水泥抗腐蚀性能好如题最好从熟料矿物组成上分析为什么矿渣硅酸盐水泥的抗腐蚀性能比起普通硅酸盐水泥来说要好一些 3.有哪些因素影响硅酸盐水泥的水化速度 为什么 8 Cr12MoV真空淬火HRC56-58,做出来正常是铜色,最近两次回火硬度高了,要到520度回火,表面黑了有影响吗? 铝矾土和铝土矿的区别,和他们的用处. 普通硅酸盐水泥325以及矿渣硅酸盐水泥325每公斤水化热是多少 普通硅酸盐水泥有什么特性? 铝矾土具体都有哪些用途啊?要具体的,有哪些厂家采购铝矾土,厂家采购之后具体都有那些产品,希望知道的大侠给详细解答一下啊!不胜感激! Q345钢如何提高低温冲击韧性 硅酸盐水泥问题硅酸盐水泥为什么干的越慢越结实,内部有何化学反应,它的性质是什么? 铝矾土的用途
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn