以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  afterload的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93558)
--  作者：lk15502
--  发布时间：2016/12/1 14:02:00
--  afterload的代码
 不好意思，有一段代码看不懂了，在导航窗口的afterload事件中，请老师解释一下，特别是basecontrol 和t.Animation = 1；和整段代码的作用，惭愧！
Dim tpb As WinForm.TopicBar = e.Form.Controls("TopicBar1")
Dim t = tpb.basecontrol
t.Animation = 1
For Each page As WinForm.TopicPage In tpb.Pages
    page.Collapsed = True
Next 
--  作者：有点蓝
--  发布时间：2016/12/1 14:23:00
--  
关闭TopicBar 控件的动画功能。不然可能会出现项目堆到一起的情况。

这些都是基于一定的代码开发基础上面才可以理解的。初学者不必理会这些，还不如多看看编程基础。