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

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


手游云测工具TestBird:测试走入垂直细分领域 阿里巴巴赴美IPO的种种及马云内部邮件全文 盘点EMC World 2014三大看点 2014年Q1:智能手机总销量下滑,WP同比反增119% 着眼无人驾驶技术 英特尔投资日本ZMP公司 移动云服务UCloud快速扩张 成立北京分公司 精准推送 个推推出2.0产品“Smart Push” 从张小龙的七大价值观说开去 2014高德LBS应用大赛正式启动 助力打造生态圈 专访永洪科技CEO何春涛:管理者的炼成及国内大数据公司的挑战 R语言如何发展?商业支持或许可行 专访InMobi CEO Naveen Tewari:Banner广告已经OUT 效力苹果18年的资深高管Katie Cotton将退休 主打“全、新、独、准”,华为推出游戏中心平台 阿里云计算出海挑战亚马逊 首站香港及东南亚 TIOBE 2014年5月编程语言排行榜:Adobe ActionScript挤进Top20 秒杀iPad Mini?微软或将下月发布Surface Mini 大道手游:详解应用内购买的定价趋势与技巧 与英特尔软硬合作,Cloudera将在中国建立业务机构 准备迎接第一个量子计算软件公司吧! 搜狗搜索发布新LOGO和移动App 正全面入驻腾讯各条产品线 做好扁平化设计-视觉篇 关于敏捷研发的跨界反思 《近匠》雨血,一个“独立游戏人”的反思 一周消息树: 阿里巴巴赴美IPO的种种及马云内部邮件全文 一周热点:准备迎接第一个量子计算软件公司吧! 【云先锋】多备份:云端数据物流平台为企业提供云备份服务 不容错过!开发者必备的十二大开发资源 为Canvas而生:开源2D HTML5渲染引擎CutJS 第九届中国互联网创业者大会在京举办 腾讯发布“三驾马车”组合拳产品 入手Beats,苹果史上最大手笔收购为哪般? 我所遇见的招聘题。。。555 怎么回事~? 参天无眼!!我所遇见的招聘题呀,你。。。55555555555 哪位知道象windows优化大师那样的平面按钮控件。 c+vc+vb+java+delphi+>>>>=工作? 怎么得分呀? dos下的Tcp/Ip协议应用 白痴,笨蛋,神经病之差异(转贴) 测试(大家都不许进来,只是测试,注意,只是测试) 请大家说一下哪个代理注册的网站收费比较底,而且服务又比较好的,谢谢! 在asp中如何实现记录集与编辑框、table表等的数据绑定,给个思路也行。着急呀 [-------大虾帮忙啊--------] bcb中缺少的帮助文件能否再添加? 在哪里可以找到关于sybase的资料 哪位仁兄知道如何打包delphi开发的sybase客户程序,最高78分奉送 一个关于OnDraw()的重绘问题,急急急急急急急! 新手的问题! dll调问题???VB调用VC++的DLL需要返回值时,DLL如何定义?VB调用函数如何定义??? 各位大虾 谁能提供视频采集卡的原代码,必须要CB的,300分 在堆(heap)上与在栈(stack)上建立的对象有什么区别? 一个问题,在做元件时怎样建立TdateTimePicker 给大家看看我弟弟给我的信 求助,标题栏为“The police are investigating the robbery-"的是什么程序? 谁能将.CPP文件的代码翻译成DELPHI语言?? 有关于FLASH5.0的问题!!!请各位大吓指点! 一个问题,怎样在PC:PageControl上增加TabSheet1,TabSheet1,TabSheet1…. 标题栏为“The police are investigating the robbery-"的是什么程序? 一个弱弱的问题 一个问题,建立的 FB: TBevel没显示,好象根本没建立一样。 如何在 MDI CLIENT 中添加快捷方式??谢谢!! 55分,如何映射控件中子控件的消息? 如何选择书 关于文献数据库的一个问题-如何把一个字段和一个文件关联起来? 所有喜欢到水园来逛逛,但是从不回帖子或很少回帖子的人进来签到~~~~ 谁来救救我呀,我好惨呀。。。。 如何通过VC编程,随时关闭网络端口 诚寻对嵌入式linux感兴趣的网友 今天临走前,再灌一桶酒! 急!!!哪里可以下载到制作工具栏时用到的位图呀? 太原的在哪能买到程序员杂志 我的qq:10120129 谁找我??? xml 高手帮帮我,为什么我下面的文件,在IE5.0中什么也没有?? 请问高手:在uml类图中如何用关系表示一个实体类和一个接口间的关系。 Cathy进来~~ 请问高手们一个Delphi的一个应该是比较底层的东西。 mimi大酒店正式開業﹗先進來的有分啊﹗ 哪个高手完整地讲讲OpenWith菜单项的调用方法和函数等 关于非模态对话框中使用UpdateData(FALSE)函数的问题,朋友,帮个忙好吗? “记事本”小问题,大逻辑.大虾们,照顾照顾小弟呗. Linux下配置ISDN--期待所有的Linux高手到来?? 1、 找出不同的数2 3 5 8 12 16 23 302 4 8 12 16 32 不同在哪里啊?2、 643 111 421269 ( ) 4917 4 68 4 86 5 ()回答得都不错,只是第二题的第一小题,大家没有说清楚! 观察下列数,-1,-1/3,1/4,-1/5,1/6,…….依照这样的规律,第2013个数是_____,如果这一列数无限排列下去,越来越接近_______. 45分等于多少时?大神们帮帮忙 1,2,5,( ) 有一组数:2,-3,2,-3,2,-3,2,-3,...,根据这个规律,那么第2013个数是?初中数学问题 26小时等于多少分钟大神们帮帮忙 7 8 14 16 21 24什么32 找规律:1,-1/2,1/3,-1/4,1/5,-1/6,.,猜想第2 010个数是 多少,如果这一列数无限排列下去,与什么 分别等于多少 三年级找规律(8,6).(24,2).(16,3).(12,) 有一列数为:—1,1/2,—1/3,1/4,1/5,1/6,…,找规律得到第2013个数是______. 4个分别等于多少 小学奥数网--------找规律:1/2,7/2,10,20,()(),49,98 7、31、37、82、( )、49 是什么 中国的面积相当于几个韩国?相当于几个英国?相当于几个日本?. 北纬20度,东京5度,在北纬40度,东经166度,什么方向 1、2、3、4、5、12、( )、( ) 现在基本知道可能是奇数项分一组,偶数项分一组。前面1、3、5、7…为一组规律, 1.2.4.7.11( )( )( 在北纬30度,东经5度;北纬20度,东经110度.哪个是既在东半球,又在西半球?在北纬30度,东经5度;北纬20度,东经110度。哪个是既在东半球,又在北半球? 一道小学奥数找规律题1 2 3 7 11 16 () 29 找规律填数的第2题 1、1、2、3、5_、_、_ 东经160度北纬55度左右是什么地方 东经115度北纬48度是哪. 4()16.()填啥数儿 找规律填数.求解答! 北纬34.5度东经43.58度具体位置 给出依次排列的一列数,-1,2,-4,8,-16,32,-64..这列数的第2009个数是多少 找规律填数, 北纬39度55分451秒东经116度23分504秒 这是我国那个城市的什么部位. 依次排列的一列数:-1 ,2,-4,8,-16,32,...按照规律,第n个数为? 找规律,填数字,求解答 北纬39度54分20秒,东经116度25分29秒在哪个半球,东南西北 给出依次排列的一列数2、4、8、16、32,……,1)按照依次给出的几个数的排列规律,继续写出后面的3个数;2)这个数的第2014项是几?第n项呢? 1,1,2,3,5,8,( ),21,( ),55. 北纬39度55点451秒东经116度23点504秒很具体的说是什么地方.什么北京南三环赵公口与草桥之间老师说这样还太大,最具体的是什么地方? 给出依次排列的一列数:-1,2,-4,8,-16,32,…①写出32后面的三项数②按照规律,第n个数为 找规律:15,20,12,25,9,30,( ),35,3,( ).怎么做? 例如:北京在北纬39度,东经116度;合肥在北纬32度,东经117度.算出该地点与我们的距离急 算式! 有一列数,按一定规律排成1、-2、4、-8、16、-32、……设其中 某三个相邻的数的和是-384,求这三个数各 1,4,9,20,35找规律能讲下为什么吗?有没有简单一点的方法呀? 北纬21.37度,东经110.1度是什么地方 有一列数,按一定的规律排列成:-2,4,-8,16,...,其中某三个相邻的数的和为-384,求这三个数各为多少. 找规律 4 2 2 3 6求下一位 东经110度 北纬35度在什么地方东经110度 北纬35度是什么地方? 有一列数,按一定规律排列成:-1,2,-4,8,-16,32,-64…,其中有三个相邻的和为1224,这种说法对吗?请说明理由 找规律:1,2,4,4(),8,64 A 16 B 8 C 12 D 6A 16 B 8 C 12 D 6 选一个填空 东经110北纬25是什么地方关于地理方面的 有一列数,按一定规律排列成1,-2,4 ,-8,16,-32,64……其中3个相邻数的和是-1536,这三个数是多少? 400斤等于多少升油 东经100度北纬100度是什么地方 有一列数,按一定的规律成1,-2,4,-8,16,-32,64,``````,其中某三个相邻数的和为1536,这三个数各是多少? 2吨400克等于多少克 东经96,北纬17是什么地方 有一列数,按一定的规律成-1,2,-4,8,-16,32,-64,``````,其中某三个相邻数的和为1536,这三个数各是多少? 400克等于多少千克? 西经157度 北纬21度在什么地方 观察下面一列数,根据规律填空:-1,1/2,-1/3,1/4,-1/5,1/6,···第2012个数是 400千克等于多少吨 东经20北纬60是什么地方/内海、湖泊啊 试题 用计算器探索以下按一定规律排列的一组数:1,根号2,-根号3,2,根号5,-根号6,根号7……,如果从1开始依此连续选取若干个数,使它们的和大于5,那么至少要选( )个数. 2400g等于多少斤
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn