Discussion :

[belocom]

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é.
Merci pour votre aide.

[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.

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 :

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

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

Puis :

Code :

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

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

[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

[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 !!!!

[belocom]

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

Code :

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

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

[Aspic]

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

Code :

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

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 ?

[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

[belocom]

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.

[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.

[Aspic]

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

[belocom]

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,