vb6 - 你如何在 VB6 中使用 "Do Not Ask This Again"或 "Don' t Ask Me Again”复选框制作 MsgBox？

Question

我问这个部分是因为我想知道这样做的最佳实践方式，部分是因为我得到的最高谷歌结果是 2002 年的一个论坛帖子，其中甚至没有回答这个问题。

我继承了一些 VB6 代码，并且在所述代码中有一些 MsgBox 调用，其中许多会显示最终用户在短时间内可能会觉得很烦人的消息(例如“打印完成”、“添加记录”等)

我想添加MsgBox上的复选框的标准用户界面控制，说“不要再问我”，以便单击检查并确定时，保存一个设置，让程序知道，您知道.. . 再也不问了。相当标准的控制，这个想法是不言自明的。

我想知道的是在 VB6 中这样做的最佳实践方法是什么。有一种明显的方法可以为这些类型的 msgboxen 创建一个新表单并将旧的 MsgBox 调用替换为该表单上的 .Show ，但是 Stack Overflow 上的 VB6 大师有更好的方法吗？

提前致谢

Answer 1

据我所知，没有其他办法。您需要使用复选框制作自己的消息框表单。当然，您还需要修改代码以存储和检索此设置(并根据设置采取适当的行动)。

我已经在我自己的应用程序中多次这样做了。需要考虑的一件事......假设用户选中了“不再向我显示这个”框。在我看来，应该有一种方法可以重置设置。由于消息框表单不会再次显示，我将其添加到配置表单(对于我的应用程序)。

您可能需要考虑的一件事是对 MSGBOX 函数进行子类化。您可以在您的应用程序中创建一个具有类似参数列表的函数，但有几个额外的参数。如果缺少额外的参数，只需调用 vba.MsgBox(以获得标准行为)。如果你传入额外的参数，你可以调用你的新表单。