For i As Integer = 0 To MenuS.Items.Count - 1 Dim newmenu As object = MenuS.Items(i) Dim nd As WinForm.TreeNode = treeV.Nodes.Add(newmenu.Text) For j As Integer = 0 To newmenu.DropDownItems.Count - 1 Dim cnewmenu As object = newmenu.DropDownItems(j) Dim cnd As WinForm.TreeNode = nd.Nodes.Add(cnewmenu.Text) Next Next
|