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

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 之后才有效!


Jamo创始人揭底AWS,棱镜阴影下的云行业态势 成本、创新、可靠:游戏公司FunPlus选择AWS的三大理由 全透明、可折叠,平板电脑概念机是这样的 插件大集合!开源包管理器Alcatraz迎来Xcode 5更新 Q语言:新型的数据定义语言 非响应式手机网站页面的优化 高薪必备:Hadoop求职者的6大攻略 微软或将于四月发布“返璞归真”的Windows 8.1 Update 1 《近匠》第14期:LiveCode——全民开发工具 美团梁堰波:用SQL-on-Hadoop构建互联网数据仓库与商务智能系统 程序员游戏Style:亚特兰大极客使用机器学习玩转Flappy Bird Gleasy CTO薛珂:成立3年,企业用户2万+,移动办公蕴藏较大发展机遇 Unity Awards展区“点亮”Unity亚洲开发者大会 DevBox:最实用的移动开发辅助工具包 【技术博客推荐】创客程序员设计实现最小物联网系统 MySQL还是NoSQL:开源盛世下的数据库该如何选择 利用Hadoop Streaming处理二进制格式文件 如果没有强大的API,那么还是与OpenStack兼容吧 企业社交工具为何走向衰退? 封闭还是开放?雅虎禁止用户使用Facebook、谷歌ID登录和使用其服务 【OSTC讲师专访】罗聪翼:付出和回报在开源世界成正比 近匠:“词Ci”——全栈“女神”如何诠释倾城之美 国内首届引擎黑客松Cocos2d-x Hackathon即将开赛! 抛弃CloudStack,GoDaddy加入OpenStack PaaS平台之争:Cloud Foundry是赢家吗? 投资超140亿美元,涨幅达30%,数据密集型应用将占领第三平台 汽车开放平台:看看通用汽车是怎么做API的 Gamebase将推全新跨平台3D游戏引擎Reach3dx 借助API Telegram能否成为第二个WhatsApp 机器学习也感性:90后软妹纸的编程之路 为安防与视频监控而生 西数紫盘首发 在自定义的用户控件上公开引用windows控件的事件怎么做啊!!谢谢 2003中为什么IDE设备只能用PIO模式? 在FAQ里见到这样一句,不明白什么意思 怎么我用vc 的 odbc 做数据库时,工程名为try ,在工程工作区的“class view”面板里没有tryview类的? 不能使用xmldocfile() 文档对象的问题 关于键盘纪录,高手 如何使用IPAddress控件? 初学者问:怎么用UpdateAllViews()? 无法创建asp.net应用程序 大家帮帮我吧,我都快崩溃了 中文乱码的问题 !!谁在VMWare 3.2里装过RedHat 9.0和RedFlag 3.0,请看看这些问题(100分)!! 如何使在输入框选中的文字在提交后仍然显示在输入框中? 无法创建asp.net应用程序 高手在上,请问怎么样在win2k中实现关闭程序和绘图[内详] 初学者问:如何在listview中查找其中一行? 怎样在调试窗口中看到变量值? 郁闷中,狂散分。。。。。。 DCOM怎么使用? 想做一个地区门户一般要包含那些栏目?? 线程 怎么能让DELPHI编出来的程序最小化以后进入到系统托盘? C++问题,请进来帮忙! help me ~!!! 以下行为究竟是关闭端口还是使用端口 callzjy(【剑客西门吹雪原来是仁者帮帮主...】) 怎么翻了这么多老帖子出来了??? 求原代码下载 大家都在干什么? 有什么东东大家可以一起研究研究? 初学者问:如何在listview中查找其中一行? fortran语言的高手请进,分数不够再加 我是一个刚刚步入JAVA世界的小鸟 恳请得到大家的帮助 。。 ActiveForm发布问题。 怎么能让DELPHI编出的程序像QQ一样可以自动隐藏? 一个关于dll的例子,运行不了,请帮忙看一下。 程序打包 BCB产生调试符号的问题 为什么要4张1寸的,1张2寸的照片?要这么多干什么/ 请问怎么样用C#遍厉注册表? 请问大家如何做一个实时的屏幕抓取的程序啊,是实时 各位大哥大姐帮帮小弟,先谢谢了!!! 用Delphi开发的WebService能否在NT4的IIS上面运行? 键盘纪录问题 一个窗体有多个按钮,怎样让一个按钮成为默认按钮? 关于MYSQL_CONNECT(),有点疑问 ASP.net好像也不能替代JavaScript吧? 网络游戏外挂之我所见(7) 键盘纪录问题 键盘记录问题 我为谁哭泣.. sql小问题 程序求和要求:将table表中的数字字段ton所有查询值进行求和.这段VB代码怎么写啊?select sum(ton) from table where 条件以上查询中,还可以加入查询其它字段并能将其值依次输出吗?我想达到:将表table 参加翻译成 英文 要所有的 英语翻译原句是 死亡如影相随 求和?(要有过程和结果)∑[i/(2的i次方)]=?(i从1到无穷) 我要参加【翻译成英文】 如影相随是不是成语?大师们帮帮忙! 第一个字是映的成语有什么`?迅速`! 把“正在参加”翻译成英文 在雨中 看图作文.一共有四副图.要求::①仔细观察下面的图画,并根据这三幅图的内容,想象第二幅图的内容.(不必画出来)②把看到的和想到的内容连起来,围绕中心,写一篇450字以上的记 求和.要手写详细过程 万一他不参加 你还参加么?怎么翻译成英文 图上画了些什么?小朋友正在干什么?他是什么表情 请用映字组个成语,急用!请用映字组个成语. Could you___the baby laugh?--Could you____the baby laugh?--Certainly.It's easy.A.ask B.am C.are D.were 一天吃几根香蕉最好? can't 现在那种红外感应开关是只要感应范围里有人 就会一直亮 还是会延时亮十几秒灭了再亮啊? 一天吃几根香蕉最合适? 小学人教版五上课堂作业本《落花生》最后一题(告诉我题目,我本子忘带了. 不延时的红外感应或者光电开关有吗?我需要一种不延时的红外感应开关或者光电开关,要求当手放入探测范围时,开关立即打开或者关闭,请问是否存在这种开关,价格约是多少? 一天最多吃几根香蕉? 本木倒致是什么意思 Don't leave, i can't spare you the world has. 是什么意思 黄河最早固定下来的河道是 到底是本木倒置还是本末倒置啊? 一天吃几根香蕉比较合适啊?吃两三根会不会太多啊? 为什么黄河的河道是呈几字型的啊?途中遇到了哪几座大山啊?水是顺着地势低的地方流的.那朋友你能不能帮我分析一下黄河途中所经的各大地型.希望越详细越好,别说中国西高东低.这太概括. 本木倒置用英语怎么说 香蕉可以提高记忆力吗?一天吃几根香蕉最好了? 黄河长江河道是天然还是人工的? 函数的导数表达式包含函数本身⋯ y'=-y^2-1 只知道自变量x=0时y=1 求y表达式 一天吃几根香蕉为极限?香蕉促消化我是知道的,但吃了一根后,由于它特别新鲜我就又吃2根,但我不敢吃多,怕吃多了对身体有害.到现在还想再吃一根呢.听他们说吃多了会拉稀呀?一天吃几根是 谁知道黄河河道内的滩涂地属于哪里?,我们那儿建旅游区地都被占了,五六十岁的老人们找不到工作又闲不下来所以想在河道内开点荒种点菜,每亩地每年1000实在是不够开销啊,可是原本属于我 baby、we can fly fly away .. 艾滋病是由什么引起的 煤灰砖还是水泥砖用于建房好 2*0.3m 平方线材导体多少根 艾滋病是什么引起的 已知砖的密度为1.5*10^3kg/m^3,用长25cm,宽12cm,厚6cm的砖块砌房子的墙,若房子外墙的面积为720m^2,墙的厚度为25cm,则修建此房约需砖___块,如果汽车一次能装载4t,则最少要拉___次才能将 本未倒置错在哪个字? 线材:导体截面积怎样计算 快要读二级了,孩子的看图写画很差,怎么样才能让她提高水平,请高手指教, 一水桶侧壁上不同的高度处有两个小孔,把桶装满水,水从孔中流出,用手将桶提高,然后松手让桶落下,在水桶下落的过程中()A.水仍然以原速度流出B.水仍然从孔中流出,但流速变快.C.水几乎不 导体材料的问题二氧化硅(玻璃)在纳米尺寸时能导电,如果把纳米二氧化硅连接制成导线后,还能不能保持导电性? 1.南方古猿、能人、直立人、智人这四个人类可进化的阶段中那一阶段人类最先开始直立行走?2.克隆羊多利具有生殖能力吗?骡子具有生殖能力吗? 如图,一个盛水的容器底部有一小孔.静止时用手指堵住小孔不让它漏水,假设容器在下述几种运动过程中始终保持平动,且忽略空气阻力,则(  ) A.容器自由下落时,小孔向下漏水B.将容 英语翻译在纽约一座漂亮的房子里,凯瑟琳斯洛珀跟父亲和姨妈一起过着平静的生活.父亲去世后,她将会继承一大笔钱.一天,凯瑟琳遇到一位英俊的小伙子,名叫莫里斯汤森.不久,他便称自己爱 进化的阶段 特征 古猿 南方猿 能人 直立人 智人 古猿 特征:人类和类人猿祖先,开始向不同方向进化 什么是2叉树 什么材料能作为导体为什么?那个电线电缆采用的是铜?而非铝或是别的导体? 看图写画我是用吸管和废衣架做桥的弯曲的一段,用泡沫做他的平面,下面奠了纸板,同时牙签作为护栏,废弃的饰品中的小花小草做绿化,体现出一种环保的概念,用桥来显示出宁波是我们美好的 2叉树是什么? 翻译 Can the ostrich fly? 万丈盐桥怎么样 什么是2叉树的度? 英语翻译这次考试对他来说太难了 你怎么样?英语振作起来,我确信我们能取得高分.(get good marks) 爱滋病的病原体是什么?它的结构由哪两部分组成?请详细说明原因.十万火急! 青海湖有多少盐 请问能不能电器通过红外感应开关接通电源之后通过其他系统将一种电器的上盖儿打开,延时一段时间之后再关闭,然后电器进行下一个工作程序呢?用电磁阀或是电磁开关等能解决这个问题吗 我去抽签了,签上说如影随天.我抽的是婚姻签, 印度今日追梦火星 否认与中国竞争白宫微博有“水军”专为奥巴马“解围”英国政府禁止内阁会议及其它敏感部门使斯诺登求美“宽大处理”被拒 在俄与德朝鲜证实海军官兵殉职美机场枪案嫌犯为“独狼”中国小伙MBA毕业 波士顿街头卖烤肉全国反“四风”开整7大问题 叫停公款武康女店主发现儿子走丢忘报警16岁少年带着理发用剪刀抢劫不成去自90后女子看老公送很多红心给别人醋意嘉兴男子家因排污管堵塞被污水淹 9户女子给骗子汇钱逼停出租车 的哥及时中杭州国际人才交流与合作大会明天开幕 多项违纪 孙杨被处停赛、停训、暂停一浙江杭州等地连续雾霾 “最美马拉松”“海龟”与“土鳖”结合 浙江发展关键金华房地产投资增速连续七个月居全省首张高丽在上海浙江调研:东部地区要带头杭州欲从钱塘江引风进城吹走灰霾“国家记忆”美国档案馆二战缅印战场影2016苏州秋季旅游推介会举行从前有个山,水中一轮月海外置业:找最专业的人做最专业的事京津公交枢纽修进卓达京东南项目群体育综艺引领全民健身潮WTCF2016香山旅游峰会将在重庆东方新天地中秋赏“月”之佳地晴日暖 月夜凉远洋天著 办玛莎拉蒂试驾活动一个是海水 一个是火焰北京中秋增开27趟列车妫水之滨 世园有约北京新房市场:不停突破想象甘孜——户外天堂,情歌故乡丰科建·泽信公馆 本月底开盘抢房 谁的胜利?谁的恐慌?林宥嘉闷骚的人闷到后来会爆发如何参与北京世园会?月满中秋 情圆小镇全黑哥特风 很酷很喜欢布拉旅行获数千万A+轮融资
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘