[已解决]如何让msgbox对话框弹出后一秒自动消失

HYY514

用API吧,放在标准模块中

Private Declare Function SetTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long, ByVal uElaspe As Long, ByVal lpTimerFunc As Long) As Long
Private Declare Function KillTimer Lib "user32" (ByVal hwnd As Long, ByVal nIDEvent As Long) As Long
Private id As Long
Sub mgb()
    id = SetTimer(0&, 0&, 1000&, AddressOf Clme)
    MsgBox ("1秒后自动关闭")
    KillTimer 0&, id
End Sub
Sub Clme()
    SendKeys "{enter}"
End Sub

开辆小富康

抄一段：

WshShell 对象
ProgID Wscript.Shell
文件名 WSHom.Ocx
CLSID F935DC22-1CF0-11d0-ADB9-00C04FD58A0B
IID F935DC21-1CF0-11d0-ADB9-00C04FD58A0B

下表说明和 WshShell 对象有关的属性。
属性 说明
Environment 返回 WshEnvironment 集合对象。
SpecialFolders 使用 WshSpecialFolders 对象提供对 Windows shell 文件夹的访问，如桌面文件夹，开始菜单文件夹和个人文档文件夹。

下表说明和 WshShell 对象有关的方法。
方法 说明
CreateShortcut 创建并返回 WshShortcut 对象。
ExpandEnvironmentStrings 扩展 PROCESS 环境变量并返回结果字符串。
Popup 显示包含指定消息的消息窗口。
RegDelete 从注册表中删除指定的键或值。
RegRead 从注册表中返回指定的键或值。
RegWrite 在注册表中设置指定的键或值。
Run 创建新的进程，该进程用指定的窗口样式执行指定的命令。
详细出处参考：http://www.jb51.net/article/5683.htmWshShell 对象
对象

吕?布

学习了

ycb20010823

学委的代码是好东西，可是我看不懂了！难过中...，谢谢“开辆小富康”的帮助，希望咱们以后用VBA挣了大钱，开宝马，不开小富康了，哈哈

[此贴子已经被作者于2010-3-10 9:56:41编辑过]

zsd5237

学习

xdwy81129

QUOTE:

以下是引用吕?布在2010-3-9 18:02:00的发言：

我这里好象也没有关闭啊

同样的，不懂阿木老师说的为什么不是msgbox？？

xdwy81129

QUOTE:

以下是引用开辆小富康在2010-3-9 18:52:00的发言：

抄一段：

WshShell 对象
ProgID Wscript.Shell
文件名 WSHom.Ocx
CLSID F935DC22-1CF0-11d0-ADB9-00C04FD58A0B
IID F935DC21-1CF0-11d0-ADB9-00C04FD58A0B

下表说明和 WshShell 对象有关的属性。
属性 说明
Environment 返回 WshEnvironment 集合对象。
SpecialFolders 使用 WshSpecialFolders 对象提供对 Windows shell 文件夹的访问，如桌面文件夹，开始菜单文件夹和个人文档文件夹。

下表说明和 WshShell 对象有关的方法。
方法 说明
CreateShortcut 创建并返回 WshShortcut 对象。
ExpandEnvironmentStrings 扩展 PROCESS 环境变量并返回结果字符串。
Popup 显示包含指定消息的消息窗口。
RegDelete 从注册表中删除指定的键或值。
RegRead 从注册表中返回指定的键或值。
RegWrite 在注册表中设置指定的键或值。
Run 创建新的进程，该进程用指定的窗口样式执行指定的命令。
详细出处参考：http://www.jb51.net/article/5683.htmWshShell 对象
对象

不太明白什么意思，学习下，飞翔老师的厉害，就是看不懂

hellen999

要学习。谢谢

伊克斯

谢谢楼主  先下载下来看看

1982zyh

学习了，不过时间MS大于1秒