Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何写判断代码，当选择目录树某层节点后对应打开相应页签？


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

主题：如何写判断代码，当选择目录树某层节点后对应打开相应页签？
帅哥哟，离线，有人找我吗？
李孝春
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		如何写判断代码，当选择目录树某层节点后对应打开相应页签？  发帖心情 Post By：2014/3/2 10:04:00 [只看该作者]

求教：
 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:我的工作台 - 副本.zip


此主题相关图片如下：qq图片1111.jpg
按此在新窗口浏览图片
如何写判断代码，当选择目录树某层节点后对应打开相应页签？

目前采用的是双击目录树节点打开对应节点名称页签
For i As integer = 0 to e.Form.Controls("TabControl1").TabPages.Count -1
    if e.Form.Controls("TabControl1").TabPages(i).Text = e.Node.Name Then
        e.Form.Controls("TabControl1").SelectedIndex = i
    End If
Next
这个代码

求教在这个代码中添加一个判断，需要实现：

判断一下选中节点的目录树层级  Level

 

如果是1，第二层被选择的页面名 = 目录树当前选中的节点名

 

如果是2，第一层被选择的页面名 = 目录树当前选中的父节点名

              第二层被选择的页面名 = 目录树当前选中的节点名


目录树节点截图已经放上，要求点目录树对应的节点都能够打开对应下面的页签,实现效果：双击“信息采集”打开信息采集页签，双击计算机打开信息采集下的计算机页签
 回到顶部
帅哥哟，离线，有人找我吗？
y2287958
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：4760 积分：34608 威望：0 精华：0 注册：2008/8/31 22:44:00 		  发帖心情 Post By：2014/3/2 11:51:00 [只看该作者]

没有项目文件

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2014/3/2 20:59:00 [只看该作者]

 如下代码

Dim tab1 As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim tab2 As WinForm.TabControl = e.Form.Controls("TabControl2")
If e.Node.Level = 2 Then
    tab1.SelectedPage = tab1.TabPages(e.Node.FullPath.Split("\")(2))
Else If e.Node.Level = 3 Then
    tab1.SelectedPage = tab1.TabPages(e.Node.FullPath.Split("\")(2))
    tab2.SelectedPage = tab2.TabPages(e.Node.FullPath.Split("\")(3))
End If
 回到顶部
帅哥哟，离线，有人找我吗？
李孝春
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00 		感谢有点甜  发帖心情 Post By：2014/3/3 15:02:00 [只看该作者]

感谢有点甜

 回到顶部
帅哥哟，离线，有人找我吗？
lsy
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：5246 积分：33163 威望：0 精华：8 注册：2013/1/17 21:28:00 		  发帖心情 Post By：2014/3/3 15:15:00 [只看该作者]

这个通用，不判断目录树层级，也不用判断目录树生成列的顺序：

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=46970&replyID=&skin=1
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03711 秒, 5 次数据查询