Rendre invisible des tabpages d'un tabcontrol

Version imprimable

22/05/2007, 23h38
belocom

Rendre invisible des tabpages d'un tabcontrol

Bonjour,
Soit un tabcontrol avec n tabpages.
En fonction du traitement, il me serait agréable de faire disparaître certaines des tabpages. Hé ben j'ai pas trouvé. :cry:
Merci pour votre aide.
23/05/2007, 09h05
Igmar
Bonjour belocom,
j ai été confronté au même pb que toi et en fait, on dirait que c'est un secret de grand mere.:lol:

Plusieurs personnes m ont conseillé d utiliser un Usercontrol pour faire ceci et allégé le temps d'exécution. => jamais réussi.
Du cou p le plus simple est de créer tous tes Tabpages via le Designer. Et il simplement les supprimer au démarrage et les recréer quand tu le souhaite.
Code:

1 2 3 ' Dans le load : TabControl1.Visible = True TabControl1.TabPages.Clear()
Puis :
Code:

1 2 3 'Sur evenement ou bouton... TabControl1.TabPages.Add(TabPage1)
Ps : je joue sur le nom du Tabpage pour tester l'ouverture. Si tu en sais plus sur les usercontrol, ca peut m interesser.
Cdt,
Damien
23/05/2007, 10h46
Aspic

C'est impossible à faire dans l'absolu mais en "trichant" c'est possible : l'astuce consiste à supprimer le tabpage puis à le reinserer à la fin du traitement. J'ai deja essayé et je ne suis pas trop satisfait du résultat.

Peut etre aurras tu plus de chance que moi :)
23/05/2007, 17h56
belocom

Merci pour vos réponses. Je vais donc essayer .clear puis .add.
Explorons et défrichons. Le premier qui a du nouveau .......
je n'arrive pas à inserer un usercontrol. Ma version de VisualStudio ne me donne même pas l'option !!!!

Une solution !

Voila une solution qui me plait assez :
Il y a un tabcontrol, qui n'a aucune tabpage !

Code:

1
2
3
4
5
6
7
8
TabControl1.Visible = True
        TabControl1.TabPages.Clear()  ' superfaitatoire !
        For i = 1 To nbjours                ' Nombre d'onglet à créer
            Dim tx As New TabPage
            tx.Name = "T" & i
            tx.Text = "Day " & i
            TabControl1.TabPages.Add(tx)
        Next

Citation:

Envoyé par belocom

Voila une solution qui me plait assez :
Il y a un tabcontrol, qui n'a aucune tabpage !

Code:

1
2
3
4
5
6
7
8
TabControl1.Visible = True
        TabControl1.TabPages.Clear()  ' superfaitatoire !
        For i = 1 To nbjours                ' Nombre d'onglet à créer
            Dim tx As New TabPage
            tx.Name = "T" & i
            tx.Text = "Day " & i
            TabControl1.TabPages.Add(tx)
        Next

Oui certes mais je ne vois pas en quoi cela est mieux ?

25/05/2007, 09h03
Igmar

J'avai essayer de faire comme toi, sans résultat (aucune Tabpage).
J'ai implémenter un Tabcontrol avec des Tabpages contenant des DGV et qui fonctionne de mon coté.C'est pas l'idéal je sais ms c'est mieux que rien.

Dam
25/05/2007, 11h35
belocom

Citation:

Envoyé par Aspic

Oui certes mais je ne vois pas en quoi cela est mieux ?

Tu as bien raison. Et d'ailleurs ça ne marche pas fort, impossible de récupérer le focus sur les tabpages ainsi ajoutées.
25/05/2007, 12h09
Graffito

Bonjour,

Pour rendre invisible une ou des Pages d'un TabControl, je pratique ainsi :
- Je crée le TabPage complet,
- Je référence toutes les pages dans un ArrayList,
- suivant le besoin, je clear les pages du TabControl et j'ajoute les pages à voir à partir de l'ArrayList.
25/05/2007, 12h44
Aspic

Citation:

Envoyé par Graffito

Bonjour,

Pour rendre invisible une ou des Pages d'un TabControl, je pratique ainsi :
- Je crée le TabPage complet,
- Je référence toutes les pages dans un ArrayList,
- suivant le besoin, je clear les pages du TabControl et j'ajoute les pages à voir à partir de l'ArrayList.

Possible :) mais des problèmes vont subsister :cry:
25/05/2007, 15h42
belocom

:)

Citation:

Envoyé par Graffito

Bonjour,

Pour rendre invisible une ou des Pages d'un TabControl, je pratique ainsi :
- Je crée le TabPage complet,
- Je référence toutes les pages dans un ArrayList,
- suivant le besoin, je clear les pages du TabControl et j'ajoute les pages à voir à partir de l'ArrayList.

J'ai utilisé cette technique et tout est au quart de poil ! Exactement ce que je cherchais à faire. Merci Graffito,