.net VB怎么通过类获得相应的类的实例并将它设置=nothing

[CPF2014]

我用.NET VB创建了一个类FormClass1的窗体并且实例化为Dim form1 as new FormClass1
现在我关闭窗体form1即触犯FormClass1的Disposed事件，但是我不懂得怎么在类FormClass1获得form1的对象，并将form1=nothing。哪位大神帮帮解答下，万分感谢。

[赵4老师]

delete ...

[X-i-n]

FormClass1继承自Window.Forms.Form ? 如果这样的话，遍历一下所有打开的窗口，用Typename获取一下类名是不是等于FormClass1。

        Dim listForms As New List(Of formClass)
        For Each frm In Application.OpenForms
            If TypeName(frm) = TypeName(formClass) Then
                listForms.Add(frm)
            End If
        Next
        For Each frm As formClass In listForms
            frm.Close()
        Next

[y2012]

把Form1的声明放到方法外面，设置成方法级别，就可以在Dispose方法中获取到Form1.

[CPF2014]

引用 2 楼 Runnerchin 的回复:

FormClass1继承自Window.Forms.Form ? 如果这样的话，遍历一下所有打开的窗口，用Typename获取一下类名是不是等于FormClass1。

        Dim listForms As New List(Of formClass)
        For Each frm In Application.OpenForms
            If TypeName(frm) = TypeName(formClass) Then
                listForms.Add(frm)
            End If
        Next
        For Each frm As formClass In listForms
            frm.Close()
        Next

其实在FormClass1中添加一个变量FormID，在实例化对象中添加代码form1.FormID=form1，同时在在FormClass1中的Dispose方法中添加FormID=Nothing就可以了