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

您所在的位置:网站首页 access怎么设置提示信息 【懒到极致】消息框MsgBox自动关闭功能

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

2024-07-04 03:15| 来源: 网络整理| 查看: 265

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

我们在使用系统时,经常会使用到消息提示(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, 整数型, , 延迟的时间 ,以毫秒为单位

演示

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

图片

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



【本文地址】


今日新闻


推荐新闻


CopyRight 2018-2019 办公设备维修网 版权所有 豫ICP备15022753号-3