Bonjour, bonsoir,
j'ai créé des label par code et aimerai pouvoir les modifier à l'aide d'un InputBox.
Pour l'InputBox, j'ai pas de soucis, mais pour écrire dans mes label
J'ai chercher sur le forum, mais j'ai pô trouvé (j'suis p'têt pas très doué ...)
Je vous passe le code imaginé qui ne veut pas,
et merci par avance.
Où est la faille ???
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
29
30
31
32
33
34
35
36
37
38 Dim panneauSaisie As New Panel Dim lbl_numero As Label Sub tableau() With Me.panneauSaisie .Top = 134 .Left = 122 .Width = 550 .Height = 640 .AutoSize = False .AutoScroll = True End With Me.Controls.Add(panneauSaisie) For i As Integer = 1 To 50 lbl_numero = New Label With lbl_numero .Name = "lbl_numero" & i.ToString .Top = posY .Left = 1 .Width = 98 .Height = 26 .TextAlign = ContentAlignment.MiddleCenter .Font = policeLbl .Text = "ancien numéro" 'i.ToString End With Me.panneauSaisie.Controls.Add(Me.lbl_numero) posY += 32 Next End Sub Sub modifierNumero() For i As Integer = 1 To 50 With lbl_numero .Name = "lbl_numero" & i.ToString .Text = "nouveau texte" 'i.ToString End With Next End Sub
Pieche
Partager