Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]TabControl 可以让某个页签标题不显示吗


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

主题：[求助]TabControl 可以让某个页签标题不显示吗
帅哥哟，离线，有人找我吗？
blsu33
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		[求助]TabControl 可以让某个页签标题不显示吗  发帖心情 Post By：2018/7/17 0:09:00 [只看该作者]

TabControl 显示或隐藏页签标题不，能够指定某个页签显示隐藏吗？

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/17 8:52:00 [只看该作者]

不想显示，那就把页签的text设置成空字符串。

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


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/17 14:41:00 [只看该作者]

老师，
  页签上有关闭按钮 
 Dim t As C1Command.C1DockingTab = e.Form.Controls("tbl_jd_serevmain_serevmain").BaseControl
    t.CanCloseTabs = True
    t.CloseBox = 2
为空的仍然有关闭按钮，

如何让有的页签 没有 关闭按钮 有的页签没有关闭按钮同时存在？
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/17 16:34:00 [只看该作者]

不可能的

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


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/7/17 18:45:00 [只看该作者]

以下是引用blsu33在2018/7/17 14:41:00的发言：

如何让有的页签 没有 关闭按钮 有的页签没有关闭按钮同时存在？

 

那你就要用这种例子了

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=73085&skin=0

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


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/17 22:24:00 [只看该作者]

老师，


关于 页签是圆的 能放到底下 是圆的吗？

Dim sender As Object = Args(0)
Dim e As C1.Win.C1Command.DrawTabEventArgs = Args(1)

Dim Radius As Integer = 12   '圆角
Dim pg As C1Command.C1DockingTabPage = e.Page
Dim g As Graphics = e.Graphics   '画布
g.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias


Dim rect As Rectangle = e.Bounds
rect.Offset(1, 0)
rect.Inflate(-1, 0)
上面代码结果是

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180717222338.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/17 22:26:00 [只看该作者]

放到底下页面的底下时，比较难看了，能圆角朝下吗

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20180717222500.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/17 22:28:00 [只看该作者]

rect.Offset(1, 0)
rect.Inflate(-1, 0)

自己测试不同数字的效果
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2928 积分：20184 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/17 22:33:00 [只看该作者]

老师，
不懂，测试了多少遍，不知道哪个效果

应该是哪个，

改哪一个，前面的还是后面的呢？

rect.Offset(2, 1)
rect.Inflate(-2, -1)
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110450 积分：562116 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/7/17 23:24:00 [只看该作者]

细节自己调整


Dim rect As Rectangle = e.Bounds
rect.Offset(0, -1)
rect.Inflate(-1, 0)


'填充底色
Dim RoundRect As New Rectangle(new point(rect.right - Radius+1 ,rect.Bottom - Radius+1) , New Size(Radius - 2 , Radius - 2 ))
Dim path As New System.Drawing.Drawing2D.GraphicsPath
path.AddLine(rect.Right, rect.Top ,rect.Right, rect.Bottom- Radius )  '右边线 
path.AddArc(RoundRect, 0, 90)     '左上角
path.AddLine(rect.Right-Radius  , rect.Bottom,rect.left+Radius , rect.Bottom)  '下边线
RoundRect.X = rect.left+1
path.AddArc(RoundRect, 90, 180) 
path.AddLine(rect.left, rect.Bottom-Radius+1 ,rect.Left, rect.Top)  '左边线
 回到顶部
总数 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.05273 秒, 4 次数据查询