| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 6194 人关注过本帖, 1 人收藏
标题:[求助]如何让一个msgbox提示框显示三秒后不用手动点确定自动消失?
只看楼主 加入收藏
红影
Rank: 1
等 级:新手上路
威 望:2
帖 子:659
专家分:0
注 册:2006-2-22
收藏
得分:0 
以下是引用团囝在2007-8-7 21:37:09的发言:
Private Sub Command1_Click()
' this shows a messagebox that will be dismissed after 4 seconds

' set the callback timer and pass our application defined ID (NV_CLOSEMSGBOX)
' set the time for 3 seconds (3000& microseconds)
SetTimer hWnd, NV_CLOSEMSGBOX, 3000&, AddressOf TimerProc

' call the messagebox API function
Call MessageBox(hWnd, "显示四秒后自动关闭的MsgBox对话框,爽吧?", _
"Self Closing Message Box", MB_ICONQUESTION Or MB_TASKMODAL)

End Sub



我就是把TOFORN的那个的4改成了2,就是2秒后自动关的了...

学习了!


生命中,不断有人离开和进入。于是,看见的,看不见了;记住的,遗忘了。
2007-08-08 09:22
西风独自凉
Rank: 8Rank: 8
等 级:贵宾
威 望:43
帖 子:3380
专家分:28
注 册:2007-8-2
收藏
得分:0 
不懂哦.............

2007-08-08 09:47
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
收藏
得分:0 
这个没有提示!输入比较麻烦点!怎么才能整点可以让输入有提示的函数啊!
这个是个问题!哎!

2007-08-08 09:50
团囝
Rank: 1
等 级:新手上路
帖 子:52
专家分:0
注 册:2007-8-4
收藏
得分:0 
才发现....我改的是3...

2007-08-08 11:45
心中有剑
Rank: 2
等 级:新手上路
威 望:5
帖 子:611
专家分:0
注 册:2007-5-18
收藏
得分:0 

Private Declare Function MessageBoxTimeout Lib "user32.dll" Alias "MessageBoxTimeoutA" ( _
ByVal hwnd As Long, _
ByVal lpText As String, _
ByVal lpCaption As String, _
ByVal uType As Long, _
ByVal wlange As Long, _
ByVal dwTimeout As Long) As Long

Private Sub Command1_Click()
Dim iFlags%
iFlags = vbInformation Or vbOKOnly
MessageBoxTimeout Form1.hwnd, "Test a timeout of 3 seconds.", "MessageBoxTimeout Test", iFlags, 0, 3000
End Sub
都没提示 啊 不如用这个了!


2007-08-08 11:47
快速回复:[求助]如何让一个msgbox提示框显示三秒后不用手动点确定自动消失?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.039967 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved