Como deixar a aba do TabControl com a cor do TabPage usando VB.Net 2005

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (2)  (0)

Nessa dica, o Agnaldo mostra como deixar a aba do TabControl com a cor do TabPage usando VB.Net 2005

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:

notebook-0000.gif

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)

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?