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
e.Page.ImageFile="2403.ico"
TopicPageCollapsed 事件
e.Page.ImageFile=nothing
加好友 
发短信
Post By：2015/6/22 11:57:00 [显示全部帖子]
