utiliser nom de boutons créés dynamiquement

Bonjour à tous.

Je débute en VB.net aussi pardonnez moi si la question semble stupide et si la description du problème n'est pas très claire:

Voilà, j'ai créée des Picturebox en dynamique (Avec comme nom "MaPictureBox1", "MaPictureBox2" etc.) et je voudrais, à un moment donné, modifier une propriété de l'une d'entre elles.
Malheureusement, je ne peux pas utiliser le "sender" puisque l'action a été faite précédemment (Un clic avant).
Par contre au moment ou je veux faire la modif', je connais le nom de la picture box. (MaPictureBox4 par exemple)

En clair, comment écrire un truc du genre:
MaPictureBox & Lenumerosouhaite & .laproprieteamodifier = ....

En espérant avoir été compréhensible, j'attends avec impatience vos réponses (voir même la traduction de mon probleme avec des mots plus liés au langage, ce qui m'aiderai déjà à faire des recherches par moi-même sur le net)

D'avance merci et bonne journée

question qui es passée y a une semaine environ à laquelle j'ai donné 2 solutions

la moins propre mais néanmoins pas trop mal encore et en tout cas très pratique

Code:

---

directcast(me.controls("mapicturebox" & i),picturebox).lapropriété = lavaleur

---

Merci pour ta réponse rapide et claire Pole63.

Désolé de ne pas avoir trouver ta réponse datant d'une semaine. Encore une fois, ce n'est pas évident de trouver des réponses quand on a du mal à formuler la question.

Ta solution devrait résoudre mon problème même si actuellement :

Code:

---

DirectCast(Me.Controls("MesPicturesBox" & StrTabIndexFirstCard), PictureBox).Image = Image. etc....

---

m'envoie une erreur de cast....

oui je t'ai mis la version non safe, il faut ajouter avant :

Code:

---

1 2 3 4

if not me.controls.contains("mapicturebox" & nb) then msgbox("j'ai du raté un truc, ce picturebox n'existe pas") exit sub end if

---

et éventuellement ensuite

Code:

---

1 2 3 4 5

if not typeof me.controls.contains("mapicturebox" & nb) is picturebox then msgbox("j'ai du raté un truc, ce controle n'est pas un picturebox") exit sub end if

---

et si ton picturebox n'est pas sur le form mais sur un container il faut mettre monpanel.controls()

Les rajouts que tu me mets semblent servir au cas ou la pictureboxN°x n'existe pas ou bien soit d'un autre type.

Je comprends l'intérêt de ces sécurités mais mon soucis semble être légèrement différents. Le message d'erreur est:

Citation:

---

Cast from string "MaPictureBox4" to type 'integer' is not valid

---

Je n'arrive pas à voir à comprendre pourquoi l'erreur parle d'integer car à aucun moment je n'essaye de passer d'une string à un integer....enfin, surement que si....

(Merci de perdre ton temps avec un débutant....) ;)

si StrTabIndexFirstCard est un integer essaye

Code:

---

DirectCast(Me.Controls("MesPicturesBox" & StrTabIndexFirstCard.ToString), PictureBox).Image = Image. etc....

---

Pol, je ne pense pas que ce soit cela car il dit bien : Cast from string "MaPictureBox4" ... donc la valeur numerique est bien prise en compte.
Doit y avoir un autre probleme sur la fin de la ligne je pense. Donne nous là entiere.

Bizarre, chez moi ce Cast fonctionne :

Code:

---

1 2	Dim i as integer = 1 DirectCast(Me.Controls("PictureBox" & i), PictureBox)

---

VB comprend tous seul que c'est une Key (string) et non un index (integer) que l'on envoie en paramêtre.
L'opérateur "&" est d'ailleurs sans équivoque ...

Comme dit Danyel, le problème doit être ailleurs.

Pol63, StrTabIndexFirstCard est de type String (Mais j'avais essayé le .tostring, au cas ou....)

Pour Totane et Danyel, voici deux lignes entiere:

Code:

---

1 2 3

CType(sender, PictureBox).Image = Image.FromFile(Application.StartupPath & "\Images\Face.jpg")   DirectCast(Me.Controls("MesPicturesBox" & StrTabIndexFirstCard), PictureBox).Image = Image.FromFile(Application.StartupPath & "\Images\Face.jpg")

---

La première fonctionne parfaitement.
La deuxième provoque l'erreur (J'ai essayé de remplacer DirectCast par CType mais idem)

Bonne journée à tous les trois!

dans me.controls vérifie que ca te propose bien une surcharge qui demande un string

Merci beaucoup Pol63 puisque tu m'as orienté vers la solution.
Et pourtant c'était pas gagné car je débute vraiment et je n'étais même pas sûr de comprendre ce que tu voulais que je fasse.

Bon pour ceux que la solution intéresse, je mets le détail de ce que j'ai fait après la réponse de Pol63

Quand je mets juste

Code:

---

Me.controls(

---

sans le directCast, l'info-bulle m'indique:
Item(Index as Integer)

Il semblerait donc qu'il faille un Integer.
Je transforme donc ma variable StrTabIndexFirstCard as string en IntTabIndexFirstCard as Integer et tente:

Code:

---

DirectCast(Me.Controls(IntTabIndexFirstCard), PictureBox).Image = Image.FromFile(Application.StartupPath & "\Images\Face.jpg")

---

Apparemment, ça ne plante plus....mais ça ne fait pas ce que je souhaite....
Mais en faisant un (IntTabIndexFirstCard-1), Benco!!!!

Il fallait donc ceci:

Code:

---

DirectCast(Me.Controls(IntTabIndexFirstCard-1), PictureBox).Image = Image.FromFile(Application.StartupPath & "\Images\Face.jpg")

---

Merci à tous ceux qui ont planché sur mon problème de noob et spécialement à Pol63 qui m'a mis le nez sur la solution.
Sans doute un énième code résolu pour toi mais une aide précieuse de mon point de vue.

Vive les forum et les personnes qui donnent de leur temps pour aider "les plus faibles".
;)

Bonne continuation à tous (et certainement à une prochaine fois....)

PS:Buns, je coche résolu! ;)

et pourtant ce n'est pas résolu même si ca fonctionne ^^

me.controls demande un integer certes, mais normalement tu as petite flèche marqué 1sur3 et il faut voir les autres, normalement y a une surcharge (= autre appel possible) avec un string qui prend le nom du control

car la surcharge qui prend le numéro retourne le controle qui est arrivé à xème position sur le container (form ou autre)

donc si en faisant -1 tu tombes dessus, ca pourra changer dans le temps ...