Modifier un LABEL dans chaque Onglet d'un TabControl

**lkaiman** · 04/03/2011, 10h41

Bonjour,

Je me casse la tête depusi trop longtemps pour finalement venir vous demander.

J'ai un tabControl avec une 20aione d'onglets.
Les pages sont divisées en 2. coté gauche pour l'affichage de mes data, coté droit pour les boutons.
Les 3/4 des onglets ont les même boutons....

On m'a demandé d'ajouter un texte indiquant la date et heure d'un fichier texte sur le réseau ; çà aussi pas de probléme.

C'est un LABEL dans un GROUPBOX (pour faire une belle présentation). Et je n'arrive à mettre à jour que le label du premier onglet.

Voici mon code:

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
    Private Sub RefreshISIS_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RefreshISIS.Tick
        Dim sNom As String = LinkExtractISIS() 'Lien du fichier d'extraction ISIS
 
        For Each GB As Control In Me.TabControl.SelectedTab.Controls
            If TypeOf (GB) Is System.Windows.Forms.GroupBox Then
                If (GB.Text = "MAJ APO") Then
                    For Each TB As Control In GB.Controls
                        If TypeOf (TB) Is System.Windows.Forms.Label Then
                            If (TB.Name = "HeureISIS") Then
 
                                If (File.Exists(sNom)) Then
                                    If (maj_planning <> IO.File.GetLastWriteTime(sNom).ToString()) Then
                                        maj_planning = IO.File.GetLastWriteTime(sNom).ToString()
                                        TB.Text = "MAJ le " & Format(maj_planning, "dddd dd/MM/yyyy") & " à " & Format(maj_planning, "HH:mm")
 
                                        DateTimePicker_ValueChanged(DateTimePicker, System.EventArgs.Empty)
                                    End If
                                Else : TB.Text = "Fichier d'extraction inexistant ou en cours de création"
                                End If
 
                            End If
                        End If
                    Next
                End If
            End If
        Next
 
    End Sub

Cette derniére versio nde code est sencé mettre à jour le label de l'onglet sélectionné.
Mais rien n'y fait.

Merci de m'aider

**tomlev** · 04/03/2011, 10h48

Tu pourrais chercher le contrôle par nom avec la méthode Find. En supposant que les contrôles aient le même nom sur chaque onglet (je suppose aussi que le contenu de chaque onglet est un UserControl, sinon c'est pas possible d'avoir le même nom) :

Code :

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

1
2
3
4
5
6
7
8
For Each ctl In Me.TabControl.Controls.Find("NomDuControle", True)
 
    If Not ctl Is Label Then: Continue
 
    Dim lbl As Label = CType(ctl, Label)
    lbl.Text = ...
 
Next

**lkaiman** · 06/03/2011, 14h52

Merci pour ton aide? mais après plusieurs tentative, je ne réussissait pas à faire ce que je voulais.
Donc j'ai fini par donner un nom différent à chaque label de chaque page, en y incorporant le nom de l'onglet...

J'ai cherché pour définir le TabControl en UserControl, mais rien trouvé de vraiment explicite...

Merci quand même, tu me montre que je ne sais pas tout