Discussion :

[guilld]

Bonjour,

Dans une form j'ai 8 palettes contenant 6 cartons chacun. J'ai donc 6 labels par emplacement.
Chaque label est contenu dans un PANEL (1 image, un bouton et le label en question)


Nom des labels :
L_Pal1Box1,L_Pal1Box2, L_Pal1Box3, L_Pal1Box4, L_Pal1Box5, L_Pal1Box6

Depuis le résultat d'une requette SQL, j'obtiens un emplacement (exemple : L_Pal1Box1) et un numéro de carton (exemple : 123456).
L'objectif et d'associer le n° de carton (source SQL) sur le bon emplacement dans la form.
Mon probleme est que les label sont contenu dans un PANEL. Je ne parviens pas a modifier la valeur TEXT de mes labels.
En dehors des panel ca fonctionne.

Voici mon code pour vérifier si le label existe puis mise à jour de la valeur text.

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
   Dim DS As New DataSet
        DS = SourceOfCheck()
 
        Try
            For i As Integer = 0 To DS.Tables(0).Rows.Count - 1
                Dim LAB As String = DS.Tables(0).Rows(i).Item("LABELBOX")
                Dim BOX As String = DS.Tables(0).Rows(i).Item("BOX_NUMBER").ToString
 
                Dim l As Label = CType(Controls(LAB), Label)
 
                'Recherche si Label existe
                Dim myControl1 As Control = l
                    If (Not myControl1 Is Nothing) Then
                    l.Text = BOX 'si existe affichage
                End If
                Next i
 
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "CheckAtFirst")
        End Try

En espérant être clair.
Merci pour votre aide.

[guilld]

Un schema de ma FORM pour mieux comprendre..

[Mario Rousson]

Salut,

J'ai testé et ça fonctionne, est-ce que ton l donne vraiment un label, si ton l = nothing tu as peut-être un erreur de nom de label?

[guilld]

Je n'ai pas de message d'erreur. Il ne se passe rien puis qu'il ne trouve pas le nom du label.
Si le label est à l'intérieur du Panel alors il ne se passe rien. Par contre, en dehors, ca fonctionne..

[Mario Rousson]

D'après moi il faut que tu listes tes panels et que tu recherches dans chacun d'eux

[guilld]

Je pense avoir trouvé !

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
 Dim DS As New DataSet
        DS = SourceOfCheck()
 
        Try
 
 
            For i As Integer = 0 To DS.Tables(0).Rows.Count - 1
                Dim LAB As String = DS.Tables(0).Rows(i).Item("LABELBOX")
                Dim BOX As String = DS.Tables(0).Rows(i).Item("BOX_NUMBER").ToString
                Dim PAL As String = DS.Tables(0).Rows(i).Item("PALETTE")
 
                For Each ctrl As Control In CType(Controls(PAL), Panel).Controls
                    ctrl.Name = LAB
                    If ctrl.GetType.ToString = "System.Windows.Forms.Label" Then
                        ctrl.Text = BOX
                    End If
 
 
 
                Next
 
            Next i
 
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Information, "CheckAtFirst")
        End Try