garbagecollection.vb

来自「c#设计模式WithCla」· VB 代码 · 共 45 行

Imports System
;
Imports System.Threading
;
Imports Microsoft.VisualBasic.ControlChars
;

  Class BaseObj   Implements Object     

   Private   name As String = 
   
   'Default Constructor
   Public Sub New()  
       
      name = 
    
   End Sub

' 
' 
' 

   ' 
    ' 
    ' 
    public        Sub New(name AS String)
    
    	MyBase.New
            Me.name = name
            Display("BaseObj Constructor")
    End Sub
   
   ' 
    ' 
    ' 
    public        Sub Display(status AS String)
     
    	App.Display(System.String.Format("Obj({0}): {1}", name, status))
    End Sub
   
   public Overrides Function ToString() As String
     ToString = "BaseObj"
   End Function
 
End Class