【懒到极致】消息框MsgBox自动关闭功能

今天给大家分享一个简单的示例。

我们在使用系统时，经常会使用到消息提示（MsgBox），但消息提示后，总是显示在那里，需要我们点击一下确定，点击后信息框才会不显示，这样总是很不方便，如果信息能自动关闭该多好，这样我们就可以完全“躺平”了，那我们今天就来做这个简单而实用的功能。

我们直接上代码，这里用到API，用来自动关闭信息框。

API代码

注意：1000为1秒，这里是需要注意的，如果设置的时间短了，那会看不清楚提示信息，这样反而不太方便了。

这里我们调用了API，有关于这个API的说明，可以大家自行查看一下，调用操作不是很复杂，参数说明如下：

    .参数 hwnd, 整数型, , 窗口句柄

    .参数 lpText, 文本型, , 信息框内容

    .参数 lpCaption, 文本型, , 信息框标题

    .参数 wType, 整数型, , 信息框按钮类型，确认按钮、重试按钮之类

    .参数 wlange, 整数型, , 一般为0，语言ID

    .参数 dwTimeout, 整数型, , 延迟的时间 ，以毫秒为单位

演示

功能演示，注意，光标并未点击确定按钮。

好了，今天的分享就到这里。

来源：易登软件Access开发