vb.net下如何销毁类的实例

  原提问地址：http://hi.csdn.net/link.php?url=http://topic.csdn.net%2Fu%2F20091116%2F22%2F67d13f8b-3f05-4455-8042-721f5198b1b5.html

 

    vb.net下如何销毁类的实例，这个问题其实已经困扰了我至少两年之久，一直没有时间来做个实验，于是在简单做了个实验后，发帖于CSDN。（请原谅我的命名规则，切勿模仿！）

      实验的过程非常简单，创建一个名为class1的类，类中只有一个字符串变量及一个timer，用于控制输出的内容及间隔，在form1的load 过程中，创建一个class1的实例，在 button1 的click事件中创建class1的另一个实例，并将第一个实例销毁；

      代码如下：

 Public Class Form1 Public bb As New SortedList Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim class1 As New Class1("第1个类的实例") bb.Add(bb.Count, class1) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim class1 As New Class1("第2个类的实例") '******** bb.Add(bb.Count, class1) End Sub End Clas

 

Public Class Class1 Public aa As String Public WithEvents t As New Timer Sub New(ByVal value As String) aa = value t.Interval = 1000 t.Start() End Sub Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles t.Tick Debug.WriteLine(Now.ToString & "---->" & aa) End Sub End Class

      先后创建的两个实例的变量，均是过程级的，按十年前的学习教程讲到的“生存周期”，我理解的过程级变量在过程结束后自动销毁，但是，当form1的load 过程结束后，我仍然能看到"xxxx/xx/xx xx:xx:xx-->第1个类的实例"以一秒的间隔被DEBUG出来，也就是说，过程是结束了，（也许变量已经被销毁了）但是该实例并没有被销毁，由此，我可以得到变量与实例并不是一回事，通俗的讲，此处的变量，只是这个实例的一个名字或者说别名罢了（至少在过程中，可以通过这个名字找到这个实例）。

      我的目的是在第二个实例创建的时候，销毁第一个实例，但是由于第一个实例的变量是过程级的，在button1 的click事件中我无法索引到它，因此无法将其销毁，所以，在创建第一个实例的时候，我将它加入一个集合中，button1 的click事件中我有一行“******”的代码，其实我是尝试了如下几种方法：

方法一：

Dim t As Class1 = bb.Item(0) t.Dispose()  

方法二：

Dim t As Class1 = bb.Item(0) t＝nothing

方法三：

bb.remove(0)

 

       甚至将上述三种方法组合使用，我仍然能看到讨厌的"xxxx/xx/xx xx:xx:xx-->第1个类的实例"以一秒的间隔被DEBUG出来，尽管bb这个集合中已经没有该对象了，尽管t已经被置为nothing了！

      在方法一的应用时，我根据CSDN坛里兄弟及几个朋友的建议，将class1继续了IDisposable接口，代码如下：

 Public Class Class1 Implements IDisposable Protected disposed As Boolean = False Public aa As String Public WithEvents t As New Timer Sub New(ByVal value As String) aa = value t.Interval = 1000 t.Start() End Sub Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles t.Tick Debug.WriteLine(Now.ToString & "---->" & aa) End Sub Protected Overridable Overloads Sub Dispose( _ ByVal disposing As Boolean) If Not Me.disposed Then If disposing Then 't.Dispose() '时钟对象是销毁了，但是这个类的实例也同时销毁了吗？ End If End If Me.disposed = True End Sub Public Sub AnyOtherMethods() If Me.disposed Then Throw New ObjectDisposedException(Me.GetType().ToString, "This object has been disposed.") End If End Sub #Region " IDisposable Support " Public Overloads Sub Dispose() Implements IDisposable.Dispose Dispose(True) GC.SuppressFinalize(Me) End Sub Protected Overrides Sub Finalize() Dispose(False) MyBase.Finalize() End Sub #End Region End Class

 

     只有我在Dispose方法中，将t也Dispose的时候，讨厌的的提示才没有，但是，又如我在t.Dispose后边的注释写的一样，新的问题出现了，时钟对象是销毁了，但是这个类的实例也同时销毁了吗？
     为了验证类的实例是否真的被销毁了，我将class1进行了一个小的改造，在其初始化的时候，开一个100MB大小的 byte数组，变动后的代码如下：

Public Class Class1 Implements IDisposable Protected disposed As Boolean = False Public aa As String Public WithEvents t As New Timer Public b0(102400000) As Byte Sub New(ByVal value As String) aa = value t.Interval = 1000 t.Start() For i = 0 To 102400000 - 1 b0(i) = &HFF Next End Sub Private Sub t_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles t.Tick Debug.WriteLine(Now.ToString & "---->" & aa) End Sub Protected Overridable Overloads Sub Dispose( _ ByVal disposing As Boolean) If Not Me.disposed Then If disposing Then t.Dispose() '时钟对象是销毁了，但是这个类的实例也同时销毁了吗？ End If End If Me.disposed = True End Sub Public Sub AnyOtherMethods() If Me.disposed Then Throw New ObjectDisposedException(Me.GetType().ToString, "This object has been disposed.") End If End Sub #Region " IDisposable Support " Public Overloads Sub Dispose() Implements IDisposable.Dispose Dispose(True) GC.SuppressFinalize(Me) End Sub Protected Overrides Sub Finalize() Dispose(False) MyBase.Finalize() End Sub #End Region End Class

       如我想像，当窗体加载时，我发现该应用程序占去了100多MB的内存空间，当button1被按下后，第1个类实例的文字确实没有了，但是，同时内存空间双多了100MB(因为实例了第二个)，也就是说，时钟对象是销毁了，但是这个类的实例却没有被销毁！

       考虑到有朋友认为，垃圾回收是系统自动完成的，且，当该类没有任何实例的时候，系统会自动回收，那么，就可以理解成，当类仍然存在实例的时候，其它实例的资源系统是不回收的，这显然不满足实际的开发需要。我的实际工作是要管理上万个tcp的联接，每个终端对象都会频繁的联接、断开，周而复始，一个对象断开后，我就要释放相应的资源，否则，经过N多次的断开联接后，可能只保持一个联接里，我的系统资源已经没有了（因为类仍然有实例，资源没有被自动回收）。

       于是，在创建第二个实例的时候，我强制要求系统回收资源，button1 的click事件变更成：

      Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim class1 As New Class1("第2个类的实例") Dim t As Class1 = bb.Item(0) t.Dispose() t = Nothing bb.Remove(0) System.GC.Collect() System.GC.WaitForPendingFinalizers() bb.Add(bb.Count, class1) End Sub

      重新实验，当button1被按下后，第1个类实例的文字没有了，第2个类的实例开始按1秒的间隔被Debug出来，内存的开销只增加了几K，实例1被销毁了。

 

     总结：

           有朋友说，集合中记录的只是个引用，不能记录在集合中，对象的存储和调用本身就是按址引用的，所以，这个不存在问题；

           我测试开了100M的byte数组有些bt，但足以说明问题，我们不能因为现在内存及CPU足够大，足够快而忽视对资源的掌握；

           .Net 的垃圾回收并不是万能的；

           实验很重要。