-- 作者:zyys2813
-- 发布时间:2013/12/14 15:45:00
--
是这个么?
导航_TopicBar1_TopicLinkClick
baseMainform.SuspendLayout
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.Text.Trim("←")
Next
Next
e.Link.Text = e.Link.Text & "←"
\'MarkCell = False
For Each frm As Winform.Form In Forms
If frm.Opened AndAlso frm.FormStyle = FormStyleEnum.独立 Then
frm.Close()
End If
Next
|