- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 双击目录树节点选择相应页面集合代码求教。 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=7163)
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：2010/5/21 15:04:00
--
楼上代码是假设页面标题和节点名称一致，如果是页面名称和节点名称一致，要将上面代码中的Text改成Name。
-- 发布时间：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
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
绝，原来还可以逆向思考啊。。。