2

我又回来了，我希望这是一个相当简单的问题。

我正在尝试在 VBA 中创建用户表单。用户将在表单中输入某些信息，然后关闭表单。我希望用户表单在用户关闭后保留输入的数据。我将它视为一个类模块，因为从技术上讲它们是，或者至少我是这样理解的。这是我正在使用的代码：

在显示用户表单的主子中：

Sub NonACATMemo()

Dim UserInput As MemoReasons
Set UserInput = New MemoReasons
UserInput.Show

...然后在用户表单本身中将其关闭...

Private Sub UserForm_Terminate()
MemoReasons.Hide
End Sub

我还从表单上的命令按钮调用此子程序。我遇到的问题是，当我使用此方法时，出现错误“运行时错误'402'：必须首先关闭或隐藏最顶层的模态表单。” 如果我使用卸载我，当我尝试从表单中获取数据时，它会被清除，并且我会收到“服务器不可用”错误或类似的东西。

那么，关于隐藏用户表单但保留内部数据的任何想法？

最后几点注意事项：这是项目中唯一的用户表单，下面是我如何尝试使用 Public Property Get 方法从中获取数据的示例：

Debug.Print UserInput.EmailFlag
Debug.Print UserInput.ContraFirm
Debug.Print UserInput.MemoReason

好吧，如果有人有任何建议，我会全力以赴。

4

2 回答 2

6

这是一个古老的话题......希望有人在这方面需要帮助。

您可以执行以下操作：

1-放置一个关闭/取消按钮（您可以将 Cancel 属性设置为 True）

2-将以下代码附加到 Click事件

Private Sub btnClose_Click()
    'Do some stuff if necessary
    Me.Hide
End Sub

3-将此代码附加到 QueryClose事件

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
  If CloseMode = 0 Then 'vbFormControlMenu = 0 ([X] button on top right), see MSDN
     Cancel = True 'Don't fire Terminate event...
     btnClose_Click '...instead, call my close event handler
   End If
End Sub

您可以通过在UserForm_Initialize事件中放置一个调试器断点来检查结果，并且它应该仅在第一次显示 UserForm 时触发，从而授予 UserForm 状态保留。

于 2017-01-12T13:00:54.143 回答
5

我以前没有见过这种方法。通常，我会通过以下方式实例化表单：

MemoReasons.Show

事实上，该_Terminate()事件正在清除表格中保存的数据。所以解决方案是不要_Terminate()从按钮单击中调用事件。相反，只需隐藏表单，例如：

Sub ShowMemoReasons()
'In a normal code module, this calls the form
' could be run from the macros menu or attached to
' a shape/button/etc on the worksheet.

MemoReasons.Show

End Sub

将这些放在MemoReasons代码模块中：

Private Sub CommandButton1_Click()  '<-- Rename to handle your button's click event

    MemoReasons.Hide  '## Hides the form but does not release it from memory

End Sub
Private Sub UserForm_Terminate()
'Any events pertaining to the termination of the form object
' otherwise, all form control data will be wiped out when
' this object releases from memory

End Sub

完成这些操作后，如果您使用按钮隐藏表单，您可以调用ShowMemoReasons()并且它应该重新显示表单，同时保留之前在表单中输入的数据。

如果您使用红色的“X”按钮或其他一些事件触发该Terminate事件，您将丢失表单数据。有一些方法可以进行验证，并QueryClose在必要时通过事件防止这种情况发生。

更新

我认为您不需要Dim用户表单的实例（如果您可能同时显示多个表单，则例外）。否则，声明UserInput为公共变量是多余且令人困惑的。

顺便说一句，这就是您收到错误的原因：Must close or hide topmost modal form first. 如果你必须以这种方式实现它，MemoReasons.hide你应该使用Me.Hide.

只要你只显示表单的一个实例，你总是可以引用MemoReasons.property因为MemoReasons是一个公共对象，就像ThisWorkbookorActiveWorksheet等 ​​一样。

相反，您应该能够MemoReasons在任何子例程中引用此对象（是一个对象），例如创建另一个未从先前的子程序调用的对象。运行 sub 以显示表单，输入一些数据，然后隐藏表单。隐藏表单，然后运行此子例程，您应该会看到表单的结果数据。 

Sub Test2()
    Debug.Print MemoReasons.EmailFlag
End Sub
于 2013-09-19T14:57:58.593 回答