Discussion :

[alex69]

Salut !

J'expose mon pb : J'ai deux forms, Form1 et Form2, avec Form1 qui contient un TabControl avec 8 TabPages, et Form2 qui contient entre autres un bouton. Sur le 3ème TabPage de Form1, j'ai un bouton qui lance Form2 et j'aimerai que quand on clic sur le bouton de Form2, le TabPage affiché sur Form1 soit le 5ème et non plus le troisième.

Merci pour votre aide !

Alex

Environnement: VB .NET 2003
Framework: 1.1
OS: WinXP Home

[graphicsxp]

Salut
Pour ce qui est de changer l'ordre de tes tabpages, il n'y a pas de methodes .net a ma connaissance qui te permet de le faire. J'ai ecris ces deux fonctions pour bouger un tabpage vers la gauche ou vers la droite. Inspires ent toi ou utilises les directement :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Private Sub MoveTabPageLeft(ByVal TabControlToChange As TabControl, ByVal Page As TabPage)
        Dim Position As Integer = TabControlToChange.TabPages.IndexOf(Page)
        If (Position = 0) Then Return 'Already first 
        Position -= 1
        If (Not TabControlToChange.TabPages.Contains(Page)) Then Return
        'Page not part of the control 
        Dim myTabPage As TabPage
        'Copy the pages someplace 
        Dim Pages As New ArrayList
        For Each myTabPage In TabControlToChange.TabPages
            Pages.Add(myTabPage)
        Next
        TabControlToChange.TabPages.Clear()
 
        For iCntr As Integer = 0 To Pages.Count - 1
            myTabPage = CType(Pages(iCntr), TabPage)
            If (iCntr = Position) Then TabControlToChange.TabPages.Add(Page)
            If (Not myTabPage Is Page) Then TabControlToChange.TabPages.Add(myTabPage)
        Next
        TabControlToChange.Invalidate() 'Forces tab control to be redrawn 
    End Sub
 
    Private Sub MoveTabPageRight(ByVal TabControlToChange As TabControl, ByVal Page As TabPage)
        Dim Position As Integer = TabControlToChange.TabPages.IndexOf(Page)
        If (Position = TabControlToChange.TabPages.Count - 1) Then Return 'Already last 
        Position += 1
        If (Not TabControlToChange.TabPages.Contains(Page)) Then Return
        'Page not part of the control 
        Dim myTabPage As TabPage
        'Copy the pages someplace 
        Dim Pages As New ArrayList
        For Each myTabPage In TabControlToChange.TabPages
            Pages.Add(myTabPage)
        Next
        TabControlToChange.TabPages.Clear()
 
        Dim aPage As TabPage
 
        For iCntr As Integer = 0 To Pages.Count - 1
            myTabPage = CType(Pages(iCntr), TabPage)
 
            If (Not myTabPage Is Page) Then
                TabControlToChange.TabPages.Add(myTabPage)
            Else
                aPage = Page
            End If
            If (iCntr = Position) Then
                TabControlToChange.TabPages.Add(aPage)
            End If
        Next
 
        TabControlToChange.Invalidate() 'Forces tab control to be redrawn 
    End Sub

[alex69]

Merci pour ta réponse. Le code que tu as mis c'est pour changer un TabPage d'ordre mais moi je veux seulement changer l'affichage sur Form1 depuis Form2 (ex., sur Form1 je fais : TabControl.SelectedIndex = 2).

[graphicsxp]

Ha desole je n'avais pas compris.
Dans ce case il te faut mettre ton tab control en public ou alors creer une propriete pour acceder a ce tab control
Ensuite tu peux y acceder depuis ton autre form, en appellant la propriete sur une instance de ton form1 (tu n'a qu'a l'initialiser avec l'instance existante de form1 que tu passes en parametre au constructeur de form2)