Comment colorer l'onglet TabControl

Bonsoir,
Est ce qu'il est possible de changer la couleur de l'onglet et de conserver le petit trait qui donne le focus?
Merci.

Salut,

Il faut que tu reprenne le TabControl.
Tu fais un contrôle qui hérite du TabControl, et du redéfinis le DrawMode pour dessiner toi même les onglets en couleurs

__________
Kenji

Bonjour Kenji,
J'ai installé VB 2005 express
Alors voilà le début :
Public Class CoulOnglTabCrl
  Inherits System.Windows.Forms.TabControl

  Public Sub New()
    MyBase.DrawMode = System.Windows.Forms.TabDrawMode.OwnerDrawFixed
  End Sub
J'ai mis le DrawMode de TabControl1 sur OwnerDrawFixed
Les textes des onglets ont disparues.
Tu peux faire le reste S'il te plait !?

Merci.

 

C'est pas avec toi que j'avais fait des onglets en gras non ?
Ben la c'est le même principe :

Public Class CoulOnglTabCrl   Inherits System.Windows.Forms.TabControl   Public Sub New()     MyBase.DrawMode = System.Windows.Forms.TabDrawMode.OwnerDrawFixed   End Sub   Protected Overrides Sub OnDrawItem(ByVal e As System.Windows.Forms.DrawItemEventArgs)     e.Graphics.FillRectangle(Brushes.Aqua, e.Bounds)     Dim StrAttr As New StringFormat()     StrAttr.Alignment = StringAlignment.Center     StrAttr.LineAlignment = StringAlignment.Center     e.Graphics.DrawString(MyBase.TabPages(e.Index).Text, e.Font, New SolidBrush(e.ForeColor), e.Bounds, StrAttr)     MyBase.OnDrawItem(e)   End Sub End Class

(Coloration syntaxique automatique par Kenji)

__________
Kenji

Bonsoir oui c'est moi ! et là on n'a pas utilisé trois pages(enfin pas encore)
J'ai remplacé :

Me

.TabControl1 = New System.Windows.Forms.TabControl
par
Me.TabControl1 = New CoulOnglTabCrl
et
Friend WithEvents TabControl1 As System.Windows.Forms.TabControl
par
Friend WithEvents TabControl1 As CoulOnglTabCrl

Ok ça fonctionne
Reste plus que trouver la couleur "control" je ne l'ai pas vu dans la liste !
Tu crois que l'on peux remettre le petit "neon orangé" de focus dessus l'onglet ?
Merci.

neon orangé ? Tu fais un TabControl de Tuning ?
Tu peux peindre ce que tu veux sur ces tabpages.

__________
Kenji

Non mais avant de peindre quand je posais la souris l'onglet avais une petite bande orangé en haut mais avec le OwnerDrawFixed je pense que la fonction doit être desactivé !
Pour la couleur je la trouve comment la couleur control ?


Merci.

En OwverDraw, tu perds le style windows.
Pour la couleur c'est System.Drawing.SystemColors.Control.

__________
Kenji

Si tu veux retracer le style windows, utilise les VisualStyles :

Protected Overrides Sub OnDrawItem(ByVal e As System.Windows.Forms.DrawItemEventArgs)   Dim Style As System.Windows.Forms.VisualStyles.VisualStyleElement   Select Case e.State     Case System.Windows.Forms.DrawItemState.None       Style = System.Windows.Forms.VisualStyles.VisualStyleElement.Tab.TabItem.Normal     Case System.Windows.Forms.DrawItemState.Selected       Style = System.Windows.Forms.VisualStyles.VisualStyleElement.Tab.TabItem.Pressed   End Select   Dim renderer As New System.Windows.Forms.VisualStyles.VisualStyleRenderer(System.Windows.Forms.VisualStyles.VisualStyleElement.Tab.TabItem.Normal)   renderer.DrawBackground(e.Graphics, e.Bounds)   Dim StrAttr As New System.Drawing.StringFormat()   StrAttr.Alignment = System.Drawing.StringAlignment.Center   StrAttr.LineAlignment = System.Drawing.StringAlignment.Center   e.Graphics.DrawString(MyBase.TabPages(e.Index).Text, e.Font, New System.Drawing.SolidBrush(e.ForeColor), e.Bounds, StrAttr)   MyBase.OnDrawItem(e) End Sub

(Coloration syntaxique automatique par Kenji)

__________
Kenji

Bonjour,
Je suis toujours sur la premiere formule :
Public Class CoulOnglTabCrl
  Inherits System.Windows.Forms.TabControl

  Public Sub New()
    MyBase.DrawMode = System.Windows.Forms.TabDrawMode.OwnerDrawFixed
  End Sub

  Protected Overrides Sub OnDrawItem(ByVal e As System.Windows.Forms.DrawItemEventArgs)
    e.Graphics.FillRectangle(Brushes.Aqua, e.Bounds)
    Dim StrAttr As New StringFormat()
    StrAttr.Alignment = StringAlignment.Center
    StrAttr.LineAlignment = StringAlignment.Center
    e.Graphics.DrawString(MyBase.TabPages(e.Index).Text, e.Font, New SolidBrush(e.ForeColor), e.Bounds, StrAttr)
    MyBase.OnDrawItem(e)
  End Sub
End Class

Tu l'utilises comment  System.Drawing.SystemColors.Control. à la place deBrushes.Aqua ?


Tu vois le petit neon orangé en mode normale... c'est dommage qu'il soit perdu !
Il n'y a pas de gris après TabPage4 .



J'ai essayé :
Protected Overrides Sub OnDrawItem(ByVal e As System.Windows.Forms.DrawItemEventArgs)
  Dim Style As System.Windows.Forms.VisualStyles.VisualStyleElement
  Select Case e.State
    Case System.Windows.Forms.DrawItemState.None
      Style = System.Windows.Forms.VisualStyles.VisualStyleElement.Tab.TabItem.Normal
    Case System.Windows.Forms.DrawItemState.Selected
      Style = System.Windows.Forms.VisualStyles.VisualStyleElement.Tab.TabItem.Pressed
  End Select

  Dim renderer As New System.Windows.Forms.VisualStyles.VisualStyleRenderer(System.Windows.Forms.VisualStyles.VisualStyleElement.Tab.TabItem.Normal)
  renderer.DrawBackground(e.Graphics, e.Bounds)

  Dim StrAttr As New System.Drawing.StringFormat()
  StrAttr.Alignment = System.Drawing.StringAlignment.Center
  StrAttr.LineAlignment = System.Drawing.StringAlignment.Center
  e.Graphics.DrawString(MyBase.TabPages(e.Index).Text, e.Font, New System.Drawing.SolidBrush(e.ForeColor), e.Bounds, StrAttr)

  MyBase.OnDrawItem(e)
End Sub

Non la j'aime pas ,il y a encore le gris après TabPage4 je préfère le mode normale.

Pourquoi il y a ce gris après TabPage4 et aussi en dessous des onglets?
Merci.