Como deixar a aba do TabControl com a cor do TabPage usando VB.Net 2005
Problema do aluno: Trabalho com Visual Studio 2005 e desenvolvo aplicativos Windows. Num deles, uso o tabControl, mas não consigo que as guias do TabControl tenham a mesma cor das TabPages.
Solução: criei um Windows Application chamado ExemploTabControl, com um controle TabControl como abaixo:
No evento LOAD do formulário, digitei o seguinte código, para configurar o TabControl que foi adicionado usando a ToolBox:
TabControl1.Dock = DockStyle.Fill
TabControl1.DrawMode = TabDrawMode.OwnerDrawFixed
TabControl1.TabPages.Clear()
”
TabControl1.TabPages.Add("TAB 1")
TabControl1.TabPages.Add("TAB 2")
TabControl1.TabPages.Add("TAB 3")
TabControl1.TabPages.Add("TAB 4")
”
TabControl1.TabPages(0).BackColor = Color.Coral
TabControl1.TabPages(1).BackColor = Color.LightYellow
TabControl1.TabPages(2).BackColor = Color.PowderBlue
TabControl1.TabPages(3).BackColor = Color.LightGreen
No evento DRAWITEM do controle TabControl, digitei o seguinte:
Dim quadradinho As Rectangle = TabControl1.GetTabRect(e.Index)
Dim pincel As New SolidBrush(TabControl1.TabPages(e.Index).BackColor)
e.Graphics.FillRectangle(pincel, quadradinho)
e.Graphics.DrawString(TabControl1.TabPages(e.Index).Text, New Font("Microsoft Sans Serif", 8, FontStyle.Regular), Brushes.Black, quadradinho.X + 2, quadradinho.Y + 2)
