Discussion :

[DemoniumOrigin]

Bonjour,
Je suis actuellement en train de développer une petite application nécessaire pour suivre un projet, cependant je bloque sur quelque chose assez important.
Je vais tenter de vous expliquer maintenant ce que je voudrai faire.
J'ai un premier menu d'onglet dans lequel je peux ajouter des onglets supplémentaires dynamiquement.
Lorsque je créée un onglet je créée à l'intérieure un autre menu d'onglet.
Je réalise cela via le code suivant:

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
 Private Sub AddTransaction_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddTransaction.Click
        Dim NewTransaction As TabPage
        Dim NewOngletsCategorie As TabControl
 
        'On créé un nouveau panneau d'onglets pour la nouvelle transaction'
        NewOngletsCategorie = New TabControl
        NewOngletsCategorie.Location = New System.Drawing.Point(3, 0)
        NewOngletsCategorie.SelectedIndex = 0
        NewOngletsCategorie.Size = New System.Drawing.Size(700, 430)
        NewOngletsCategorie.TabIndex = 0
 
        'On créé la nouvelle transaction'
        NewTransaction = New TabPage
        NewTransaction.Text = TextTransaction.ToString
 
        'On ajoute le nouveau panneau d'onglets à la nouvelle transaction'
        NewTransaction.Controls.Add(NewOngletsCategorie)
        'On ajoute la nouvelle transaction dans le panneaux d'onglets des transactions'
        OngletsTransaction.TabPages.Add(NewTransaction)
 
    End Sub

Toujours dans la meme idée dans ce second onglets je peux ajouter dynamiquement des onglets.
Ce que je désire faire c'est en fonction du premier onglet sélectionné ajouté un onglet dans le second onglet.
J'ai le code suivant:

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
Private Sub AddCategorie_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AddCategorie.Click
        Dim OngletTransactionSelected As TabPage
        Dim ExcelSheet As AxMicrosoft.Office.Interop.Owc11.AxSpreadsheet
        Dim NewPage As TabPage
 
        'Création d'une nouvelle feuille excel'
        ExcelSheet = New AxMicrosoft.Office.Interop.Owc11.AxSpreadsheet
        ExcelSheet.Enabled = True
        ExcelSheet.Location = New System.Drawing.Point(3, 2)
        ExcelSheet.Size = New System.Drawing.Size(679, 385)
        ExcelSheet.TabIndex = 0
 
        'Création de la nouvelle catégorie'
        NewPage = New System.Windows.Forms.TabPage
        NewPage.Text = TextCategorie.ToString
        'On ajoute la page excel'
        NewPage.Controls.Add(ExcelSheet)
 
        'on récupère l'onglet de la transaction en cours'
        OngletTransactionSelected = OngletsTransaction.SelectedTab
<!-- c'est ici que je bloque -->
        'on récupère le panneau d'onglet de la transaction en cours'
 
        'on ajoute la nouvelle catégorie dans le panneau d'onglets'
 
    End Sub

Donc si quelqu'un peut m'aider ca sera avec plaisir.
Merci d'avance

[tomlev]

Et c'est quoi la question ?

[DemoniumOrigin]

Oui dsl alors ma question est la suivante:
Ben comment d'apres mon code je pourrai récupéré le TabControl qui se trouve dans le TabPage?

[tomlev]

Ah désolé, c'est ma faute... j'ai édité ton message pour y ajouter les balises CODE, et j'ai pas vu le morceau de texte au milieu du code ... c'est corrigé. La prochaine fois, pense à les mettre (comment faire ?)

Sachant que ta TabPage n'a qu'un seul contrôle enfant (le TabControl), tu peux le récupérer comme ça :

Code :

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

Dim tabCtl As TabControl = OngletTransactionSelected.Controls(0)

[DemoniumOrigin]

Je te remercie ca marche super!!!
Du coup si j'avais eu plusieurs controls dans mon tab page j'aurai du faire un parcours de tous les controls et tester s'il est du type ControlTab, c'est ca?

[tomlev]

Oui c'est ça