VB.Net Tutorial/Class Module/Shared

Call Shared method

<source lang="vbnet">Option Strict On

Imports System
Class YourClass 
   Private Shared instances As Integer = 0
   Private weight As Integer
   Private name As String
   Public Sub New(ByVal name As String, ByVal weight As Integer)
      instances += 1
      Me.name = name
      Me.weight = weight
   End Sub
   Public Shared Sub SharedMerthod( )
      Console.WriteLine("{0} cats adopted", instances)
   End Sub
   Public Sub TellWeight( )
      Console.WriteLine("{0} is {1} pounds",name, weight)
   End Sub
End Class
Module Module1
   Sub Main( )
      YourClass.SharedMerthod( )
      Dim obj As New YourClass("A", 5)
      obj.TellWeight( )
      YourClass.SharedMerthod( )
      Dim obj2 As New YourClass("B", 7)
      obj2.TellWeight( )  
      obj2.SharedMerthod( ) 
      YourClass.SharedMerthod( )      
   End Sub
End Module</source>

0 cats adopted
A is 5 pounds
1 cats adopted
B is 7 pounds
2 cats adopted
2 cats adopted

Shared field

<source lang="vbnet">Public Class Tester

   Public Shared Sub Main
       Dim Counter1 As New Counter
       Dim Counter2 As New Counter
       Console.WriteLine("Total count = " & Counter1.Count())
       Console.WriteLine("Total count = " & Counter2.Count())
       Console.WriteLine("Total count = " & Counter1.Count())
       Console.WriteLine("Total count = " & Counter2.Count())
       Console.WriteLine("Total count = " & Counter1.Count())
       Console.WriteLine("Total count = " & Counter2.Count())
       Console.WriteLine("Total count = " & Counter1.Count())
       Console.WriteLine("Total count = " & Counter2.Count())
   End Sub

End Class Public Class Counter

   Shared Data As Integer = 0
   Public Function Count() As Integer
       Data += 1
       Return Data
   End Function

End Class</source>

Total count = 1
Total count = 2
Total count = 3
Total count = 4
Total count = 5
Total count = 6
Total count = 7
Total count = 8