C# と VB.NET の質問掲示板

前置きですが、Parentプロパティを持たなくても、必要なことが実現できるのであれば、
できれば持たない方がいいですよ。Parentプロパティを整合性を持って管理されるように
実装するのって結構大変なんで。

> netでの独学なので、不安なのですが
> このような記述は一般的な表現方法なのでしょうか

方向性としては間違っていないと思います。
細かいところまで見ると修正すべき点はいろいろありますので、ツッコミ入れますね。

> Public Class TestNode
>     Public 親 As TestNode

せっかくプロパティを用意しているのでPublicではなくPrivate辺りが妥当ではないでしょうか。

>     Dim Nodes As List(Of TestNode)

Dimキーワードよりもこの場合であればPrivateキーワードを使う方がいいと思います。
クラスの変数としてDimを指定した場合は意味としてはPrivateですので動作上は問題ありませんが、
Privateだと明示する表現の方が好ましいです。

>     Public Sub add(ByVal value As TestNode)
>         Nodes.Add(value)
>         value.set親(Me)
>     End Sub

addではなくAddメソッドとしてください。クラスライブラリのメソッドもそうなってますよね。

また、ここではAddメソッドを実装していますが、
Removeメソッド/Insertメソッド/NodesをClearするようなメソッドが必要になった場合も
親の設定が必要になりますので注意が必要です。

>     Public Sub set親(ByVal value As TestNode)
>         Me.親 = value
>     End Sub

親の設定は外部から勝手に変更されると困るのでPublicではなくPrivateにした方がよいでしょう。

>     Public ReadOnly Property Parent()
>         Get
>             Return 親
>         End Get
>     End Property
> End Class

Parentプロパティの戻り値型の指定が漏れています。As TestNodeを付加しましょう。

また、ジェネリックスが使えるバージョンのVBなら、
プロパティのGetとSetでそれぞれ別のスコープを用意することができます。
set親メソッドを廃止して、以下のようにすれば外部からはParentプロパティは参照のみ、
クラス内部ではセットも可能というふうに記述できます。

     Public Property Parent() As TestNode
        Get
             Return 親
        End Get
        Private Set(ByVal value As TestNode)
            親= value
        End Set
     End Property

> また、もっとスマートな方法はないのでしょうか

スマートかどうかはわかりませんが、TestNodeとTestNode専用のコレクションを用意する方法にすると
TreeNodeとほぼ同じような使い方をすることができますので、使う人は使いやすいかもしれませんね。

私が書くなら・・・というサンプルです。(あくまでサンプルなので鵜呑みにしないでね)
※以下のコードは、Parentの制御は手抜きをしてAdd/Insert/Remove/RemoveAtしかやってません。

Imports System.Collections
Imports System.Collections.Generic

Public Class TestNode
    Private _parent As TestNode
    Private _nodes As TestNodeCollection
    Public Sub New()
        _nodes = New TestNodeCollection(Me)
    End Sub
    Public ReadOnly Property Nodes() As TestNodeCollection
        Get
            Return _nodes
        End Get
    End Property
    Public Property Parent() As TestNode
        Get
            Return _parent
        End Get
        Friend Set(ByVal value As TestNode)
            _parent = value
        End Set
    End Property
End Class

Public Class TestNodeCollection
    Implements IList(Of TestNode)

    Private _nodes As List(Of TestNode)
    Private _parent As TestNode

    Public Sub New(ByVal parent As TestNode)
        _parent = parent
        _nodes = New List(Of TestNode)
    End Sub

    Public Sub Add(ByVal item As TestNode) Implements ICollection(Of TestNode).Add
        item.Parent = _parent
        _nodes.Add(item)
    End Sub

    Public Sub Clear() Implements ICollection(Of TestNode).Clear
        _nodes.Clear()
    End Sub

    Public Function Contains(ByVal item As TestNode) As Boolean _
        Implements ICollection(Of TestNode).Contains
        _nodes.Contains(item)
    End Function

    Public Sub CopyTo(ByVal array() As TestNode, ByVal arrayIndex As Integer) _
        Implements ICollection(Of TestNode).CopyTo
        _nodes.CopyTo(array, arrayIndex)
    End Sub

    Public ReadOnly Property Count() As Integer Implements ICollection(Of TestNode).Count
        Get
            Return _nodes.Count
        End Get
    End Property

    Public ReadOnly Property IsReadOnly() As Boolean _
        Implements ICollection(Of TestNode).IsReadOnly
        Get
            Return False
        End Get
    End Property

    Public Function Remove(ByVal item As TestNode) As Boolean _
        Implements ICollection(Of TestNode).Remove
        item.Parent = Nothing
        Return _nodes.Remove(item)
    End Function

    Public Function GetEnumerator() As IEnumerator(Of TestNode) _
        Implements IEnumerable(Of TestNode).GetEnumerator
        Return _nodes.GetEnumerator()
    End Function

    Public Function IndexOf(ByVal item As TestNode) As Integer Implements IList(Of TestNode).IndexOf
        Return _nodes.IndexOf(item)
    End Function

    Public Sub Insert(ByVal index As Integer, ByVal item As TestNode) Implements IList(Of TestNode).Insert
        item.Parent = _parent
        _nodes.Insert(index, item)
    End Sub

    Default Public Property Item(ByVal index As Integer) As TestNode Implements IList(Of TestNode).Item
        Get
            Return _nodes.Item(index)
        End Get
        Set(ByVal value As TestNode)
            value.Parent = _parent
            _nodes.Item(index) = value
        End Set
    End Property

    Public Sub RemoveAt(ByVal index As Integer) Implements IList(Of TestNode).RemoveAt
        _nodes(index).Parent = Nothing
        _nodes.RemoveAt(index)
    End Sub

    Private Function GetEnumerator1() As IEnumerator Implements IEnumerable.GetEnumerator
        Return _nodes.GetEnumerator()
    End Function
End Class