VB.Net by API/System.Drawing/Point2D

New Point2D

  
Imports System.Drawing
Imports System.Drawing.Drawing2D
Public Class Tester
    Public Shared Sub Main
        " ----- Original PointF version.
        Dim singlePoint As New PointF(1 / 17, Math.PI)
        Console.WriteLine("PointF: " & singlePoint.ToString())
        Console.WriteLine("X: " & singlePoint.X)
        " ----- New Point2D version.
        Dim doublePoint As New Point2D(1 / 17, Math.PI)
        Console.WriteLine("Point2D: " & doublePoint.Tostring())
        Console.WriteLine("X: " & doublePoint.X)
        
    End Sub
End Class
Public Class Point2D
    Public X As Double
    Public Y As Double
    Public Sub New(ByVal xPoint As Double, _
          ByVal yPoint As Double)
        Me.X = xPoint
        Me.Y = yPoint
    End Sub
    Public Overrides Function Tostring() As String
        Return "{X=" & X & ",Y=" & Y & "}"
    End Function
End Class