Foxtable(狐表)用户栏目专家坐堂 → [求助]选择目录树节点如何使TabControl自动跳转到对应名称的页


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

主题:[求助]选择目录树节点如何使TabControl自动跳转到对应名称的页

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


加好友 发短信
等级:幼狐 帖子:81 积分:979 威望:0 精华:0 注册:2017/11/19 21:02:00
[求助]选择目录树节点如何使TabControl自动跳转到对应名称的页  发帖心情 Post By:2023/6/20 15:29:00 [只看该作者]

有一个两级的目录树,节点名称与TabControl页名称一致,如何做到点击目录树的第二级节点TabControl自动打开对应的页
我在目录树的NodeMouseClick事件里编辑代码如下:
Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
Select Case e.Node.Level
    Case 0
        For i As Integer = 0 To tab.TabPages.Count - 1
            If tab.TabPages(i).Name = e.Node.Name Then
                tab.SelectedIndex = i
                Return
            End If
        Next 
    Case 1
        For i As Integer = 0 To tab.TabPages.Count - 1
            If tab.TabPages(i).Name = e.Node.parentnode.Name Then
                tab.SelectedIndex = i
                Return
            End If
        Next 
End Select

为什么实现不了

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/20 15:36:00 [只看该作者]

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
dim name as string
Select Case e.Node.Level
    Case 0
            name  = e.Node.Name 
    Case 1
            name   = e.Node.parentnode.Name
End Select
tab.SelectedPage = tab.TabPages(name)

另外确定树节点和页签使用的是名称,而不是标题?

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


加好友 发短信
等级:幼狐 帖子:81 积分:979 威望:0 精华:0 注册:2017/11/19 21:02:00
  发帖心情 Post By:2023/6/20 16:20:00 [只看该作者]

是标题

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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/20 16:32:00 [只看该作者]

标题使用text属性,比如

name  = e.Node.Text

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


加好友 发短信
等级:幼狐 帖子:81 积分:979 威望:0 精华:0 注册:2017/11/19 21:02:00
  发帖心情 Post By:2023/6/20 16:44:00 [只看该作者]

我试过了改成TEXT也是引用的名称,不填名称不好用,是不是 tab.TabPages(name)这个只能调用名称啊


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


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/20 16:54:00 [只看该作者]


 回到顶部