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


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

主题:[求助]TabControl 可以让某个页签标题不显示吗

帅哥哟,离线,有人找我吗?
blsu33
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望: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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望: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


加好友 发短信
等级:超级版主 帖子:105468 积分:536325 威望: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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望: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


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

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

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20180717222500.png
图片点击可在新窗口打开查看


 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105468 积分:536325 威望: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


加好友 发短信
等级:九尾狐 帖子:2927 积分:20161 威望: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


加好友 发短信
等级:超级版主 帖子:105468 积分:536325 威望: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 下一页