以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]tabcontrol控件页签的背景颜色如何设置？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=22448)
--  作者：kolen
--  发布时间：2012/8/13 15:07:00
--  [求助]tabcontrol控件页签的背景颜色如何设置？

tabcontrol控件页签的背景颜色如何设置？

 

1、tabcontrol控件背景色可以这样：

Dim cmb As WinForm.TabPage
cmb = e.Form.Controls("TabControl1").TabPages(0)
cmb.BackColor = Color.Red

 

2、tabcontrol控件页签标题的字体大小、颜色可以现成的在控件属性中设置

 

3、tabcontrol控件页签的背景颜色如何设置？

请哪位老师指导下，谢谢！


图片点击可在新窗口打开查看此主题相关图片如下：未命名.jpg
图片点击可在新窗口打开查看

 

 
--  作者：飞
--  发布时间：2012/8/13 17:04:00
--  
Dim cmb As WinForm.TabPage
cmb = e.Form.Controls("TabControl1").TabPages(0)
cmb.TabBackColor = Color.Red
--  作者：kolen
--  发布时间：2012/8/13 17:51:00
--  
以下是引用飞在2012-8-13 17:04:00的发言：
Dim cmb As WinForm.TabPage
cmb = e.Form.Controls("TabControl1").TabPages(0)
cmb.TabBackColor = Color.Red

飞老师，这个TabBackColor，测试了不行哦！
--  作者：飞
--  发布时间：2012/8/14 9:14:00
--  

貌似要先设置visualstyle之后tabbackcolor才会生效的,

你先在前面加上

e.Form.Controls("TabControl1").basecontrol.visualstyle = 0

 

把0分别从0一路改到14看哪个样式下面可以改标签背景颜色
--  作者：kolen
--  发布时间：2012/8/14 11:09:00
--  

飞老师，测试完了，还是不行了。从0-14都试了。

e.Form.Controls("TabControl1").basecontrol.visualstyle = 14
Dim cmb As WinForm.TabPage
cmb = e.Form.Controls("TabControl1").TabPages(0)
cmb.TabBackColor = Color.Red
--  作者：blackzhu
--  发布时间：2012/8/14 13:19:00
--  
e.Form.Controls("TabControl1").BaseControl.BackColor = color.White
--  作者：Fotable
--  发布时间：2012/11/10 13:53:00
--  
这个也好像没有结果呀
--  作者：blueskyyq
--  发布时间：2012/11/15 11:31:00
--  

正找这个，朱兄正解，谢谢！