Acceder a un objet par une variable

Version imprimable

16/06/2011, 17h16
Steve57

Acceder a un objet par une variable
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:

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

Quelque chose du genre:

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

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.

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:

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

17/06/2011, 11h07
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)
17/06/2011, 12h07
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 ...
17/06/2011, 14h50
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

Meme en mettant ca en premier dans le Private Sub Form1_Load rien ne change.

Code:

1
2
3
4
5
6
7
 
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        Me.C1.BackColor = Color.DarkOrange
        Me.C10.BackColor = Color.Red
 
    End Sub

Mon if est très simple et est fonctionel, je l'ai testé avec un msgBox avant je lui donner les codes de changement de couleur.

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
 
 Private Sub RechercherReservation(ByVal mois As Integer, ByVal annee As Integer)
 
        Dim dir_name As String = "C:\TDS Planning\Data\2011\6"
        Dim X As Integer = 1
 
boucle:
        Dim tmp As String = "C:\TDS Planning\Data\" & annee & "\" & mois & "\" & X & ".txt"
 
        If X < 32 Then
            If File.Exists(tmp) Then Colorer(X)
            X += 1
            GoTo boucle
        End If
    End Sub
 
 
    Private Sub Colorer(ByVal X As Integer)
 
        If Me.C1.Text = X Then Me.C1.BackColor = Color.Red
        If Me.C2.Text = X Then Me.C2.BackColor = Color.Red
        ....
 
    End Sub