в 16:40, 26 мая 2010

2010-05-26T16:40:30Z

Admin: 1 версия

2010-05-26T12:55:46Z

1 версия

Новая страница

==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>
<pre class=codeResult>0 cats adopted
A is 5 pounds
1 cats adopted
B is 7 pounds
2 cats adopted
2 cats adopted</pre>

==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>
<pre class=codeResult>Total count = 1
Total count = 2
Total count = 3
Total count = 4
Total count = 5
Total count = 6
Total count = 7
Total count = 8</pre>

← Предыдущая	Версия 16:40, 26 мая 2010
(нет различий)

VB.Net Tutorial/Class Module/Shared - История изменений

в 16:40, 26 мая 2010

Admin: 1 версия