主题：请教

大师：好！

圣诞快乐！

请问：下面的代码在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

 算是bug了。

 

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

If page.Name <> e.Page.Name Then

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

这样的话写在哪个事件里？

您有无试过？

理解力这么差么？

 

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

我理解能力测试为1/n  ,n趋于无穷大！

请问vars("page")变量是何类型？

 object 可以任意类型。