以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]选择目录树节点如何使TabControl自动跳转到对应名称的页  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=187089)
--  作者：xuxingbo
--  发布时间：2023/6/20 15:29:00
--  [求助]选择目录树节点如何使TabControl自动跳转到对应名称的页
有一个两级的目录树，节点名称与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

为什么实现不了
--  作者：有点蓝
--  发布时间：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
--  发布时间：2023/6/20 16:20:00
--  
是标题
--  作者：有点蓝
--  发布时间：2023/6/20 16:32:00
--  
标题使用text属性，比如

name  = e.Node.Text
--  作者：xuxingbo
--  发布时间：2023/6/20 16:44:00
--  
我试过了改成TEXT也是引用的名称，不填名称不好用，是不是 tab.TabPages(name)这个只能调用名称啊
--  作者：有点蓝
--  发布时间：2023/6/20 16:54:00
--  
是