Public Class Form1 Private pOnglets As New List(Of TabPage) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Au chargement, mémorisation des onglets dans pOnglets For id As Integer = 0 To TabControl1.TabPages.Count - 1 pOnglets.Add(TabControl1.TabPages(id)) Next 'Suppression de tous les onglets TabControl1.TabPages.Clear() 'Ajout du 3eme onglet par exemple TabControl1.TabPages.Add(pOnglets(2)) End Sub End Class
Public Class Form1 Private pOnglets As New List(Of TabPage) Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'Au chargement, mémorisation des onglets dans pOnglets For id As Integer = 0 To TabControl1.TabPages.Count - 1 pOnglets.Add(TabControl1.TabPages(id)) Next 'Suppression de tous les onglets TabControl1.TabPages.Clear() 'Ajout du 1er onglet TabControl1.TabPages.Add(pOnglets(0)) End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Le 2eme onglet est-il affiché ? For Each onglet As TabPage In TabControl1.TabPages If onglet.Name = pOnglets(1).Name Then Return End If Next 'Non, alors on l'ajoute TabControl1.TabPages.Add(pOnglets(1)) 'Mise à jour ensuite des différents contrôles contenus dans l'onglet... End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question