Visual Basic.NET How to Program (PDF)

Chapter 8 Object-Based Programming 329
10 ' number of objects in memory
11 Private Shared mCount As Integer
12
13 ' CEmployee2 constructor
14 Public Sub New(ByVal firstNameValue As String, _
15 ByVal lastNameValue As String)
16
17 mFirstName = firstNameValue
18 mLastName = lastNameValue
19
20 mCount += 1 ' increment shared count of employees
21 Console.WriteLine _
22 ("Employee object constructor: " & mFirstName & _
23 " " & mLastName)
24 End Sub ' New
25
26 ' finalizer method decrements Shared count of employees
27 Protected Overrides Sub Finalize()
28 mCount -= 1 ' decrement mCount, resulting in one fewer object
29 Console.WriteLine _
30 ("Employee object finalizer: " & mFirstName & _
31 " " & mLastName & "; count = " & mCount)
32 End Sub ' Finalize
33
34 ' return first name
35 Public ReadOnly Property FirstName() As String
36
37 Get
38 Return mFirstName
39 End Get
40
41 End Property ' FirstName
42
43 ' return last name
44 Public ReadOnly Property LastName() As String
45
46 Get
47 Return mLastName
48 End Get
49
50 End Property ' LastName
51
52 ' property Count
53 Public ReadOnly Shared Property Count() As Integer
54
55 Get
56 Return mCount
57 End Get
58
59 End Property ' Count
60
61 End Class ' CEmployee2
Fig. 8.13 CEmployee2 class objects share Shared variable (part 2 of 2).