Visual Basic.NET How to Program (PDF)

770 Files and Streams Chapter 17
1 ' Fig. 17.8: CRecord.vb
2 ' Serializable class that represents a data record.
3
4 Public Class CRecord
5
6 Private mAccount As Integer
7 Private mFirstName As String
8 Private mLastName As String
9 Private mBalance As Double
10
11 ' default constructor sets members to default values
12 Public Sub New()
13 Me.New(0, "", "", 0.0)
14 End Sub ' New
15
16 ' overloaded constructor sets members to parameter values
17 Public Sub New(ByVal accountValue As Integer, _
18 ByVal firstNameValue As String, _
19 ByVal lastNameValue As String, _
20 ByVal balanceValue As Double)
21
22 Account = accountValue
23 FirstName = firstNameValue
24 LastName = lastNameValue
25 Balance = balanceValue
26 End Sub ' New
27
28 ' property Account
29 Public Property Account() As Integer
30
31 Get
32 Return mAccount
33 End Get
34
35 Set(ByVal accountValue As Integer)
36 mAccount = accountValue
37 End Set
38
39 End Property ' Account
40
41 ' property FirstName
42 Public Property FirstName() As String
43
44 Get
45 Return mFirstName
46 End Get
47
48 Set(ByVal firstNameValue As String)
49 mFirstName = firstNameValue
50 End Set
51
52 End Property ' FirstName
Fig. 17.8 CRecord class represents a record for sequential-access file-processing
applications (part 1 of 2).