Modifier un LABEL dans chaque Onglet d'un TabControl

Version imprimable

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:

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 :ccool:

04/03/2011, 10h48
tomlev
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:

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
06/03/2011, 14h52
lkaiman

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 ;)
06/03/2011, 19h16
tomlev

Citation:

Envoyé par lkaiman

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

Je te rassure, moi non plus :aie: