|
|
|
|
|
|
|
|
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
|
|
|
|
|
