以文本方式查看主题

-  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,第一层被选择的页面名 = 目录树当前选中的父节点名

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


目录树节点截图已经放上,要求点目录树对应的节点都能够打开对应下面的页签,实现效果:双击“信息采集”打开信息采集页签,双击计算机打开信息采集下的计算机页签


--  作者:y2287958
--  发布时间: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
--  感谢有点甜
感谢有点甜
--  作者:lsy
--  发布时间:2014/3/3 15:15:00
--  

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

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=46970&replyID=&skin=1