Écrire dans des labels créés par code ?

Version imprimable

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 :calim2:
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.

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

Où est la faille ???:cry:

Pieche

31/01/2012, 20h09
Pol63
la faille semble être que tu n'as aucune connaissance en POO et que tu codes un peu au hasard

en général on conseille donc de lire un cours du type http://plasserre.developpez.com/cours/vb-net/
et d'attendre de comprendre le code avant d'en taper

pour rester un peu moins vague :
Dim lbl_numero As Label
cette variable permet donc de contenir un label, or tu en créé 50 ... donc déjà on pourrait penser qu'il y a un truc qui cloche
Code:

1 2 3 4 5 6 For i As Integer = 1 To 50 With lbl_numero .Name = "lbl_numero" & i.ToString .Text = "nouveau texte" 'i.ToString End With Next
ici tu change 50x le name et le text d'un seul label, peu utile ...

tu remarqueras au passage l'utilisation de la balise code pour la mise en forme (bouton # dans l'interface d'ajout de message)
31/01/2012, 22h59
pieche

Bonsoir Pol63,
je n'ai effectivement aucune connaissance en Programmation Orientée Objet, mais je ne demande qu'à m'instruire, ce que je vais faire de ce pas en suivant ton lien (que j'ai déjà commencé à parcourir d'ailleurs).
Merci
Pieche