interfacetest.vb

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

 MustInherit Class IControl        

   'Default Constructor
   Public Sub New()  
       
   End Sub

' 
' 
' 

   ' 
    ' 
    ' 
    public        Sub Paint()
    
    End Sub
   
   public Overrides Function ToString() As String
     ToString = "IControl"
   End Function
 
End Class