以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=62114)
--  作者：hbhb
--  发布时间：2014/12/25 17:10:00
--  请教

大师：好！

圣诞快乐！

请问：下面的代码在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
--  作者：有点甜
--  发布时间：2014/12/25 17:13:00
--  

 算是bug了。

 

 把代码写到timertick事件去，点击的时候，开启一下计时器事件。
--  作者：hbhb
--  发布时间：2014/12/25 18:57:00
--  
If page.Name <> e.Page.Name Then

请问红色部分怎麽写？
--  作者：有点甜
--  发布时间：2014/12/25 19:05:00
--  
 用一个全局变量，在事件里赋值，然后在计时器里使用。
--  作者：hbhb
--  发布时间：2014/12/25 19:09:00
--  
这样的话写在哪个事件里？
--  作者：hbhb
--  发布时间：2014/12/25 19:12:00
--  
您有无试过？
--  作者：有点甜
--  发布时间：2014/12/25 19:31:00
--  

理解力这么差么？

 

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
--  作者：hbhb
--  发布时间：2014/12/25 19:49:00
--  
我理解能力测试为1/n  ,n趋于无穷大！
请问vars("page")变量是和类型？
--  作者：hbhb
--  发布时间：2014/12/25 19:50:00
--  
请问vars("page")变量是何类型？
--  作者：有点甜
--  发布时间：2014/12/25 19:50:00
--  
 object 可以任意类型。