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


  共有2025人关注过本帖树形打印复制链接

主题:控件全局代码 求助

帅哥哟,离线,有人找我吗?
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事件

 回到顶部