以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  点分页集合页面自动打开导航栏中相应的加载目录树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=154032)

--  作者：采菊东篱下 --  发布时间：2020/9/1 17:27:00 --  点分页集合页面自动打开导航栏中相应的加载目录树 我这样写报错： Dim pg As WinForm.TabPage Dim Bar As WinForm.NavBar = e.Form.Controls("NavBar1") If pg = Forms("主窗口").Controls("TabControl1").TabPages(0) Then     Bar.SelectedPage = Bar.NavPages("比赛积分") ElseIf pg = Forms("主窗口").Controls("TabControl1").TabPages(1) Then     Bar.SelectedPage = Bar.NavPages("基本信息") ElseIf pg = Forms("主窗口").Controls("TabControl1").TabPages(2) Then     Bar.SelectedPage = Bar.NavPages("团体或个人分组") End If

--  作者：有点蓝 --  发布时间：2020/9/1 17:38:00 --   使用文字描述一下要做什么功能

--  作者：采菊东篱下 --  发布时间：2020/9/1 17:42:00 --   如题啊，点分页集合页面自动打开导航栏中相应的加载目录树。

--  作者：采菊东篱下 --  发布时间：2020/9/1 17:43:00 --   密码：888888  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:象棋排赛2020831未保存前.foxdb

--  作者：有点蓝 --  发布时间：2020/9/1 20:12:00 --   把导航栏的SelectedIndexChanged事件搬过来，互换一下控件引用即可，同样的用法，换个控件就不会用，服了... Systemready = False Dim Bar As WinForm.NavBar = e.Form.Controls("NavBar1") Dim tab As WinForm.TabControl = e.sender Select Case tab.SelectedPage.Text     Case "比赛积分"         Bar.SelectedIndex = 0     Case "基本信息"         Bar.SelectedIndex = 1     Case "分组"         Bar.SelectedIndex = 2 End Select Systemready = True

--  作者：采菊东篱下 --  发布时间：2020/9/1 21:06:00 --   我换过了，报错啊，不行我才用自己的理解改写。