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

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

我的菜单代码是：

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