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

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

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

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

API代码

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 Command0_Click()
'3秒后自动关闭
MessageBoxTimeout Me.hwnd, "我是一个提示信息", "提示", vbInformation, 0, 3000
End Sub

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

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

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

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

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

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

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

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

演示

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

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