using System; public class NamedPointTest { public static void Main() { NamedPoint tNamedPoint = new NamedPoint("first", 100, 200); Console.WriteLine(tNamedPoint); Point tPoint = tNamedPoint; Console.WriteLine(tPoint); } }
Public Class Point Private iX As Integer Private iY As Integer Public Sub New(ByVal pX As Integer, ByVal pY As Integer) iX = pX iY = pY End Sub Public Overrides Function ToString() As String Return iX & ":" & iY End Function End Class
Module PointTest Sub Main() Dim tPoint As Point = New Point(100, 200) Console.WriteLine(tPoint) Dim tAnotherPoint As Point = tPoint Console.WriteLine(tAnotherPoint) End Sub End Module
Public Class NamedPoint Inherits Point Private iName As String Public Sub New(ByVal pName As String, ByVal pX As Integer, ByVal pY As Integer) MyBase.New(pX, pY) iName = pName End Sub Public Overrides Function ToString() As String Return iName & "%" & MyBase.ToString() End Function End Class
Module NamedPointTest Sub Main() Dim tNamedPoint As NamedPoint = new NamedPoint("first", 100, 200) Console.WriteLine(tNamedPoint) Dim tPoint As Point = tNamedPoint Console.WriteLine(tPoint) End Sub End Module
We have now provided 4 classes in C#:
If it were necessary, a mix of .NET languages could be used. For example, we could use a NamedPointTest class coded in C# with a NamedPoint class coded in VB.NET and a Point class coded in C#.