VB.Net by API/System.Drawing/Point2D — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Текущая версия на 15:49, 26 мая 2010
New Point2D
<source lang="vbnet"> 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
</source>