Define Structure : Structure « Class Module « VB.Net Tutorial

1. VB.Net Tutorial
2. Class Module
3. Structure

Option Strict On
 Imports System

     Public Structure Location
         Private x As Integer
         Private y As Integer

         Public Sub New(ByVal xCoordinate As Integer, ByVal yCoordinate As Integer)
             x = xCoordinate
             y = yCoordinate
         End Sub

         Public Property XValue( ) As Integer
             Get
                 Return x
             End Get
             Set(ByVal Value As Integer)
                 x = Value
             End Set
         End Property

         Public Property YValue( ) As Integer
             Get
                 Return y
             End Get
             Set(ByVal Value As Integer)
                 y = Value
             End Set
         End Property

         Public Overrides Function ToString( ) As String
             Return [String].Format("{0}, {1}", x, y)
         End Function
     End Structure

     Class Tester
         Public Shared Sub myFunc(ByVal loc As Location)
             loc.XValue = 50
             loc.YValue = 100
             Console.WriteLine("Loc1 location: {0}", loc)
         End Sub 

         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 

     End Class

Loc1 location: 200, 300
Loc2 location: 0, 0
Loc1 location: 50, 100
Loc1 location: 200, 300