主题：求助关于独立窗口 菜单如何保留 有项目文件

 独立窗口预览的时候有菜单，通过下面菜单代码就看不见窗口菜单了

我的菜单代码是：

For ig As Integer = 0 To Forms("主界面").Controls("导航").TabPages.Count -1
        If Forms("主界面").Controls("导航").TabPages(ig).text = "窗口1" Then
            Forms("主界面").Controls("导航").SelectedIndex = ig
            Return
        End If
    Next
   
    Dim spxx As WinForm.TabControl
    spxx = Forms("主界面").Controls("导航")
    spxx.TabPages.Add("窗口1","窗口1")
    Forms("窗口1").open
    forms("窗口1").Visible = False
    If Forms("窗口1").opened Then
        Dim ymy As WinForm.Panel = Forms("窗口1").Controls("Panel1")
        spxx.TabPages("窗口1").AddControl(ymy)
        ymy.Dock = Windows.Forms.DockStyle.fill
        spxx.SelectedIndex = spxx.TabPages.Count-1
    End If

我觉得问题应该是出在 Dim ymy As WinForm.Panel = Forms("窗口1").Controls("Panel1")
菜单并不位于Panel1控件里，所以没有带过去。

麻烦各位老师解答一下，帮我修改下，能保留这种导航风格并能使菜单显示，万分感谢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目2.foxdb

For ig As Integer = 0 To Forms("主界面").Controls("导航").TabPages.Count -1
    If Forms("主界面").Controls("导航").TabPages(ig).text = "窗口1" Then
        Forms("主界面").Controls("导航").SelectedIndex = ig
        Return
    End If
Next

Dim tab As WinForm.TabControl = Forms("主界面").Controls("导航")
Dim Name As String = "窗口1"

tab.TabPages.Add(name,name)
Dim pb = tab.BaseControl
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.TabPages(name).Controls.Clear
PB.TabPages(name).Controls.add(Forms(Name).BaseForm)
tab.SelectedPage = tab.TabPages(name)