Foxtable(狐表)用户栏目专家坐堂 → 如何写判断代码,当选择目录树某层节点后对应打开相应页签?


  共有4608人关注过本帖树形打印复制链接

主题:如何写判断代码,当选择目录树某层节点后对应打开相应页签?

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2014/3/2 20:59:00 [显示全部帖子]

 如下代码

Dim tab1 As WinForm.TabControl = e.Form.Controls("TabControl1")
Dim tab2 As WinForm.TabControl = e.Form.Controls("TabControl2")
If e.Node.Level = 2 Then
    tab1.SelectedPage = tab1.TabPages(e.Node.FullPath.Split("\")(2))
Else If e.Node.Level = 3 Then
    tab1.SelectedPage = tab1.TabPages(e.Node.FullPath.Split("\")(2))
    tab2.SelectedPage = tab2.TabPages(e.Node.FullPath.Split("\")(3))
End If

 回到顶部