控件全局代码求助 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

按钮名称改成规则的，如 btn_窗口_01 、 btn_窗口_02 这样，然后改代码

If e.sender.name.startswith("btn_窗口_") Then
    Dim tab As WinForm.TabControl = e.Form.Controls("TabControl1")
    Dim Name As String = e.Sender.Text '获取按钮名称
    If tab.TabPages(name) Is Nothing Then
        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)
    End If
    tab.SelectedPage = tab.TabPages(name)
End If

主题：控件全局代码 求助

主题：控件全局代码求助