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.