以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打开目录树节点名称对应的窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138010)
--  作者：yifan3429
--  发布时间：2019/7/20 15:37:00
--  打开目录树节点名称对应的窗口
If Forms.Contains(e.node.text) Then
        Dim Name As String = e.Node.Text \'获取节点名称
   这里不知道怎么写了  打开目录树节点名称对应的窗口
    End If
    tab.SelectedPage = tab.TabPages(name)
Else
    msgbox( e.node.text & "  正在测试中！ 尚未开放")
End If
[此贴子已经被作者于2019/7/20 15:37:47编辑过]
--  作者：有点蓝
--  发布时间：2019/7/20 15:48:00
--  
Forms(e.node.text).show
--  作者：yifan3429
--  发布时间：2019/7/20 16:16:00
--  
If Forms.Contains(e.node.text) Then
    Dim Name As String = e.Node.Text \'获取节点名称
    If TabPages(name) Is Nothing Then
        Forms(e.node.text).show
    End If
Else
    msgbox( e.node.text & "  正在测试 中尚未开放")
End If

会报错
--  作者：有点蓝
--  发布时间：2019/7/20 16:25:00
--  
If Forms.Contains(e.node.text) Then
    Forms(e.node.text).show
Else
    msgbox( e.node.text & "  正在测试 中尚未开放")
End If