Visual Basic.NET How to Program (PDF)

1162 Data Structures and Collections Chapter 23
1 ' Fig. 23.19: TreeNode.vb
2 ' Class CTreeNode represents a node in a CTree.
3
4 Public Class CTreeNode
5 Private mLeftNode As CTreeNode
6 Private mData As Integer
7 Private mRightNode As CTreeNode
8
9 ' initialize data and make that a leaf node
10 Public Sub New(ByVal nodeData As Integer)
11 mData = nodeData
12 mRightNode = Nothing ' node has no children
13 LeftNode = Nothing ' node has no children
14 End Sub ' New
15
16 ' property LeftNode
17 Public Property LeftNode() As CTreeNode
18
19 Get
20 Return mLeftNode
21 End Get
22
23 Set(ByVal value As CTreeNode)
24 mLeftNode = value
25 End Set
26
27 End Property ' LeftNode
28
29 ' property Data
30 Public Property Data() As Integer
31
32 Get
33 Return mData
34 End Get
35
36 Set(ByVal value As Integer)
37 mData = value
38 End Set
39
40 End Property ' Data
41
42 ' property RightNode
43 Public Property RightNode() As CTreeNode
44
45 Get
46 Return mRightNode
47 End Get
48
49 Set(ByVal value As CTreeNode)
50 mRightNode = value
51 End Set
52
53 End Property ' RightNode
Fig. 23.19 Tree-node data structure (part 1 of 2).