Discussion :

[Daboliu]

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

[Pol63]

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 :

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

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

[Daboliu]

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 :

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

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

m'envoie une erreur de cast....

[Pol63]

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

Code :

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

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 :

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

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

[Daboliu]

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:

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

[Pol63]

si StrTabIndexFirstCard est un integer essaye

Code :

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

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