一遍又一遍地从用户表单打开用户表单 - 导致对象问题

Question

我目前在 Excel 2003 中构建了一个工具，它显示一系列数据输入表单。客户要求表单上有“上一个表单”和“下一个表单”按钮。

用于在表单之间移动的代码如下

Sub NextForm(strFormName As String)
    Dim intCurPos As Integer
    Dim strNewForm As String

    'Find out which form we are currently on from a list in a range
    intCurPos = WorksheetFunction.Match(strFormName, Range("SYS.formlist"), 0)
    If intCurPos = WorksheetFunction.CountA(Range("SYS.formlist")) Then
        'We want to use the first one
        intCurPos = 0
    End If

    'Get the name of the form to open
    strNewForm = WorksheetFunction.Index(Range("SYS.formlist"), intCurPos + 1)
    'Load the form into the Userforms Collection
    Set newForm = VBA.UserForms.Add(strNewForm)
    'Show the form
    newForm.Show
End Sub

我遇到的问题是，在执行此操作 25 次（是的，我知道）后，系统崩溃。我意识到这是因为每次到达上面的 newForm.Show 行时，代码都无法完成，因此位于内存中。

无模式表单可以阻止此问题，但用户可以加载其他表单并执行其他可能导致重大问题的操作。

有人有任何建议可以帮助解决这个问题吗？以某种方式强制执行代码但不停止表单的模式功能？

可能性不大，但感谢任何帮助。

Answer 1

也许你应该改变你的方法。

我建议如下：

在主模块中使用循环来循环打开表单，并在用户每次按下“下一个表单”按钮时循环。

'This sub in your main Module
sub ShowAndCyleForms
   Dim FormName As String
   Dim MyForm as Object
   Dim CloseForm as Boolean

   FormName = "frmMyForm"         

   do while CloseForm=False
      set MyForm = VBA.UserForms.Add(FormName)           
      MyForm.Show
      CloseForm=MyForm.CloseStatus
      FormName=MyForm.strNewForm
      Unload MyForm
      Set MyForm = Nothing
   loop 

end sub

在每个表单中，声明：

Public CloseStatus as Boolean
Public strNewForm as String

在每个“下一个表单”按钮中，输入类似以下内容：

Private Sub btnNextForm_Click()
   CloseStatus=False
   strNewForm= NextForm(Me.Name)
   Me.Hide
End Sub

将您的子程序修改为提供下一个表单名称的函数

Sub NextForm(strFormName As String)
   Dim intCurPos As Integer

   'Find out which form we are currently on from a list in a range
   intCurPos = WorksheetFunction.Match(strFormName, Range("SYS.formlist"), 0)
   If intCurPos = WorksheetFunction.CountA(Range("SYS.formlist")) Then
       'We want to use the first one
       intCurPos = 0
   End If

   'Get the name of the form to open
   NewForm = WorksheetFunction.Index(Range("SYS.formlist"), intCurPos + 1)
   '
End Sub

您还需要修改您的 OK 以隐藏表单，而不是卸载它并设置CloseStatus 为 true。

这个想法是在一个过程中控制所有表单从外部加载/卸载。

希望它足够清楚。