Structure with Constructor

 
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

Related examples in the same category

1.	Structure Variable assignment
2.	ToString Method for Structure data type
3.	Structure overrides ToString method
4.	Store Structure into a Collection
5.	Compare Structure and Class
6.	Pass Structure into a Function
7.	Simple Structure Demo
8.	ValueType.Equals Method Indicates whether this instance and a specified object are equal.

Structure with Constructor : Structure « Language Basics « VB.Net

Related examples in the same category