topiclinkclick的代码:Dim tbp As WinForm.TopicBar = e.Form.Controls("TopicBar1")
For Each pg As WinForm.TopicPage In tbp.Pages
For Each lnk As WinForm.TopicLink In pg.Links
lnk.Text = lnk.Name
Next
Next
e.Link.text = e.link.Name & "←"
Select Case e.link.name
Case "订单管理"
《中间切换任务的代码》
End Select
statusbar.message1 = "当前任务:" & e.link.name & " ★★★★★ "