Foxtable(狐表)用户栏目专家坐堂 → 为何访问兰、配置兰不能形成目录树(已解决)


  共有3078人关注过本帖树形打印复制链接

主题:为何访问兰、配置兰不能形成目录树(已解决)

帅哥哟,离线,有人找我吗?
lyfxybc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1294 积分:9852 威望:0 精华:0 注册:2012/9/19 21:13:00
为何访问兰、配置兰不能形成目录树(已解决)  发帖心情 Post By: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编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/11/8 11:17:00 [只看该作者]

For Each itm1 As RibbonMenu.RibbonItem In  itm.items
[此贴子已经被作者于2014-11-8 11:17:59编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lyfxybc
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1294 积分:9852 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2014/11/8 11:23:00 [只看该作者]

谢谢

出现 items不是 RibbonMenu.RibbonItem 的成员

错误代码 For Each itm1 As RibbonMenu.RibbonItem In  itm.items


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/11/8 11:27:00 [只看该作者]

QAT.Items  没有下级菜单的啊

 回到顶部
帅哥哟,离线,有人找我吗?
lyfxybc
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1294 积分:9852 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2014/11/8 11:42:00 [只看该作者]

访问栏下不是可以加菜单按钮吗?

如菜单按钮为节点0

   菜单按钮下的按钮为节点1

     ... 


 回到顶部
帅哥哟,离线,有人找我吗?
Bin
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:35433 积分:178524 威望:0 精华:3 注册:2013/3/30 16:36:00
  发帖心情 Post By:2014/11/8 11:43:00 [只看该作者]

上例子

 回到顶部
帅哥哟,离线,有人找我吗?
lyfxybc
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1294 积分:9852 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2014/11/8 12:03:00 [只看该作者]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.table


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By: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

 回到顶部
帅哥哟,离线,有人找我吗?
lyfxybc
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1294 积分:9852 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2014/11/9 8:26:00 [只看该作者]

非常感谢有点甜老师

 

有个问题继续问一下

 

上述代码是在访问拦下无分隔条的情况下完成的非常好

 

当有分隔条是显示

 

                

          未找到类型“Separator”的公共成员“items”。

 

[此贴子已经被作者于2014-11-9 8:37:22编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
lyfxybc
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1294 积分:9852 威望:0 精华:0 注册:2012/9/19 21:13:00
  发帖心情 Post By:2014/11/9 9:07:00 [只看该作者]

在有点甜老师的帮助下已解决,再次感谢有点甜老师

[此贴子已经被作者于2014-11-10 21:33:49编辑过]

 回到顶部