Mega Code Archive
Structure with Constructor
<![CDATA[
Imports System
Public Class MainClass
Shared Sub Main()
Dim loc1 As New Location(200, 300)
Console.WriteLine("Loc1 location: {0}", loc1)
Dim loc2 As New Location( )
Console.WriteLine("Loc2 location: {0}", loc2)
myFunc(loc1)
Console.WriteLine("Loc1 location: {0}", loc1)
End Sub
Shared Public Sub myFunc(ByVal loc As Location)
loc.XVal = 50
loc.YVal = 100
Console.WriteLine("Loc1 location: {0}", loc)
End Sub
End Class
' declare a Structure named Location
Public Structure Location
' the structure has private data
Private myXVal As Integer
Private myYVal As Integer
' constructor
Public Sub New( _
ByVal xCoordinate As Integer, ByVal yCoordinate As Integer)
myXVal = xCoordinate
myYVal = yCoordinate
End Sub 'New
' property
Public Property XVal( ) As Integer
Get
Return myXVal
End Get
Set(ByVal Value As Integer)
myXVal = Value
End Set
End Property
Public Property YVal( ) As Integer
Get
Return myYVal
End Get
Set(ByVal Value As Integer)
myYVal = Value
End Set
End Property
' Display the structure as a String
Public Overrides Function ToString( ) As String
Return String.Format("{0}, {1}", xVal, yVal)
End Function 'ToString
End Structure 'Location
]]>