如何使用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

最终我得到了解决这个问题的方法，

Please Refer this Link

本规范通过少量修改解决了这个问题。

由于