New Point2D : Point2D « System.Drawing « VB.Net by API

1. VB.Net by API
2. System.Drawing
3. 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

   
    
  

Related examples in the same category