Discussion :

[kohsaka]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
For i = 1 To nbrejours
 
  Label1.Text = i 'j'aimerais remplacer 1 par i
 
Next

merci

[Aspic]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pol63]

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

[HULK]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[kohsaka]

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

[HULK]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Pol63]

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

[kohsaka]

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

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

[Aspic]

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

Ok ^^