Concatenation d'un Label avec une variable

bonjour,

pour mettre en place mon calendrier j'ai besoin de parcourir plusieurs labels, qui se nomme tous "label" suivis de leurs numeros

exemple : label1, label2, label3 ...

j'aimerais donc utiliser une boucle qui me permet de rentrer une valeur dans ces differents labels.

voici l'idée :

Code:

---

1 2 3 4 5 6

For i = 1 To nbrejours   Label1.Text = i 'j'aimerais remplacer 1 par i   Next

---

merci :)

C'est presque infaisable !

Mais possible en créant tes labels par le code. J'ai deja fais ca et c'est chiant car il faut définir la location et la size de chaque labels

Voici une ebauche :

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub Label(ByVal max As Integer) Dim Lab As Label For i As Integer = 0 To max Lab = New Label 'création d'un label Lab.Name = "label" & i.ToString 'nom personnalisé Lab.Text = "ton texte" 'texte du label Lab.Size = New Size(10, 30) 'taille de tes labels Lab.Location = New Point(20, 30) 'location de tes labels sur la form Next End Sub

---

Good luck

le plus simple aurait été de créer des label indexés
donc par code je pense
type dim LBL() as label

puis LBL(i) = new label
me.controls.Add LBL(i)
faire un peu de code pour le placer sur la feuille
etc...

nan c'est pas ca qu'il faut faire, y'a plus simple :
Imagine que tes label soit un panel nommé "monPanel"

Code:

---

1 2 3 4 5 6 7 8

i=1 For Each bidule in monPanel.Controls If TypeOf bidule is label Then bidule.Text = i.tostring Endif i += 1 Next bidule

---

Merci à vous pour vos reponses

HULK j'imagine ce que tu as voulu faire mais j'ai du mal à visualiser ce qu'est "bidule"

si j'ai bien compris ta solution, je dois créer un panel qui regroupe tous les labels ?

edit : j'ai réussi à appliquer ta technique, cependant cela ne marche que si les label sont directement dans ce panel or chaque label se trouve lui meme dans un "sous panel"

voila la situation en image :)
http://img526.imageshack.us/img526/8141/panelzq0.jpg

si tu veux mais tu as pas besoin de les mettre dans un label, c'etait pour l'exemple, tu peux faire ca si tu veux :

Code:

---

1 2 3 4 5 6 7 8

i=1 For Each bidule as CONTROL in me.Controls If TypeOf bidule is label Then bidule.Text = i.tostring Endif i += 1 Next bidule

---

Désolé j'avais oublié un truc. Bidule c'est un control (label, bouton ...) qui est présent dans ta form. Mais comme tu veux que les label, on rajoute la ligne

Code:

---

1 2	If TypeOf bidule is label Then

---

Mais si tout tes label sont dans un panel ou un groupbox par exemple, au lieur de parcourir tout les control de ta form, bah tu parcours que les control de ton panel ou groupbox.

Voila un lien ou c'est expliqué : Cours VB.NET, en particulier : Cours complet pour apprendre VB.NET par Philippe Lasserre

ce que dit hulk est valable aussi avec for each ctrl in me
avec un if ctrl.gettype=gettype(label)

mais le gros probleme c'est qu'on ne controle pas l'ordre de traitement des labels ...

je me suis repenché sur le code le tems que vous repondiez et j'ai finalement reussi a faire ce que je voulais :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

dim bidule dim truc   i = 1 For Each truc In panelgeneral.Controls If TypeOf truc Is BlueActivity.Controls.AlphaGradientPanel Then For Each bidule In truc.Controls If TypeOf bidule Is Label Then bidule.Text = i.ToString End If i += 1 Next bidule End If Next truc

---

merci pour votre aide

Ah oui y'avais carrement des sous panels dans le panel !

Ok ^^