主题：TopicBar的动态判定和执行

在TopicLinkClick事件中，想执行判定，根据打开情况和点击的任务做不同的反应，如筛选。。

帮助中没找到介绍，该怎么用呢？

Dim tbp As WinForm.TopicBar = e.Form.Controls("账本TopicBar1")
If e.Page.Collapsed = True Then '判定页面打开
    For Each pg As WinForm.TopicPage In tbp.Pages '遍历页面
        For Each lnk As WinForm.TopicLink In pg.Links '遍历页面下的任务
            lnk.Text = lnk.Text.Trim("←")
        Next
    Next
    e.Link.Text = e.Link.Text & "←" '设置活动状态下的任务标题
    Tables("主界面_主查询Table1").Filter = "[移动单元] = '" & e.Page.Name & "'and [物料类别] = '" & e.Link.Name & "'"
End If