TabControl样式调整 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → TabControl样式调整

共有3833人关注过本帖树形打印复制链接主题：TabControl样式调整

cd_tdh

小大 1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3094 积分：20656 威望：0 精华：0 注册：2016/3/28 16:57:00

TabControl样式调整 发帖心情

Post By：2021/11/22 9:28:00 [只看该作者]

老师，以下代码调整TabControl样式，部分成功，部分不成功，请看看有什么问题

Dim tab As WinForm.TabControl = Forms("主窗口").Controls("TabControl1")
Dim c1tab As C1.Win.C1Command.C1DockingTab = tab.basecontrol
c1tab.VisualStyle = C1.Win.C1Command.VisualStyle.Custom
c1tab.TabAreaBackColor = Color.SteelBlue '标题区域的背景色,修改成功
c1tab.BackColor = Color.Red              '控件背景色,修改不成功
c1tab.SelectedTabBold = True             '选中的页签标题加粗,修改成功
Dim pg As WinForm.TabPage = tab.SelectedPage '当前页面
pg.TabForeColorSelected= Color.SteelBlue         '选定项标题字体颜色,修改成功
pg.TabBackColor = Color.White 'Red              '鼠标进入标题背景色,修改不成功
pg.TabBackColorSelected = Color.SteelBlue        '选定页面标题背景色,修改不成功
pg.BackColor = Color.White                   '选定页面背景色,修改成功

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/22 9:35:00 [只看该作者]

去掉样式

tab.Theme = "(none)"

cd_tdh

小大 3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3094 积分：20656 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2021/11/22 11:20:00 [只看该作者]

去掉后，标题区域的背景色修改不成功

c1tab.TabAreaBackColor = Color.SteelBlue

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：107147 积分：544978 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/11/22 11:41:00 [只看该作者]

Dim tab As WinForm.TabControl = Forms("窗口1").Controls("TabControl1")

tab.Theme = "(none)"

Dim c1tab As C1.Win.C1Command.C1DockingTab = tab.basecontrol

c1tab.VisualStyle = C1.Win.C1Command.VisualStyle.Custom

c1tab.TabStyle = 2

c1tab.TabAreaBackColor = Color.Blue

cd_tdh

小大 5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐精帖子：3094 积分：20656 威望：0 精华：0 注册：2016/3/28 16:57:00

Post By：2021/11/22 12:33:00 [只看该作者]

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20211122122928.jpg

这就好看多了，就差图表的柱状图的颜色了，这样几个图表几个颜色，每次刷新还是变一个颜色，现在这个结果是之前按照老师的代码修改了的，怎么指定柱状图的颜色呢？

Dim b As C1.Win.C1Chart.C1Chart = e.Form.Controls("Chart3").BaseControl
b.BackColor = Color.white
b.ChartArea.Style.BackColor = Color.white '图板颜色
b.ChartArea.Style.Border.BorderStyle = 0  '图板外形框线型
b.ChartArea.Style.GradientStyle = 0    '图板外形框样式

这样报错

Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.AxisX.LineStyle.Color = Color.Red 'X坐标轴颜色（这样报错）

[此贴子已经被作者于2021/11/22 13:14:00编辑过]