1秒后自动关闭msgbox

lhpyyh · 发表于 2012-12-25 10:26

'1秒后自动关闭msgbox 1000 1秒可自行设置
Private Declare Function MessageBoxTimeout Lib "user32" Alias "MessageBoxTimeoutA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long, ByVal wlange As Long, ByVal dwTimeout As Long) As Long
Private Sub 保存_Click()
MessageBoxTimeout Me.hwnd, "保存成功", "Tips", vbInformation, 0, 1000
End Sub

复制代码

Renco · 发表于 2012-12-25 12:45

顶一下。。。

andy11 · 发表于 2013-4-14 00:20

没弄明白啊，可否上传个实例啊！正需要个这段代码！谢谢啊！

lhpyyh · 发表于 2013-4-27 10:28

已经上传附件了，其实就是一个按钮的单击事件，
代码中的“保存成功”是提示信息，“Tips”是提示框标题，1000是提示框自动关闭时间，这三个参数都可以自己进行修改

sunnycnpc · 发表于 2013-4-26 16:44

麻烦提供实例，把原始表格传上来，谢谢，这样还是不知道怎么使用

		自动登录	找回密码
密码			免费注册

[转帖] 1秒后自动关闭msgbox