ouvrir un tabpag dont le nom est contenu dans un variable

Version imprimable

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:

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:

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...

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

Code:

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

Bonjour,

voici un code fonctionnel plus simple :
Code:

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.

28/08/2012, 23h46
veens777

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

encore un grand merci à toi Sankasssss :ccool: