内存不足以完成此操作
我遇到了一个不寻常的问题。 我有一个包含大约10页的多页面的应用程序，每个页面包含3-5页的另一个多页面。 问题是，应用程序太“沉重”，我想把它分成多种forms（每页的forms）。 在最初的应用程序中，正如我所说的那样，大概有10页，另外还有3-5页，每页都有大约3-20个combobox，4-40个文本框。 所有这些都是在初始化时通过执行一段代码加载的。 现在，我复制了每一页的代码片段，并将其添加到replace它的表单的初始化中。 代码是这样的：
Private Sub UserForm_Initialize() Dim i As Integer Dim ws1 As Worksheet Dim pagini As range Set ws1 = Worksheets("Config") Dim cControl As Control Set cControl = Me.Controls.Add("Forms.Multipage.1", "oly", True) With cControl .Width = 650 .Height = 380 .Top = 0 .Left = 0 End With Me.Controls("oly").Pages.Remove (Page1) Me.Controls("oly").Pages.Remove (Page2) For Each pagini In ws1.range("pagoly") Me.Controls("oly").Pages.Add (pagini) Next pagini i = 0 Do While i < 5 Set cControl = Me!oly.Pages(i).Add("Forms.Frame.1", "iooly" & i, True) With cControl .Caption = "IO" .Width = 210 .Height = 340 .Top = 2 .Left = 5 End With Set cControl = Me!oly.Pages(i).Add("Forms.Frame.1", "niooly" & i, True) With cControl .Caption = "nIO" .Width = 210 .Height = 340 .Top = 2 .Left = 220 End With Set cControl = Me!oly.Pages(i).Add("Forms.Frame.1", "descriere" & i, True) With cControl .Caption = "Descriere" .Width = 210 .Height = 340 .Top = 2 .Left = 435 End With Loop End Sub 到目前为止，它只是在这个表单的每个页面上添加框架。 问题是当我想运行它时，我得到“没有足够的内存来完成这个操作”，我真的不知道为什么。 然而在以前版本中加载了50倍以上的东西没有问题。 你知道问题在哪里，因为我真的不明白。
你有
Do While i < 5 'stuff Loop
我没有看到我改变的价值，所以程序将退出循环。 我错过了什么吗？