VB.Net Tutorial/Class Module/Shared — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
Admin (обсуждение | вклад) м (1 версия) |
(нет различий)
|
Текущая версия на 12:55, 26 мая 2010
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
0 cats adopted A is 5 pounds 1 cats adopted B is 7 pounds 2 cats adopted 2 cats adopted
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
Total count = 1 Total count = 2 Total count = 3 Total count = 4 Total count = 5 Total count = 6 Total count = 7 Total count = 8