Amelioration d'une portion de code VB

Bonsoir,

Voici une portion de code vbnet, mais je pense que cela doit etre ameliorable ("If sender Is..." repete 4 fois! Ca marche, mais c'est pas terrible!).
De plus, le "sender.Image" ne marche pas (pas autorise). Donc, je pourrais verifie s'il ya une image dans chaque IF, mais ca va etre tres lourd.

Code:

---

1 2 3 4 5 6 7 8 9

Private Sub pbSelectedBG2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles pbSelectedBG2.Click, pbSelectedBG3.Click, pbSelectedBG4.Click, pbSelectedBG5.Click If sender.image = Nothing Then Exit Sub If sender Is pbSelectedBG2 Then pbCurrentBG.Image = pbSelectedBG2.Image If sender Is pbSelectedBG3 Then pbCurrentBG.Image = pbSelectedBG3.Image If sender Is pbSelectedBG4 Then pbCurrentBG.Image = pbSelectedBG4.Image If sender Is pbSelectedBG5 Then pbCurrentBG.Image = pbSelectedBG5.Image SomethingElse() End Sub

---

Je voudrais donc savoir comment ecrire proprement ce genre de code, si c'est possible.
Merci,

A+
JLuc01

Salut,

as-tu essayé un cast explicite ? Du genre (en C#) :

Code:

---

1 2	// j'imagine que tes contrôles sont des PictureBox pbCurrentBG.Image = ((PictureBox)sender).Image;

---

en vb.net :

Code:

---

pbCurrentBG.Image = DirectCast(sender, picturebox).Image

---

sender est as object pour que tout puisse rentrer dedans, et sur object il n'y a pas .image
par contre si tu sais que c'est un picturebox (ou autre) tu peux caster, c'est à typer la variable autrement, ce qui te permet de l'utiliser comme ce qu'elle est


quand plusieurs types peuvent être contenus, on peut utiliser TypeOf pour vérifier ce qu'il y a dans la variable

Code:

---

1 2 3

if typeof sender is button then dim b = directcast(sender, button) ' ....

---

Bonjour,

Eh, oui! J'aurais du y penser. Je crois avoir deja fait quelquechose comme ca dans le passe.
J'ai toujours un peu de peine quand j'utilise le "sender" et le "e".

Bref, j'essaye cela ce soir, et je valide si ca marche.

A+
JLuc01

sender et e :
http://www.developpez.net/forums/d71...t/#post4157798