未公开的秘密花园--VBA中实现自动关闭消息框

2024-01-05 07:50

本文主要是介绍未公开的秘密花园--VBA中实现自动关闭消息框,希望对大家解决编程问题提供一定的参考价值,需要的开发者们随着小编来一起学习吧!

MsgBox用于显示提示信息,并且可以根据用户的不同选择执行不同的后续操作。例如:使用如下消息框获取用户选择,如果点击“是”,则继续执行程序,如果点击“否”,则结束程序执行。
在这里插入图片描述
但是这将带来一个问题,显示消息框时,代码过程将处于暂停状态,如果用户没有进行选择,后续代码无法执行。
如果消息框只是提醒用户,并不需要获取用户的输入,那么使用可以自动关闭的消息提示框,可以避免程序暂停挂起,无法继续执行的问题,但是VBA中提供的MsgBox无法实现自动关闭的功能。下面介绍一个未公开的Windows API函数,可以完美实现自动关闭的消息框。
示例代码如下:

#If VBA7 And Win64 Then
Private Declare PtrSafe 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
#Else
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
#End If
Sub Demo1()' 只有确定按钮MessageBoxTimeout 0, "3 秒后自动关闭", "DEMO1", 0, 0, 3000MsgBox "VBA消息框", vbOKOnly, "DEMO1-VBA"
End Sub
Sub Demo2()' 三个按钮,第二按钮为默认MessageBoxTimeout 0, "3 秒后自动关闭", "DEMO2", 275, 0, 3000MsgBox "VBA消息框", vbDefaultButton2 + vbCritical + vbYesNoCancel, "DEMO2-VBA"
End Sub

运行Demo1,依次显示如下两个消息框,第1个消息框3 秒后自动关闭。
在这里插入图片描述在这里插入图片描述

运行Demo2,依次显示如下两个消息框,第1个消息框3 秒后自动关闭。
在这里插入图片描述在这里插入图片描述
【代码解析】
第1~17行代码声明API函数MessageBoxTimeout
第2~8行代码是适用于64位系统的声明函数。
第10~16行代码是适用于32位系统的声明函数。
API函数的参数看似复杂,其实和VBA中的MsgBox函数时类似的。

参数含义MsgBox对应参数
hwnd窗口句柄-
lpText消息框提示信息prompt
lpCaption消息框标题title
wType消息框类型buttons
wlange函数扩展,通常为0-
dwTimeout延迟关闭时间,单位毫秒-

第25行代码中wType参数值为275,相当于下面三个VBA常量值的和。

VBA常量常量值
vbDefaultButton2256
vbCritical16
vbYesNoCancel3

在Office VBA使用此API函数时,可以直接使用这些常量值,代码如下:

MessageBoxTimeout 0, "3 秒后自动关闭", "DEMO2", vbDefaultButton2 + vbCritical + vbYesNoCancel, 0, 10000

这篇关于未公开的秘密花园--VBA中实现自动关闭消息框的文章就介绍到这儿,希望我们推荐的文章对编程师们有所帮助!



http://www.chinasem.cn/article/572165

相关文章

Spring Security自定义身份认证的实现方法

《SpringSecurity自定义身份认证的实现方法》:本文主要介绍SpringSecurity自定义身份认证的实现方法,下面对SpringSecurity的这三种自定义身份认证进行详细讲解,... 目录1.内存身份认证(1)创建配置类(2)验证内存身份认证2.JDBC身份认证(1)数据准备 (2)配置依

利用python实现对excel文件进行加密

《利用python实现对excel文件进行加密》由于文件内容的私密性,需要对Excel文件进行加密,保护文件以免给第三方看到,本文将以Python语言为例,和大家讲讲如何对Excel文件进行加密,感兴... 目录前言方法一:使用pywin32库(仅限Windows)方法二:使用msoffcrypto-too

C#使用StackExchange.Redis实现分布式锁的两种方式介绍

《C#使用StackExchange.Redis实现分布式锁的两种方式介绍》分布式锁在集群的架构中发挥着重要的作用,:本文主要介绍C#使用StackExchange.Redis实现分布式锁的... 目录自定义分布式锁获取锁释放锁自动续期StackExchange.Redis分布式锁获取锁释放锁自动续期分布式

springboot使用Scheduling实现动态增删启停定时任务教程

《springboot使用Scheduling实现动态增删启停定时任务教程》:本文主要介绍springboot使用Scheduling实现动态增删启停定时任务教程,具有很好的参考价值,希望对大家有... 目录1、配置定时任务需要的线程池2、创建ScheduledFuture的包装类3、注册定时任务,增加、删

SpringBoot整合mybatisPlus实现批量插入并获取ID详解

《SpringBoot整合mybatisPlus实现批量插入并获取ID详解》这篇文章主要为大家详细介绍了SpringBoot如何整合mybatisPlus实现批量插入并获取ID,文中的示例代码讲解详细... 目录【1】saveBATch(一万条数据总耗时:2478ms)【2】集合方式foreach(一万条数

使用Python实现矢量路径的压缩、解压与可视化

《使用Python实现矢量路径的压缩、解压与可视化》在图形设计和Web开发中,矢量路径数据的高效存储与传输至关重要,本文将通过一个Python示例,展示如何将复杂的矢量路径命令序列压缩为JSON格式,... 目录引言核心功能概述1. 路径命令解析2. 路径数据压缩3. 路径数据解压4. 可视化代码实现详解1

PyQt6/PySide6中QTableView类的实现

《PyQt6/PySide6中QTableView类的实现》本文主要介绍了PyQt6/PySide6中QTableView类的实现,文中通过示例代码介绍的非常详细,对大家的学习或者工作具有一定的参考学... 目录1. 基本概念2. 创建 QTableView 实例3. QTableView 的常用属性和方法

PyQt6/PySide6中QTreeView类的实现

《PyQt6/PySide6中QTreeView类的实现》QTreeView是PyQt6或PySide6库中用于显示分层数据的控件,本文主要介绍了PyQt6/PySide6中QTreeView类的实现... 目录1. 基本概念2. 创建 QTreeView 实例3. QTreeView 的常用属性和方法属性

Android使用ImageView.ScaleType实现图片的缩放与裁剪功能

《Android使用ImageView.ScaleType实现图片的缩放与裁剪功能》ImageView是最常用的控件之一,它用于展示各种类型的图片,为了能够根据需求调整图片的显示效果,Android提... 目录什么是 ImageView.ScaleType?FIT_XYFIT_STARTFIT_CENTE

pandas中位数填充空值的实现示例

《pandas中位数填充空值的实现示例》中位数填充是一种简单而有效的方法,用于填充数据集中缺失的值,本文就来介绍一下pandas中位数填充空值的实现,具有一定的参考价值,感兴趣的可以了解一下... 目录什么是中位数填充?为什么选择中位数填充?示例数据结果分析完整代码总结在数据分析和机器学习过程中,处理缺失数