Foxtable(狐表) → 用户栏目 → 专家坐堂 → 现在的页面合集的标签可以改标签背景色了吗？


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

主题：现在的页面合集的标签可以改标签背景色了吗？
帅哥哟，离线，有人找我吗？
lovemaders
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：723 积分：5058 威望：0 精华：0 注册：2014/12/30 16:52:00 		  发帖心情 Post By：2016/4/13 9:24:00 [只看该作者]

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl2")
Dim Name As String = "部门信息"

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)

 

 

 

 

这个代码帮忙完善一下吧，当已经有了部门信息这个页面后就不允许再增加了。与这个代码整合到一起，该怎么写

[此贴子已经被作者于2016/4/13 9:26:10编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/4/13 9:51:00 [只看该作者]

不允许再增加什么错误提示，代码没有什么问题

 回到顶部
帅哥哟，离线，有人找我吗？
lovemaders
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：723 积分：5058 威望：0 精华：0 注册：2014/12/30 16:52:00 		额，这些代码  发帖心情 Post By：2016/4/13 9:56:00 [只看该作者]

这些代码是放在按钮中的，点击的时候会增加一个页面出来，页面里面有引用的窗口，再点击一下又会出现一个一样名字的页面，里面就是空的了，再点击，还会出现同名的空页面，不想让他出现重复名字的空页面，也就是说完善一下这个代码，让他页面名字有了的话就不能再增加页面了。

 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/4/13 10:26:00 [只看该作者]

Dim tab As WinForm.TabControl = e.Form.Controls("TabControl2")
Dim Name As String = "部门信息"
For Each p As WinForm.TabPage In tab.TabPages
    If p.Name = Name Then Return
Next
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)
 回到顶部
帅哥哟，离线，有人找我吗？
lovemaders
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：723 积分：5058 威望：0 精华：0 注册：2014/12/30 16:52:00 		谢谢  发帖心情 Post By：2016/4/13 17:56:00 [只看该作者]

谢谢，这个放在每个按钮上估计会写很多，做成内部函数好，还是全局代码好呢？

 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2016/4/13 17:57:00 [只看该作者]

 全局代码不方便管理，内部函数修改起来方便一些。

 回到顶部
帅哥哟，离线，有人找我吗？
lovemaders
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：三尾狐 帖子：723 积分：5058 威望：0 精华：0 注册：2014/12/30 16:52:00 		我试一下看看能不能写出来  发帖心情 Post By：2016/4/13 18:35:00 [只看该作者]

我试一下看看能不能写出来

 回到顶部
总数 17 上一页 1 2
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询