Bom Dia!

Pessoal estou querendo mudar a a cor da fonte da Aba quando é clicado no Tabcontrol entao eu fiz assim...

Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged
        Select Case TabControl1.SelectedIndex
            Case (0)
                TabControl1.ForeColor.Blue()

            Case (1)
                'muda a cor tb

            Case (2)
                'muda a cor tb
                    End Select
    End Sub

So que ao deixar "TabControl1.ForeColor.Blue()" da erro de Property access must assign to the property or use its value.

So uma obs eu preciso identificar qual o texto da aba sera mudada a cor.
E quando é clicado em uma Aba a aba anterior que estava em azul por exemplo preciso retornar a cor preta.

o que consegui tb foi  Me.TabPage1.BackColor = System.Drawing.Color.Blue mas isso nao atende preciso referente a fonte da Aba ativa que mude de cor.

Alguem tem uma sugestao?

 

Obrigado

Ayres

Com esse código vc consegue mudar a cor da aba:

 

    Private Sub TabControl1_DrawItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles TabControl1.DrawItem
        'obs: mudar a propriedade drawmode para = OwnerDrawFixed
        Dim g As Graphics = e.Graphics
        Dim tp As TabPage = TabControl1.TabPages(e.Index)
        Dim tc As TabControl = TabControl1
        Dim br As Brush
        Dim sf As New StringFormat
        Dim r As New RectangleF(e.Bounds.X, e.Bounds.Y + 1, e.Bounds.Width + 1, e.Bounds.Height - 2)
        sf.Alignment = StringAlignment.Center
        Dim strTitle As String = tp.Text
        br = New SolidBrush(Color.FromArgb(200, 200, 200))
        g.FillRectangle(br, e.Bounds)
        g.DrawString(strTitle, TabControl1.Font, Brushes.Black, r, sf)
    End Sub

 

Agora basta adaptar a sua necessidade...

qq dúvida postae

t+