如何处理用户表单右上角的X按钮？

问：人们经常问如何隐藏VBA用户表单右上角的X关闭按钮。

答：使用API，可以禁用或删除用户表单右上角的关闭按钮，但既然已经存在，为什么不合理使用呢？

默认情况下，单击用户表单右上角的x(关闭)按钮后，用户表单将被卸载并从内存中清除。这样，其他代码就不能再与用户表单交互了。此时，我们可以稍微改变关闭按钮的功能，当用户点击按钮时，隐藏用户表单，而不是完全卸载。

用户表单模板如图1所示。

图1

代码如下：

私有子节点确定_单击()

我。隐藏

末端接头

专用子菜单取消_单击()

我。隐藏

末端接头

私有子窗体_查询关闭(作为整数取消，作为整数关闭模式)

如果关闭模式=vbFormControlMenu，则

取消x按钮的默认行为。

取消=真

信息

点击

如果…就会结束

末端接头

私有子Info()

MsgBox“此用户表单将被隐藏而不是卸载，因此它不会影响与此表单交互的代码。”

末端接头