https://keijiban.umayadia.com/ThreadDetail.aspx?ThreadId=30591#CommentId84397
投稿者 魔界の仮面弁士  (社会人) 投稿日時 2021/2/14 18:29:39
> 「TreeNodeの親を辿って、RootNodeを得る」

Parent プロパティが親ノードを表しています。
最上位ノード(RootNode)は、Parent が Nothing になります。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim node As TreeNode = TreeView1.SelectedNode

    Dim rootNode As TreeNode = node

    Do Until rootNode.Parent Is Nothing

        rootNode = rootNode.Parent

    Loop

    rootNode.Text = "これがルートです。"

End Sub
0