以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  双击目录树节点选择相应页面集合代码求教。  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=7163)

--  作者:菜鸟foxtable
--  发布时间:2010/5/21 14:33:00
--  双击目录树节点选择相应页面集合代码求教。


图片点击可在新窗口打开查看此主题相关图片如下:qq截图未命名.png
图片点击可在新窗口打开查看
。。

 

 

如果是下面代码容易,由于节点与页面集合名称/标题一致,所以想简化。


 Select Case e.Node.Name
    Case
"名称1"
       
\'在此加入相应的代码
   
Case
"名称2"
       
\'在此加入相应的代码
   
Case
"名称3"
       
\'在此加入相应的代码
   
Case
"名称4"
   
\'在此加入相应的代码

End
Select

[此贴子已经被作者于2010-5-21 14:34:28编辑过]

--  作者:czy
--  发布时间:2010/5/21 15:00:00
--  
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

--  作者:czy
--  发布时间:2010/5/21 15:04:00
--  
楼上代码是假设页面标题和节点名称一致,如果是页面名称和节点名称一致,要将上面代码中的Text改成Name。
--  作者:菜鸟foxtable
--  发布时间:2010/5/21 16:46:00
--  
以下是引用czy在2010-5-21 15:00:00的发言:
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

绝,原来还可以逆向思考啊。。。