\'点击任务栏中任务时,页面集合显示相应页面,并显示在打开的页面,可关闭页面,
Dim tab As WinForm.TabControl = e.Form.Controls("页面集合")
Dim count As Integer = 0
For Each p As object In tab.TabPages
If p.visible Then count += 1
Next
If tab.TabPages(e.Link.Name) Is Nothing Then
tab.TabPages.Add(e.Link.Name,e.Link.Name)
Else
If tab.TabPages(e.Link.Name).Visible = False Then
Dim btab = tab.basecontrol
btab.tabpages.Insert(count, btab.TabPages(e.Link.Name))
tab.TabPages(e.Link.Name).Visible = True
Else
tab.TabPages(e.Link.Name).Visible = True
End If
End If
tab.SelectedPage = tab.TabPages(e.Link.Name)
不知怎么回事?请老师指点,谢谢,需要其他材料我再上传!