Mega Code Archive
Class implicitly Inherits Object
<![CDATA[
Module Tester
Sub Main()
Dim point As CPoint
point = New CPoint(2, 5)
Console.WriteLine("X coordinate is " & point.X & _
vbCrLf & "Y coordinate is " & point.Y)
point.X = 10
point.Y = 10
Console.WriteLine("The new location of point is " & point.ToString())
End Sub ' Main
End Module
Public Class CPoint
' implicitly Inherits Object
Private mX, mY As Integer
Public Sub New()
X = 0
Y = 0
End Sub
Public Sub New(ByVal xValue As Integer,ByVal yValue As Integer)
X = xValue
Y = yValue
End Sub ' New
Public Property X() As Integer
Get
Return mX
End Get
Set(ByVal xValue As Integer)
mX = xValue ' no need for validation
End Set
End Property ' X
Public Property Y() As Integer
Get
Return mY
End Get
Set(ByVal yValue As Integer)
mY = yValue ' no need for validation
End Set
End Property ' Y
Public Overrides Function ToString() As String
Return "[" & mX & ", " & mY & "]"
End Function ' ToString
End Class
X coordinate is 2
Y coordinate is 5
The new location of point is [10, 10]
]]>