- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]TabControl 可以让某个页签标题不显示吗 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=121986)
-- 发布时间：2018/7/17 0:09:00
-- [求助]TabControl 可以让某个页签标题不显示吗
TabControl 显示或隐藏页签标题不，能够指定某个页签显示隐藏吗？
-- 发布时间：2018/7/17 8:52:00
--
不想显示，那就把页签的text设置成空字符串。
-- 发布时间：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
为空的仍然有关闭按钮，
如何让有的页签 没有 关闭按钮 有的页签没有关闭按钮同时存在？
-- 发布时间：2018/7/17 16:34:00
--
不可能的
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2018/7/17 22:26:00
--
放到底下页面的底下时，比较难看了，能圆角朝下吗
此主题相关图片如下：qq图片20180717222500.png
-- 发布时间：2018/7/17 22:28:00
--
rect.Offset(1, 0)
rect.Inflate(-1, 0)
自己测试不同数字的效果
-- 发布时间：2018/7/17 22:33:00
--
老师，
不懂，测试了多少遍，不知道哪个效果
应该是哪个，
改哪一个，前面的还是后面的呢？
rect.Offset(2, 1)
rect.Inflate(-2, -1)
-- 发布时间：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) \'左边线