- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 为何访问兰、配置兰不能形成目录树（已解决） (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=59678)
-- 发布时间：2014/11/8 11:11:00
-- 为何访问兰、配置兰不能形成目录树（已解决）
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
tv.Nodes.Clear
For Each itm As RibbonMenu.RibbonItem In QAT.Items
If tv.Nodes.Contains(itm.Name) = False
tv.Nodes.Add(itm.Name)
End If
For Each itm1 As RibbonMenu.RibbonItem In *******
If tv.Nodes(itm.Name).Nodes.Contains(itm1.Name) = False Then
tv.Nodes(itm.Name).Nodes.Add(itm1.Name)
End If
Next
Next
******处如何写代码
[此贴子已经被作者于2014-11-9 9:20:38编辑过]
-- 发布时间：2014/11/8 11:17:00
--
For Each itm1 As RibbonMenu.RibbonItem In itm.items
[此贴子已经被作者于2014-11-8 11:17:59编辑过]
-- 发布时间：2014/11/8 11:23:00
--
谢谢
出现 items不是 RibbonMenu.RibbonItem 的成员
错误代码 For Each itm1 As RibbonMenu.RibbonItem In itm.items
-- 发布时间：2014/11/8 11:27:00
--
QAT.Items 没有下级菜单的啊
-- 发布时间：2014/11/8 11:42:00
--
访问栏下不是可以加菜单按钮吗？
如菜单按钮为节点0
菜单按钮下的按钮为节点1
...
-- 发布时间：2014/11/8 11:43:00
--
上例子
-- 发布时间：2014/11/8 12:03:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.table |
-- 发布时间：2014/11/8 21:08:00
--
Dim tv As WinForm.TreeView = e.Form.Controls("TreeView1")
tv.Nodes.Clear
For Each itm As object In QAT.Items
Dim nd As object = tv.Nodes.Add(itm.Name)
If itm.Gettype.name <> "Button" Then
For Each citm As object In itm.items
Dim cnd As object = nd.Nodes.Add(citm.Name)
If citm.Gettype.name <> "Button" Then
For Each ccitm As RibbonMenu.RibbonItem In citm.items
Dim ccnd As object = cnd.Nodes.Add(ccitm.Name)
Next
End If
Next
End If
Next
-- 发布时间：2014/11/9 8:26:00
--
非常感谢有点甜老师
有个问题继续问一下
上述代码是在访问拦下无分隔条的情况下完成的非常好
当有分隔条是显示
未找到类型“Separator”的公共成员“items”。
[此贴子已经被作者于2014-11-9 8:37:22编辑过]
-- 发布时间：2014/11/9 9:07:00
--
在有点甜老师的帮助下已解决，再次感谢有点甜老师
[此贴子已经被作者于2014-11-10 21:33:49编辑过]