USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  Visual Basic.Net    (ActiveX/Controles/DLL)

Título da Dica:  Mudar backcolor das TabControls
Postada em 1/10/2004 por :: Renato ::         
Para mudar o backcolor das guias do TabControl até que é simples. Usando o código abaixo crie um tabcontrol no seu form com o nome de tbcPrincipal e mude a propriedade drawmode para OwnerDrawFixed. (tbcPrincipal.DrawMode = TabDrawMode.OwnerDrawFixed)

    Private Sub tbcPrincipal_DrawItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles tbcPrincipal.DrawItem
        'mudar propriedade drawmode = OwnerDrawFixed
        Dim g As Graphics = e.Graphics
        Dim tp As TabPage = tbcPrincipal.TabPages(e.Index)
        Dim tc As TabControl = tbcPrincipal
        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(192, 210, 192))
        g.FillRectangle(br, e.Bounds)
        g.DrawString(strTitle, tbcPrincipal.Font, Brushes.Black, r, sf)
    End Sub

Pronto... fácil não é?

Renato
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página