如何使用VB.NET 2005在Treeview中添加ToolStripMenuitem

Question

我有如下的Toolstripmenuitem，

使用下面的代碼，我得到的結果是，

For Each t As ToolStripItem In fobj.MenuStrip1.Items
        Dim parentnode As TreeNode = TreeView1.Nodes.Add(t.Name, t.Name)
        GetMenues(t, menues, parentnode, 1)
        parentnode.Expand()
Next

Public Sub GetMenues(ByVal Current As ToolStripItem, ByRef menues As List(Of ToolStripItem), ByVal parentnode As TreeNode, ByVal s As Integer)
    If Not String.Compare(s.ToString, "1") = 0 Then
        Dim fatherNode As TreeNode = parentnode.Nodes.Add(Current.Name, Current.Name)
    End If
    If TypeOf (Current) Is ToolStripMenuItem Then
        For Each menu As ToolStripItem In DirectCast(Current, ToolStripMenuItem).DropDownItems
            GetMenues(menu, menues, parentnode, s + 1)
        Next
    End If
End Sub

現在我想按如下順序將其添加到樹視圖中

謝謝

Answer 1

最后我得到了這個問題的解決方案，

請參考此鏈接

對該代碼進行少量修改即可解決該問題。

謝謝