Style d'onglet tabpage ?

Version imprimable

23/02/2012, 11h23
Poupou61

Style d'onglet tabpage ?

Bonjour,

Ma question est juste une question de présentation.

Enfaite, j'ai un tabcontrol contenant des tabpages. Et j'aimerais enlever le bouton 'Fermer' et mettre a la place une petite croix sur les onglets comme sur les onglets d'un navigateur.

Ou alors autre présentation genre Visual studio 2005 par exemple ou access 2010, avec la croix à droite qui ferme l'onglet.

Est ce possible ?

Merci d'avance
23/02/2012, 12h04
Pol63

tout est possible

en windows forms c'est moins marrant mais ca reste faisable
je pense qu'il faut chercher si on peut draw soit même les headers, auquel cas tu auras un event de levé et tu pourras drawstring et drawimage
après faut faire un hittest sur la croix pour fermer

(désolé :D)

sinon réécrire un tabcontrol vite fait sur un usercontrol (voir s'il n'y en a pas déjà sur codeplex ou un autre site opensource)

en wpf c'est plus simple

Je confirme que l'on peut "redessiner" les entêtes d'un tabPage, l'ayant fait afin de changer la couleur de cet entête

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
  Private Sub TabControl1_DrawItem(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DrawItemEventArgs) Handles TabControl1.DrawItem
        Dim g As Graphics = e.Graphics
        Dim tp As TabPage = TabControl1.TabPages(e.Index)
        Dim br As Brush
        Dim sf As New StringFormat
        Dim r As New RectangleF(e.Bounds.X, e.Bounds.Y + 2, e.Bounds.Width, e.Bounds.Height - 2)
        Dim strTitle As String = tp.Text
 
        Try
            If Not tp.Controls(0) Is Nothing Then
                If CType(tp.Controls(0), tabPageColis).isValided And CType(tp.Controls(0), tabPageColis).isPrinted Then
                    br = New SolidBrush(Color.Green)
                    g.FillRectangle(br, e.Bounds)
                    br = New SolidBrush(tp.ForeColor)
 
                    g.DrawString(strTitle, TabControl1.Font, br, r, sf)
                    tp.Tag = True
                ElseIf CType(tp.Controls(0), tabPageColis).isValided Then
                    br = New SolidBrush(Color.Yellow)
                    g.FillRectangle(br, e.Bounds)
                    br = New SolidBrush(tp.ForeColor)
 
                    g.DrawString(strTitle, TabControl1.Font, br, r, sf)
                    tp.Tag = True
                Else
                    br = New SolidBrush(Color.White)
                    g.FillRectangle(br, e.Bounds)
                    br = New SolidBrush(tp.ForeColor)
 
                    g.DrawString(strTitle, TabControl1.Font, br, r, sf)
                    tp.Tag = False
                End If
            End If
        Catch ex As Exception
        End Try
 
    End Sub

24/02/2012, 14h15
Poupou61

Merci pour votre aide.

J'aurais juste une question :

sur la réponse de Meiteisho, par exemple, sur la ligne :

Code:

If CType(tp.Controls(0), tabPageColis).isValided And CType(tp.Controls(0), tabPageColis).isPrinted Then

le tabPageColis qu'est ce que c'est ? parce que moi si je met le nom d'une de mes tabpages et j'ai une erreur :

Citation:

Type 'MonTabpage' non défini.

Que faut il faire mettre à la place des tabpagecolis ?

Merci d'avance
24/02/2012, 15h28
Meiteisho

Bonjour,

Alors dans mon exemple "TabPageColis" est un Control que j'ai crée.

Mais n'essayez pas de copier/coller cet exemple qui ne correspond pas exactement a ce que vous voulez faire, mais est la uniquement pour vous aiguiller.

Chez vous a la place de dessiner un rectangle et une chaine de caractère comme je le fais, vous devez plutot vous penchez sur comment dessiner deux droite qui se croisent (pour la croix de fermeture) ou un caractère "x" éventuellement
24/02/2012, 15h45
Poupou61

oui oui je sais bien mais j'ai fais un copier coller pour voir ce que le code donnait, et le comprendre pour après faire ce dont j'ai besoin.

En tout cas merci