双击目录树节点选择相应页面集合代码求教。 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 双击目录树节点选择相应页面集合代码求教。

共有19949人关注过本帖树形打印复制链接主题：双击目录树节点选择相应页面集合代码求教。

菜鸟foxtable

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

双击目录树节点选择相应页面集合代码求教。 发帖心情

Post By：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

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：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

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：6318 积分：33963 威望：0 精华：10 注册：2008/8/31 20:56:00

Post By：2010/5/21 15:04:00 [只看该作者]

楼上代码是假设页面标题和节点名称一致，如果是页面名称和节点名称一致，要将上面代码中的Text改成Name。

菜鸟foxtable

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

菜鸟中的老鸟
等级：七尾狐帖子：1486 积分：10064 威望：0 精华：9 注册：2008/11/14 8:54:00

Post By：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

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

下一主题 >> << 上一主题

主题：双击目录树节点选择相应页面集合代码求教。