je suis obliger de me tourner vers vous.
'Load: ReDim SaveTab(TabControl1.TabPages.Count) ReDim SavePics(TabControl1.TabPages.Count) ReDim SavePoint(TabControl1.TabPages.Count) For count As Integer = 0 To TabControl1.TabPages.Count - 1 SaveTab(count) = TabControl1.TabPages(count).Text 'If TabControl1.SelectedTab.Text TabControl1.TabPages(count).Text Then SavePics(count) TablePics 'If TabControl1.SelectedTab.Text TabControl1.TabPages(count).Text Then SavePoint(count) TablePoint SavePics(count) = TablePics SavePoint(count) = TablePoint Next SaveAll(0) = SaveTab SaveAll(2) = SavePoint 'Save: For count As Integer = 0 To TabControl1.TabPages.Count - 1 If TabControl1.SelectedTab.Text = TabControl1.TabPages(count).Text Then SavePics(count) = TablePics SavePoint(count) = TablePoint End If Next SaveAll(0) = SaveTab SaveAll(1) = SavePics SaveAll(2) = SavePoint 'TabChange: For count As Integer = 0 To TabControl1.TabPages.Count - 1 If TabControl1.SelectedTab.Text = TabControl1.TabPages(count).Text Then Erase TablePics TablePics = SavePics(count) Erase TablePoint TablePoint = SavePoint(count) End IF Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question