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.
En espérant être clair.
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
Merci pour votre aide.
Partager