Shared Constructor : Constructor « Class Module « VB.Net Tutorial





Public Class YourClass
  Private Shared ID as Integer = 10

  Public Shared ReadOnly Property CurrentID as Integer
    Get
      Return ID
    End Get
  End Property

  Public Shared Function GetID() as Integer
    ID += 1
    Return ID
  End Function

  Shared Sub New()
    Console.WriteLine("Before init: " & ID)
    ID = 100
    Console.WriteLine("After init: " & ID)
  End Sub
End Class

Module Test
  Sub Main()
    Dim CountValue As Integer
    For CountValue = 1 to 10
      Console.WriteLine(YourClass.GetID())
    Next
  End Sub
End Module
Before init: 10
After init: 100
101
102
103
104
105
106
107
108
109
110










6.30.Constructor
6.30.1.Class with constructor
6.30.2.Empty constructor
6.30.3.Default constructor
6.30.4.Copy constructor
6.30.5.Constructors in three levels
6.30.6.Overloaded constructors
6.30.7.Call member method in constructor
6.30.8.Private Constructor
6.30.9.Inheriting Constructors
6.30.10.Shared Constructor
6.30.11.Constructor with Optional parameter
6.30.12.Constructor Chain
6.30.13.constructor inheriting