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


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

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


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

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

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


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：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
为空的仍然有关闭按钮，

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


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：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
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/17 22:26:00 [显示全部帖子]

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

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


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/17 22:33:00 [显示全部帖子]

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

应该是哪个，

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

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


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/18 8:56:00 [显示全部帖子]

老师，
能给在调整下吗，不懂代码越调越难看，要的是圆角，麻烦您了

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


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/18 9:53:00 [显示全部帖子]

老师，
 为啥上述例子没有看到效果图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20167 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/7/18 10:06:00 [显示全部帖子]

'填充底色
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)  '左边线


希望 页签 在底部 显示为半圆边角，半圆边角朝下，但是失败

此主题相关图片如下：qq图片20180717222500.png
按此在新窗口浏览图片

[此贴子已经被作者于2018/7/18 10:07:20编辑过]
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 5 次数据查询