如何控制任务栏（topicbar)只打开一个页面,单击当前页面的时候，其它的页面都折叠收起，不知怎么写代码。

希望展开一个页面的同时，关闭其它页面，为此可将TopicPageExpanded事件代码设置为：

Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> e.Page.Name Then
        page.Collapsed = True
    End If
Next

参见  TopicPageExpanded

试了一下，选择其中的一个页面，出现跳的现象，就是说，点击的页面没有打开，另一个页面打开了。这是什么原因。

再在窗口的 AfterLoad 事件中加入下列代码， 试一下

还是不行，没办法了，肯定是foxtable中的一个BUg，望狐爸解决。

2016.3.13版就有这个问题

请狐爸看看是否能解决这个bug。

请狐爸看看此贴。

狐狸爸爸看到此帖了吗？

timertick事件

 

e.form.TimerEnabled = False
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each page As WinForm.TopicPage In tpb.Pages
    If page.Name <> vars("curr").name Then
        page.Collapsed = True
    End If
Next

 

TopicPageExpanded 事件

 

vars("curr") = e.Page
e.form.TimerInterval = 500
e.Form.TimerEnabled = True