主题：请教

 算是bug了。

 

 把代码写到timertick事件去，点击的时候，开启一下计时器事件。

 用一个全局变量，在事件里赋值，然后在计时器里使用。

理解力这么差么？

 

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

 

----------

 

vars("page") = e.Page
e.Form.TimerEnabled = True

 object 可以任意类型。

 

你可以弄成string类型。然后存储 e.Page.Name 即可。

 是不是你设置的名称不对？

 

 改成 e.Page.Text 看看

 你去看你的任务的名称是什么、标题是什么，你设置成什么，代码及怎么写啊

 没有错啊，不行就做例子发上来。