|
 Trouver une ressource
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !
 Sujet : Comment colorer l'onglet TabControl [ Divers / Débutants ] (Sipat)
 Informations & options pour cette discussion
|
dimanche 25 février 2007 à 18:41:53 |
Comment colorer l'onglet TabControl
Sipat
|
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.
|
|
|
|
dimanche 25 février 2007 à 19:09:49 |
Re : Comment colorer l'onglet TabControl
Charles Racaud
|
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
|
|
|
|
dimanche 25 février 2007 à 20:14:04 |
Re : Comment colorer l'onglet TabControl
Sipat
|
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.
|
|
|
|
dimanche 25 février 2007 à 20:25:20 |
Re : Comment colorer l'onglet TabControl
Charles Racaud
|
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
|
|
|
|
dimanche 25 février 2007 à 21:08:14 |
Re : Comment colorer l'onglet TabControl
Sipat
|
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.
|
|
|
|
dimanche 25 février 2007 à 21:27:59 |
Re : Comment colorer l'onglet TabControl
Charles Racaud
|
neon orangé ? Tu fais un TabControl de Tuning ?
Tu peux peindre ce que tu veux sur ces tabpages.
__________
Kenji
|
|
|
|
dimanche 25 février 2007 à 21:57:02 |
Re : Comment colorer l'onglet TabControl
Sipat
|
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.
|
|
|
|
dimanche 25 février 2007 à 22:27:43 |
Re : Comment colorer l'onglet TabControl
Charles Racaud
|
En OwverDraw, tu perds le style windows.
Pour la couleur c'est System.Drawing.SystemColors.Control.
__________
Kenji
|
|
|
|
dimanche 25 février 2007 à 22:28:44 |
Re : Comment colorer l'onglet TabControl
Charles Racaud
|
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
|
|
|
|
lundi 26 février 2007 à 10:05:24 |
Re : Comment colorer l'onglet TabControl
Sipat
|
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 ClassTu 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 SubNon 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.
|
|
|
Cette discussion est classé dans : onglet, colorer, tabcontrol
 Répondre à ce message
 Sujets en rapport avec ce message
[vb.net] TabPages et TabControl [ par drahcir ]
Salut à tous,je manipule pour la première fois les TabPaes et TabControl et j'aimerais en savoir un peu plus...Je possède de nomreux controls sur cha
Programmation objet et onglet tabpage [ par senpiet ]
Bonjour à tous,je cherche à savoir comment créer, dans un tabControl d'un form général, un nouvel onglet, basé sur un objet indépendant.Ex.J'ai un for
onglet (tabcontrol) sur condition (dans access) [ par l_apotre ]
Voila mon probleme : je souhaiterai afficher des onglets suivants un premier onglet de configuration : En fait, suivant des champs de qualification du
Tabcontrol : affichage et masquage d'un onglet ??? [ par chouka ]
Bonjour, débutant en VB, je suis actuellement entrain de dévelloper une application de gestion des inscriptions pour une association (projet de mon fi
Tabcontrol [ par slim369 ]
Salut, J'aimerais que l'onglet que j'ajoute dans un tabcontrol ait le meme look(textbox,ckeckbox,..) que l'onglet avant,comment pourrais-je faire?
Onglet ds un Tabcontrol [ par slim369 ]
Salut, J'aimerais que l'onglet que j'ajoute dans un tabcontrol ait le meme look(textbox,ckeckbox,..) que l'onglet avant,comment pourrais-je faire?
[.net] Choisir l'onglet d'un tabcontrol [ par DarkCid ]
Yaoh !Voilà, depuis le formulaire form1 je veux ouvrir le formulaire form2 qui possède un tabcontrol (tabcontrol1).J'aimerais pouvoir ouvrir form2 sur
Comment mettre le texte d'un onglet TabControl en gras ? [ par Sipat ]
Bonjour,Je n'arrive pas à mettre le texte d'un onglet en gras J'ai essayé :TabControl1.TabPages(0).Font = New Font(TabControl1.TabPages(0).Font, FontS
Onglet TabControl (VB2005) [ par phenX ]
comment dupliquer un onglet d'un TabCOntrol en cliquant sur un bouton, en VB2005?merci
Changer de couleur un titre d'onglet dans un TabControl [ par avelone ]
(VB.net)Bonjour, je voudrais par programmation, changer de couleur le titre d'un onglet dans un TabControl. La propriété ForeColor permet de changer d
 Livres en rapport
|
 Téléchargements
Logiciels à télécharger sur le même thème :
|