不好意思,有一段代码看不懂了,在导航窗口的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