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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 控件全局代码求助

共有2022人关注过本帖树形打印复制链接主题：控件全局代码求助

yifan3429

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

控件全局代码求助 发帖心情

Post By：2018/3/1 21:00:00 [只看该作者]

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)

下面每个按键的代码都一样怎么简化不用每个按键输入代码

此主题相关图片如下：微信截图_20180304205801.png

[此贴子已经被作者于2018/3/1 20:59:54编辑过]

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/1 21:58:00 [只看该作者]

按钮名称改成规则的，如 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

yifan3429

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2482 积分：22932 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2018/3/1 22:14:00 [只看该作者]

放在哪呢

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/3/1 22:33:00 [只看该作者]

click事件

下一主题 >> << 上一主题

主题：控件全局代码 求助

主题：控件全局代码求助