VB.Net Tutorial/Class Module/Shared — различия между версиями
Admin (обсуждение | вклад) м (1 версия) |
|
(нет различий)
|
Версия 19:40, 26 мая 2010
<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
<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