该事件的完整的代码如下
Dim str As String
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("←")
str = str & lnk.text & "," '把link 的名串起来
Next
Next
e.Link.Text = e.Link.Text & "←"
Dim PB As WinForm.Panel = forms("mainform").Controls("Panel1")
Dim Name As String = e.Link.Name
forms("mainform").StopRedraw()
For Each frm As WinForm.Form In forms
If frm.Formstyle = 2 AndAlso frm.name <> name Then
If str.Contains(frm.Name & ",") = True Then ' 检测 如果是这么名字的pages 的窗口 就关闭
frm.close
End If
End If
Next
Forms(name).Close
Forms(name).OPEN(-1000,-1500) ‘经测试 是这个语句出错
Forms(name).BaseForm.TopLevel = False
Forms(name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None
Forms(name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill
PB.BaseControl.Controls.Clear
PB.BaseControl.Controls.add(Forms(name).BaseForm)
forms("mainform").Controls("窗口标题").text = name
forms("mainform").Controls("Label1").Select
Vars("当前窗口") = name
If Tables("系统更新公告").Rows(0).IsNull("更新内容") = False Then
For Each r As Row In Tables("系统更新公告").Rows
r("更新内容") = Nothing
Next
DataTables("系统更新公告").Save
End If
forms("mainform").ResumeRedraw()
加好友 
发短信
Post By：2016/6/14 18:05:00 [只看该作者]
