专家坐堂-[求助]请问老师们，如何实现任务栏，通过选择任务在标签页创建对应名称的窗口？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

-- [求助]请问老师们，如何实现任务栏，通过选择任务在标签页创建对应名称的窗口？

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

TopicLinkClick的代码如下，该代码是根据导航栏修改的，导航栏是没有问题的，但任务栏不行，请教老师们解惑。谢谢！
下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

Select Case e.Link.Name

Case "设备档案"

\'\' 获取选项卡控件

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")

\' 获取任务栏控件

Dim top As WinForm.TopicBar = e.Sender

\' 检查是否已经存在相应的选项卡页签

Dim tabPageExists As Boolean = False

For i As Integer = 0 To tab.TabPages.Count - 1

If tab.TabPages(i).Name = top.Name Then

\' 如果存在，设置选中的页签并标记存在

tab.SelectedIndex = i

tabPageExists = True

Exit For

End If

If Not tabPageExists Then

\' 如果选项卡页签不存在，检查是否已经存在相应的窗体

If Forms.Contains(top.Name) Then

\' 如果窗体已存在，直接切换到对应选项卡

tab.TabPages.Add(top.Name, top.Name)

tab.SelectedIndex = tab.TabPages.Count - 1

\' 停止窗体重绘，提高性能

e.Form.StopRedraw

tab.TabPages.Add(top.Name, top.Name)

Forms(top.Name).Open( - 1000, - 1500)

Forms(top.Name).BaseForm.TopLevel = False

Forms(top.Name).BaseForm.FormBorderStyle = System.Windows.Forms.FormBorderStyle.None

Forms(top.Name).BaseForm.Dock = System.Windows.Forms.DockStyle.Fill

Forms(top.Name).BaseForm.AutoScroll = True

tab.TabPages(top.Name).Controls.Add(F

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1.zip

orms(top.Name).BaseForm)

tab.SelectedPage = tab.TabPages(top.Name)

BaseMainForm.Activate()

e.Form.ResumeRedraw

Else

\' 如果窗体不存在，显示建设中的提示信息

MessageBox.Show("建设中……敬请期待！", "提示", MessageBoxButtons.OK, MessageBoxIcon.Warning)

End If

End Select