System.InvalidOperationException: 集合已修改；可能无法执行枚举操作

[zy1020868764]

错误报告
————————
System.InvalidOperationException: 集合已修改；可能无法执行枚举操作。
在 System.ThrowHelper.ThrowInvalidOperationException(ExceptionResource resource)
在 System.Collections.Generic.List`1.Enumerator.MoveNextRare()
在 System.Collections.Generic.List`1.Enumerator.MoveNext()
在 Microsoft.VisualBasic.PowerPacks.ShapeCollection.Dispose(Boolean disposing)
在 Microsoft.VisualBasic.PowerPacks.ShapeContainer.Dispose(Boolean disposing)
在 System.ComponentModel.Component.Dispose()
在 System.Windows.Forms.Control.Dispose(Boolean disposing)
在 System.Windows.Forms.Form.Dispose(Boolean disposing)
在 *.Form4.Dispose(Boolean disposing) 位置 E:\*\*\*\*\*\Form4.Designer.vb:行号 13
在 System.ComponentModel.Component.Dispose()
在 System.Windows.Forms.Form.WmClose(Message& m)
在 System.Windows.Forms.Form.WndProc(Message& m)
在 System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m)
在 System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m)
在 System.Windows.Forms.NativeWindow.Callback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam)

关于13的代码

 Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim a As Integer
        Dim b As Integer
        Dim c As Integer
        c = Val(TextBox3.Text)  '斜边长度
        a = Val(TextBox1.Text) '对边长度
        If c = 0 Then
            TextBox2.Text = "数值不能为0或字母"
            TextBox4.Text = "数值不能为0或字母"      '第13行
            TextBox5.Text = "数值不能为0或字母"
            TextBox1.Text = "" : TextBox3.Text = ""
            TextBox3.Focus()
            Exit Sub
        End If

已安装vs2012电脑未发现该问题，该问题出现于非安装vs的系统中(包括XP和Win7)
请问如何解决该问题

[wangnaisheng]

.NET Framework 是否已经安装？ 如果没有那就安装一下。 安装vs的电脑，都安装了.NET Framework 。

[bdmh]

是设计文件的十三行，看看那是什么

[zy1020868764]

引用 1 楼 wangnaisheng 的回复:

.NET Framework 是否已经安装？ 如果没有那就安装一下。 安装vs的电脑，都安装了.NET Framework 。

两台未安装vs的电脑均安装了.net4和VisualBasicPowerPacksSetup 编程的电脑win7,vs2012,.net4.5未发现该错误

[zy1020868764]

引用 2 楼 bdmh 的回复:

是设计文件的十三行，看看那是什么

TextBox4.Text = "数值不能为0或字母"      '第13行

[bdmh]

是窗体设计文件吧，不是代码文件

[大葡萄八块一斤]

不会VB，但Private Sub 和End Sub是要对应吧？你这样也可以？

[zy1020868764]

代码复制了一部分

[zy1020868764]

是窗体文件中的代码

[zy1020868764]

引用 9 楼 Tiger_Zhao 的回复:

你的代码有问题！ 看调用堆栈，System.Windows.Forms.Form.WmClose(Message& m)窗体关闭，控件开始释放，你怎么还在给控件赋值！

这个错误是出现在窗口关闭后弹出来的

[zy1020868764]

各位辛苦了，经过调试发现是定义时错了 原来是

Dim a As Integer
        Dim b As Integer
        Dim c As Integer

现在

Dim a As String
        Dim b As String
        Dim c As String

[Tiger_Zhao]

你的代码有问题！
看调用堆栈，System.Windows.Forms.Form.WmClose(Message& m)窗体关闭，控件开始释放，你怎么还在给控件赋值！