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

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


用VB生成EXE文件后,如何在后面加上参数?这个参数怎样传给VB 用VB实现动态显示操作进度程序 用VB实现双向循环链表 用VB实现用户登录密码的修改 用VB与MS-Draw开发通用作图软件 用VB制作TopMost类型窗口 用VB制作Windows风格安装盘 用Visual Basic 6创建基于MTS的商务组件 用Visual Basic实现Windows的重启动 VB用Windows管理技术做你的应用程序 VB用程序给标识字段(ID)赋值的一种简单实现方法 VB用自己的'PROGRAM'测试自己的电脑 有 BitMap 之Menu -VB资料 运行其他程序,并等待执行完毕 -VB资料 再谈VB程序的加密 在 VB 程序中如何设定 Mouse 光标的位置? 在ActiveX DLL工程中慎用App对象-VB资料 在ActiveX控件工程中设置DataField属性-VB资料 在VB中异步执行程序 在VB编程中有效地组织和利用资源 在VB应用程序中巧用DLL 在VB应用程序中使用INI文件的一点体会 在VB中操纵OLE服务器应用程序 在VB中改变显示器的分辨率 在VB中获取和修改计算机名字 在vb中没有指针,怎样才能将数组作为参数。 在VB中如何调用C++Builder创建的DLL 在VB中设置常用的外部设备 在VB中使用枚举变量 在Visual Basic 中使用C++ 类 在WindowsNT网络中广播消息 -VB资料 各位前辈,如果在公司的试用期觉得工资低了,怎么样和公司谈好一点?谢谢! 为什么取不出id字段值! 如何讓SELECT刷新本頁時現有的數据不會消失? 请问这是怎么回事? c语言的源代码!哪里有? 如何在正在运行的窗体中实例化一个控件。 关于向文件中写入表格的问题!谢谢! 爽,两天来在VC版得分2205分,现在偶的专家分有3406了,希望明天能达到5000,这样我就有一个星星了 有人能给我详细解释一下GDI位图和DIB位图的区别吗 smilejiangjun(smile将军)请进 打印问题!! 快来啊,哥哥! 请问,怎样将.fox的文件变成.prg程序 各位前辈,如果在公司的试用期觉得工资低了,怎么样和公司谈好一点?谢谢! 在安装好的机器中提取声显卡驱动吗? 大家有没有兴趣在北京举办一次聚会,大家探讨Java技术? 数据库中的某个字段的数据中包含  ,当把该字段绑定到dropdownlist后,  就显示不出来了.? vb怎么处理导出的历史文件 用户控件问题?急、急、急??? 原文:文字接龙---喜欢玩的请接下去!(转) CInternetSession.OpenURL()打开这个网面,只能得到93字节,怎么处理??? 求救:如何低级格式化硬盘,用什么dos命令? delphi+mapx的问题,求救! 读取数据库怎么这么慢?是不是我的方法不正确? form提交数据后,另一页取值为空?200分相送!! 关于windows.net server的安装 打印问题!!(50) 如何编程获得win2000本机的MAC地址?不用Netbios的方法阿,谢谢 讨论一下,对于个人来讲计算机可以帮助我们做什么? 谁有WS-FTP pro 7.5的注册码! 怎样改变MENU的字体? 请问有谁愿意转让《Object-Oriented Software Engineering: A Use Case Driven Approach》一书 讨论一下,对于个人来讲计算机可以帮助我们做什么? 谁用C++ BUilder写过类似sql 语句生成器的东西。 有谁知道 NetBoy 3.0.1 的序列号?第一个答对者20分全给!本人说话绝对算数。 ADO,如何判断一个连接对象(_ConnectionPtr)是否已经打开? IIS 5.0 & exchange server 有沖突? 修改数据库问题,急,在线等待! 讨论一下,对于个人来讲计算机可以帮助我们做什么? 怎样实现c语言对数据库的操作?(查询,添加,删除,排序。。。) 建立ActiveX控件的问题 求救:java的‘主要类型’本质上是不是对象? 如何编程实现改变显示器的分辩率? 有谁知道 NetBoy 3.0.1 的序列号?第一个答对者20分全给!本人说话绝对算数。 请大家给个方案:关于中文词法分析? 请 newly_ignorant(不学无术) 兄进来领分 怎样控SourceSafe的物理权限 ? 向各位高手求助!简单goto转变成没有goto的语句· 怎么改变DataGrid页导航条数字颜色 谁有IPX在局域网里收发和解析IPX包的例子! 释放连接,在线等待 爸爸 妈妈和小明的年龄和是70岁,爸爸比小明大28岁,妈妈比小明大24岁?爸爸 妈妈 cos指的是功率因数,那sin指的是什么啊? 怎么用YEAR函数计算工龄 宇宙大爆炸理论的一个小小疑问是由一个很小东西爆炸,那东西大概有多小 小明和他爸爸妈妈三人的年龄之和是82岁,已知爸爸比妈妈大4岁,妈妈比小明大24岁,求3人的年龄各是多少? 一次函数y=-x+a与一次函数y=x+b的图像交点坐标为(m,8)如题.则a+b=? 近似数3.1*10的立方与近似数3100的精确度一样.这句话对吗? 线性代数简单证明题为什么最后一行是可以被 13整除就说 整个行列式就可被13整除 4950乘以一个自然数a,乘积是某个数的平方,a最小是多少? 关于宇宙大爆炸的疑问.是不是在一个无限的空间中发生的?大爆炸之前,空间是什么?如果没有爆心,又怎么会有宇宙膨胀 若一次函数y=x+a与一次函数y=-x+b的图像的交点坐标为(m,8)求a+b的值 某配电网的平均有功功率为Pav,功率因数角正切值为tanφ1,安装无功补偿装置后,功率因数角正切值为tanφ2,计算补偿容量Qc是多少 宇宙大爆炸~疑问都说宇宙是由一个原始大球爆炸出来的那那个原始的打球(姑且这么称呼)是怎么来的那呢?难道是本来就存在?不可思议~ 若一次函数y=负x+a和y=x+b的图像交点为(m,8),则a+b= 功率因数的正切值如何计算cosA=0.6 tanA=? 因式分解 1 2x(m-n)-(n-m) 2 3ax的2次方+6axy+3ay的2次方 3 16y的4次方-8x的2次方y的2次方+x的4次方因式分解1、 2x(m-n)-(n-m)2、 3ax的2次方+6axy+3ay的2次方3、 16y的4次方-8x的2次方y的2次方+x的4次方 一次函数y=-x+a与一次函数y=x+b的图像的交点的坐标为(m,8),则a+b=? 用1016乘一个数、乘积是一个完全平方数、求满足条件的最小自然数是( )、 三相电机的功率因数问题一台15W三相交流电机,Y形接法,A、B、C三相实测电流为11A,计算耗电量:P=0.38*11*1.732*0.8(功率因数),计算出耗电量为5.79KW/h,问题是我安装了一台三相电能表计量电机运 若函数y=-x+a与y=x+b的图像交点坐标为(m,8),求a+b的值 正常细胞核和细胞质之间的关系是 We are no longer a little kid AB是半圆O的直径,C、D是弧AB的三等分点,求证:AC、AD两弦与弧CD所围成的图形的面积的三分之一 生物中细胞质和细胞核的区别,就是有什么特点?是遗传上的,不是他们本质.意思就是细胞质遗传和细胞核遗传有什么特点?因为新教材上已经省略了,当题目还是有出现! a little later和a little longer的区别 一共2道大题!8道小题!急 1.求阴影部份面积大小.(6) 2求下面图形阴影部分的面一共2道大题!8道小题! 1.求阴影部份面积大小.(6)2求下面图形阴影部分的面积和周长(2) 我要100道一元二次方程计算题,不要什么填空和选择,还有解答也不要,只要计算题,有多少先给我发过来,谢了抓紧时间,我们老师布置的作业,谁都不想做,可没办法啊~ 《stay a little longer》歌词是什么 3的3n次减去 三分之一x的n次(用因式分解做) 帮忙算一道一元二次方程7n^2-71n-25806=0 商场自动扶梯上面的乘梯须知怎么写 若一次函数y=-x+a与一次函数y=x+b的图像的交点坐标为【m,8】,则a+b=【 】 P=250Kw 当前的功率因数是cos¢1=0.65 目标是想要cos¢2=0.9 cos¢1=P/S1=0.65 cos¢2=P/S2=0.9 tan¢1-taP=250Kw 当前的功率因数是cos¢1=0.65目标是想要cos¢2=0.9cos¢1=P/S1=0.65cos¢2=P/S2=0.9tan¢1-tan¢2=0.685怎么算 sheep a little longer的意思the early morning news的意思 b^3n-1 c^2/a^2n+1×a^2n-1/b^3n-2= 时间函数YEAR(TODAY())和YEAR(NOW())有什么区别?请各位Excel高手说得通俗一些吧,也可举例说明, 宇宙大爆炸涉及宇宙的( )( ) ( ),三方面.谢啦急好的加分. 分式计算:(b^3n-1 )*c/(a^2n+1)除以 (b^3n-2)/(a^2n) 已知一次函数y=(m-2)x+㎡-6的图像与y轴相交,交点的坐标是-2,求m的值 英语翻译是以c开头的单词 {a+b}^{3n+1}/0.5{b-a}^2n 已知一次函数y=(m-2)x+m²6的图像与y轴相交,交点的坐标是-2,求m的值 宇宙大爆炸的声音那里去了?340米每秒?如此巨大的爆炸,不可能没有声音吧?那么什么时候能传到地球?看了那么多回答,反而让我觉得,光也必定可以作为介质给声音使用,如此巨大的爆炸, 如图已知圆o的直径AB=40cm,点c,d,是直径AB所对的半圆三等分点,求弦AC,AD和弧CD所围成的图形面积. 求土方的工程量甲方要求挖出一条长357米,宽0.8米,深1.5米的工作坑,但是为了防止塌方实际挖出的工作坑为长357米,上宽3.5米,下宽1.2米,深2米的梯形.那么多出的工程量土方应该是多少立方米呢? 把一个准确数四舍五入得到一个近似数,这个数的准确数就是这个近似数的真值,近似数1.80和近似数1.8的真值有什么不同? 289:170化简 一次函数y=(m-1)x+m-1的图像与y轴交于点(0,-1)那么m的值为 一个数四舍五入后得到近似数为5万,则这个数最大可能是 200分之170化简 细胞有丝分裂之前是否存在姐妹染色单体 如图,两个正方形的边长分别为4厘米和6厘米,求阴影部分面积, COS∮谢谢指教如果功率因数底到底是怎么回事 是不是电容坏了 一个直棱柱有16个顶点,它是几棱柱,有多少条棱,多少个面 近似数2.5万精确到_____位 功率因数那单位怎么念的?cos& 如果一个棱柱一共有12顶点,底边长是侧棱长的一半,并且所有的棱长的和是120cm,那么每条侧棱长是 cm . 近似数25.08万精确到——位? WP4000的λ与cosφ哪个表示功率因数? (1).五棱柱共有()条棱,()个顶点 (2).有十一个面的棱柱有( )个顶点,( )条棱
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘