- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 如何写判断代码，当选择目录树某层节点后对应打开相应页签？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=46962)
-- 发布时间：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，第一层被选择的页面名 = 目录树当前选中的父节点名
第二层被选择的页面名 = 目录树当前选中的节点名
目录树节点截图已经放上，要求点目录树对应的节点都能够打开对应下面的页签,实现效果：双击“信息采集”打开信息采集页签，双击计算机打开信息采集下的计算机页签
-- 发布时间：2014/3/2 11:51:00
--
没有项目文件
-- 发布时间：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
-- 发布时间：2014/3/3 15:02:00
-- 感谢有点甜
感谢有点甜
-- 发布时间：2014/3/3 15:15:00
--
这个通用，不判断目录树层级，也不用判断目录树生成列的顺序：
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=46970&replyID=&skin=1