本文整理汇总了VB.NET中System.GC.ReRegisterForFinalize方法的典型用法代码示例。如果您正苦于以下问题：VB.NET GC.ReRegisterForFinalize方法的具体用法？VB.NET GC.ReRegisterForFinalize怎么用？VB.NET GC.ReRegisterForFinalize使用的例子？那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.GC的用法示例。
在下文中一共展示了GC.ReRegisterForFinalize方法的1个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于系统推荐出更棒的VB.NET代码示例。
示例1: Main
Namespace ReRegisterForFinalizeExample
Class MyMainClass
Shared Sub Main()
'Create a MyFinalizeObject.
Dim mfo As New MyFinalizeObject()
'Release the reference to mfo.
mfo = Nothing
'Force a garbage collection.
GC.Collect()
'At this point mfo will have gone through the first Finalize.
'There should now be a reference to mfo in the static
'MyFinalizeObject.currentInstance field. Setting this value
'to null and forcing another garbage collection will now
'cause the object to Finalize permanently.
MyFinalizeObject.currentInstance = Nothing
GC.Collect()
End Sub
End Class
Class MyFinalizeObject
Public Shared currentInstance As MyFinalizeObject = Nothing
Private hasFinalized As Boolean = False
Protected Overrides Sub Finalize()
If hasFinalized = False Then
Console.WriteLine("First finalization")
'Put this object back into a root by creating
'a reference to it.
MyFinalizeObject.currentInstance = Me
'Indicate that this instance has finalized once.
hasFinalized = True
'Place a reference to this object back in the
'finalization queue.
GC.ReRegisterForFinalize(Me)
Else
Console.WriteLine("Second finalization")
End If
MyBase.Finalize()
End Sub
End Class
End Namespace