Discussion :

[Dubos]

Bonjour, voilà je souhaite faire un module intégrant une application et j'ai un problème, comme l'indique le titre, avec la taille des onglets. En effets ceux ci sont trop petit et ne prennent pas la longueur de la page, ce qui fait assez moche.
Je pourrais certes espacer ces onglets mais je ne trouve pas cette solution judicieuse, ainsi j'aimerais avoir de l'aide pour savoir comment faire pour agrandir la taille de chacun des onglets proportionnellement a leur nombre et la taille de l'application.

Je vous est mis le rendu actuel et celui auquel j'espère pouvoir arriver, merci de votre aide.

[Graffito]

En Winforms, on peut gérer l'event Resize du TabControl ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
    tabControl1.SizeMode=TabSizeMode.Fixed ;
    tabControl1_Resize(null,null) ;
    ...
    private bool tabControl1_ResizeOn=false ;
    private void tabControl1_Resize(object sender, EventArgs e)
    {
      if (!tabControl1_ResizeOn)
      {
        tabControl1_ResizeOn=true ;
        tabControl1.ItemSize=new Size((tabControl1.Width-3)/tabControl1.TabPages.Count,tabControl1.ItemSize.Height) ;
        tabControl1_ResizeOn=false ;
      }
    }

[Dubos]

Merci pour la réponse !

J'ai un problème dès la première ligne, en effet mon tabContol, ainsi que l'interface sont fait avec des élément ViBlend, ainsi quand je met 'Me.TabP_RT_page.SizeMode = TabSizeMode.Fixed', il me répond que SizeMode n'est pas un membre de ViBlend.

Je ne peux pas le faire de cette manière avec ViBlend donc ?

[Graffito]

J'avais oublié de préciser que le code proposé concernait un les TabControl Winforms .

[Dubos]

Je reviens clore ce sujet, bien que j'aurais pu le faire avant. Voilà la solution que j'ai trouvé, il y a un peu de bidouillage par contre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
    Private Sub Onglet_Size(sender As Object, e As EventArgs) Handles TabControl1.SizeChanged, Me.Load
        'Initialisation de la variable contenant la taille total du tabControl'
        Dim taille_total As Double = TabControl1.Width
        'Initialisation de la variable contenant la taille du tabControl sans espace du départ, ni les espace entre les onglets
        Le bidouillage se trouve ici. On peut voir que je multiplie par des entiers'
        Dim taille_max As Double = taille_total - TabControl1.TabsInitialOffset * 2 - TabControl1.TabPages.Count * TabControl1.TabsSpacing - 6
        For i = 0 To onglet.TabPages.Count - 1
            TabControl1.TabPages(i).HeaderWidth = (taille_max / TabControl.TabPages.Count)
        Next
    End Sub

J'espère que cela pourra aider où si quelqu'un à quelque chose de 'propre', je suis preneur.