Discussion :

[veens777]

Bonjour,

est-il possible de selectionner un tabpage dont le nom serait contenu dans une variable ?
je travaille sur un exemple simplifier pour résoudre un pb plus complexe : j'ai un form (form1) contenant un bouton (BT1) et un tabcontrol contenant la tabpage (TP_BT1)
Dans l'exemple simplifié il s'agit de selectionner la tabpage "TP_BT1" en cliquant sur le BT1.
biensure je pourrais écrire tout simplement

Code :

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

1
2
3
    Private Sub BT1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT1.Click
        Me.TabControl1.SelectedTab(TP_BT1)
    End Sub

Mais je le répète le fait de résoudre ce pb simple me permettera de résoudre un pb beaucoup plus complexe..l'idée est de comprendre comment passer par la manipulation de variable:
J'ai essayé ceci mais ça ne fonctionne pas :

Code :

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

1
2
3
4
5
     Private Sub BT1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BT1.Click
        Dim TP As TabPage
        TP.Name = "TP_" & sender.Name
        Me.TabControl1.SelectedTab(TP)
    End Sub

il me souligne la dernière ligne et me dit "un accès à la propriété doit assigner la propriété ou utiliser sa valeur".
merci pour votre aide...

[veens777]

bon finalement je pense avoir trouvé quelque chose d'intéressant, en tout cas ça fonctionne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Private Sub frmEvent_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AddHandler BT1.Click, AddressOf select_tp
        AddHandler BT2.Click, AddressOf select_tp
        AddHandler BT3.Click, AddressOf select_tp
    End Sub
 
    Private Sub select_tp(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim nom As String = "TP_" & sender.name
        For Each ctrl As Control In TabControl1.TabPages
            If ctrl.Name = nom Then
                TabControl1.SelectedTab = ctrl
            End If
        Next
    End Sub

[Sankasssss]

Bonjour,

voici un code fonctionnel plus simple :

Code :

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

1
2
3
4
5
6
7
 
        Dim variableNomPage As String = "TabPage2"
        If TabControl1.TabPages.ContainsKey(variableNomPage) Then
            TabControl1.SelectedTab = TabControl1.TabPages(variableNomPage)
        Else
            MessageBox.Show("Il n'existe aucune page nommée " & variableNomPage)
        End If

En règle général, les collections d'éléments ont un moyen de savoir si un élément existe dans celle-ci et peuvent l’appeler directement.

[veens777]

je vais encore me coucher moins bête ce soir...

encore un grand merci à toi Sankasssss