Discussion :

[Steve57]

Bonjour, je voudrais savoir si il était possible d'acceder a un objet, un label par exemple par le biais d'une varible.

je m'explique, j'ai 37 Labels sur ma form1 (sensé représenter un calendrier), le 1er du mois n'est pas forcément un lundi, comme pour juin c'est un mercredi donc le 1er est a inscrire dans mon Label3.text, est il possible par code de définir le nom de mon label suivant dans une variable pour que le programme complete le reste en automatique et le pas avoir a tout entrer manuelement du genre Label3.text = "1" : label4.text = "2"

peut on faire quelque chose du genre :

Code :

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

1
2
3
dim n as integer = 4
Label(n).text = ...
n += 1

?

[nah666]

Quelque chose du genre:

désolé si erreurs c'est codé directement dans la réponse:

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 labelList as new list(of string)
 
'Quelque part dans ton code (init)
labelList.add(label1);
labelList.add(label2);
labelList.add(label3);
 
 
' ta routine de modif de label
private sub ChangeLabelsText(labelText as string)
  for each oLabel as label in labelList
    oLabel.text = labelText
  next
end sub

Sinon autre chose, NOMME TES VARIABLES, ainsi que tes contrôles, label1,form1 etc...

Ce ne sont pas des noms pour un programme, demain tu comprendra plus rien a ton code si tu travaille sans nommage.

[Steve57]

Merci pour ta réponse, ce n'était pas éxactement ce que je cherchais mais j'ai tout de meme réussi à faire ce que je voulais grace a ta méthode.

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
        Dim tmp As Integer = 1 'compteur pour boucle
        Dim X As Integer = 1 ' nombre du jour
 
        If jour = "lundi" Then
            For Each oLabel As Label In LabelList
                If verif_date(X, mois, annee) Then oLabel.Text = X
                If Not verif_date(X, mois, annee) Then oLabel.Text = ""
                X += 1
                tmp += 1
            Next
        End If
 
        If jour = "mardi" Then
                For Each oLabel As Label In LabelList
                If tmp >= 2 Then
                    If verif_date(X, mois, annee) Then oLabel.Text = X
                    If Not verif_date(X, mois, annee) Then oLabel.Text = ""
                    X += 1
                End If
 
                If tmp < 2 Then oLabel.Text = ""
                tmp += 1
 
            Next
        End If

...

ca marche comme ca.

Merci

[BenoitM]

Une autre solution que de créer une liste avec les labels
C'est de part courir les controles de la form ou du control contenant tes labels

Par exemple :
grid.Children (si tout tes controls sont dans une meme grid)
this.Controls (si tu es sur la form)

[Steve57]

Merci pour les réponses. maintenant que ca fonctione comme je voulais je suis face à un autre problème, tres con et qui n'a rien a voir avec tout ca.

Je n'arrive pas à changer la couleur de fond de mes labels.
j'aimerais que dans le remplissage des labels.text si un fichier est trouvé pour une date précise le label en question ai un fond rouge ...

Le répérage des fichiers c'est tout bon parcontre changer la couleur ...

Pour moi le plus évident était : Me.C19.BackColor = Color.Red , mais ca ne fonctione pas, apres avoir un peu chercher sur divers forums tout le monde fait de la meme facon et pour eux ca marche ...

[nah666]

Oui c'est comme ca qu'on fait.

Donc ton problème est ailleurs.

Faudrait donner + de code pour qu'on puisse t'aider