Probleme d'Accession à Object

Salut All,

Je n'arrive pas à acceder à une liste d'objets (qui existent) et qui provoque une exception


La liste des objects sont dans un panel nomme Panel_EnQuestion, et les objects s'appelle : Label_Test_1, Label_Test_2, Label_Test_3, etc ... et sont dans des TableLayoutPanel specifiques avec des noms similaires : TLP_Test_1, TLP_Test_2, TLP_Test_3, etc ...
Et j'utilise :

Code:

---

1 2 3

For X = 1 To 10 Panel_EnQuestion.Controls("Label_Test_" & CStr(X)).Text = "Bla Bla Bla" Next

---

Qui provoque :

Citation:

---

L'exception System.NullReferenceException n'a pas été gérée.
Message="La référence d'objet n'est pas définie à une instance d'un objet."

---

Je pense que c'est les TLP qui rentrent en compte, mais je ne sais pas comment faire pour les appeller.
J'ai essaye, mais que je n'arrive pas a faire : (qui marchera)

Code:

---

1 2 3

For X = 1 To 10 TLP_Test_IcilaValeurdeX.Controls("Label_Test_" & CStr(X)).Text = "Bla Bla Bla" Next

---

Merci pour votre aide.
Danyel.

le message d'erreur est clair, l'objet nommé n'existe pas

qu'appelles tu TLP ?

Oui oui j'ai bien compris le message d'erreur.
Il ne le trouve pas car il est dans un TLP (TableLayoutPanel)

J'ai reussi a y acceder directement par

Code:

---

1 2 3

For X = 1 To 10 TLP_Test_1.Controls("Label_Test_1").Text = "Bla Bla Bla" Next

---

Mais je ne sais pas comment faire pour remplacer les 1 par le X de la boucle.

si ton tlp est dans panel, tu peux faire

Code:

---

panel.controls("xxxx" & x).controls("tlp_" & x).text

---

je vois pas où tu bloques

Oui sperot, ca je l'ai deja fait et vu (dans mon premier exemple)

Code:

---

x.Controls("Label_Test_" & CStr(X)).Text = "Bla Bla Bla"

---

Mon probleme, c'est pour le TLP qui contient aussi le 1.


Edit
Ah, je viens de voir ta modif. je vais voir si ok.

Salut !
Est-tu sûr que tes controls sont tous dans la TLP ?

J'ai fait le test avec la boucle et les X, et ça marche.
Par contre, au départ, ça plantait parce que je croyais que l'une des textboxX était dans le pannel, mais non...(alors que je les ai tous insérés graphiquement de la même manière)

Par exemple, tente d'afficher dans un premier temps le TLP.controls.count

Alors voici comment faire sur les bases de sperot :

Code:

---

1 2 3

For X = 1 to 10 Panel_EnQuestion.Controls("TLP_Test_" & X).Controls("Label_Test_" & X).Text = "Bla Bla Bla" Next

---

Je ne savais pas qu'on pouvait concatener plusieurs controls à la suite.
Un immense merci sperot pour cette info :king:


pacmann
Oui, mais le probleme etait qu'il n'y avait pas qu'1 seul TLP, mais autant que de donnees ... d'ou le probleme.

Bonne Journee All.
++ Danyel.

J'ai une autre erreur lorsque j'utilise un picturebox avec la meme procédure :

Code:

---

1 2 3

For X = 1 to 10 Panel_EnQuestion.Controls("TLP_Test_" & X).Controls("PictureBox_Test_" & X).Visible = False Next

---

avec l'erreur :

Citation:

---

La référence d'objet n'est pas définie à une instance d'un objet.

---

Il doit y avoir une autre technique pour les picturebox ... mais j'ai pas trouve.
Une idée ?

arrete d'halluciner, controls n'est qu'une propriété comme une autre, elle n'a rien de spécial
le problème ne vient pas d'elle mais de ton code et de ton organisation dans ta form

de plus un code propre devrait etre un truc du genre :

Code:

---

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

try For X = 1 to 10 dim tlp as control = Panel_EnQuestion.Controls("TLP_Test_" & X) if tlp is nothing then throw new applicationexception("tlp non trouvé")   dim picturebox as control = tlp.controls("PictureBox_Test_" & X) if picturebox is nothing then throw new applicationexception("picrturebox non trouvé")   picturebox.visible = false next catch ex as exception ' tracer l'erreur end try

---

et puis pour savoir d'où vient l'erreur, les espions ca existe (le shift F9 aussi)
tu peux regarder en mode debug avec un point d'arret ce que contient la collection controls donc voir où tu as fait une erreur

En fait, c'etait une erreur de ma part sur une faute de frappe sur le nom du picturebox.
Sinon merci pour ton code qui est interessant.

Une derniere question sperot concernant les picturebox.
- Que faire quand la propriete n'est pas membre de 'System.Windows.Form.Control' genre .image ?

picturebox.image ... pour reprendre ton dernier exemple.

pas compris la question 8O
controls est une collection de control, et permet une recherche par nom
image est une propriété non collection
donc je vois pas le rapport ...

lol n'exagere pas :lol:
Je vais essayer d'etre plus clair en reprennant ton exemple.

Code:

---

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

try For X = 1 to 10 dim tlp as control = Panel_EnQuestion.Controls("TLP_Test_" & X) if tlp is nothing then throw new applicationexception("tlp non trouvé") dim picturebox as control = tlp.controls("PictureBox_Test_" & X) if picturebox is nothing then throw new applicationexception("picrturebox non trouvé") picturebox.image = ...uneimage... next catch ex as exception ' tracer l'erreur end try

---

Et bien, la propriete .image n'est pas reconnu avec une erreur : la propriete n'est pas membre de 'System.Windows.Form.Control'

???

ah ok, j'étais pas parti par là :lol:

alors le code simple vu que tu sais que c'est un picturebox c'est :

Code:

---

DirectCast(picturebox,System.Windows.Forms.Picturebox).Image = ...

---

et si tu dois faire plusieurs choses avec le picturebox, déclare le as picturebox plutot qu'as control pour ne pas faire directcast plusieurs fois

sinon le code propre il faut aussi

Code:

---

1 2	If Not TypeOf picturebox Is System.Windows.Forms.Picturebox Then Throw NewApplicationException ("Erreur impossible en théorie lol")

---

Genial.
Un grand merci sperot :king:

pour info, DirectCast fait en partie comme CType

ctype convertie un truc en un autre (si c'est possible, sinon erreur)

directcast là meme chose mais seulement dans le cas d'héritage ou d'interfacage (et un poil plus rapidement que ctype)
par exemple, picturebox hérite de control donc c'est bon
(se rappeler aussi que tout hérite d'object)