Afficher sur une picturebox une image lorsqu'on n'en survole une autre

**andy331** · 04/06/2010, 00h57

Bonjour,
Voila en gros j'ai une
Grande PictureBox
avec des petites PictureBox autour et je vaudrais que lorsque je survole l'une une des petites PictureBox elle me la fiche sur la grande PictureBox
Mais la grande PictureBox possède déjà une image par défaut

Est que sais faire ça parce que moi j'ai aucune idée de comment faire parce que je viens juste débuter en VB.net

Merci de votre aide.

La hâte engendre en tout l'erreur, et de l'erreur sort bien souvent le désastre

**Arnaud Malabeux** · 04/06/2010, 08h50

Bonjour

As tu essayer de creer un évènement de type MouseEnter (Se produit losrque la souris entre dans la partie visible du contrôle) de ta PictureBox ?

arnaud

**methylene** · 04/06/2010, 12h25

En gros ce que Arnaud Malabeux a dit :

Code :

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

1
2
3
4
5
    Private Sub PetitePictureBox1_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PetitePictureBox1.MouseEnter
 
GrandePictureBox.Image = PetitePictureBox1.Image
 
    End Sub

Code :

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

1
2
3
4
5
    Private Sub PetitePictureBox2_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles PetitePictureBox2.MouseEnter
 
GrandePictureBox.Image = PetitePictureBox2.Image
 
    End Sub

Et ainsi de suite ...

**Arnaud Malabeux** · 04/06/2010, 12h30

Salut Mthylene

c'est exactement cela que je voulais dire.

Bon toi tu met du code en plus.

Arnaud

(entre parenthèse a tu vu ma derniere discution que j'ai envoyé, je te demande cela car je suis dans la m.....e)

**Sehnsucht** · 04/06/2010, 12h35

Bonjour,

En factorisant un peu c'est pas mal aussi

Code VB.Net :

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

1
2
3
4
5
6
 
Private Sub PetitesPictureBoxes_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PetitePictureBox1.MouseEnter, PetitePictureBox2.MouseEnter ', etc...
 
    GrandePictureBox.Image = DirectCast(sender, PictureBox).Image
 
End Sub

**methylene** · 04/06/2010, 12h38

Envoyé par Sehnsucht

Bonjour,

En factorisant un peu c'est pas mal aussi

Code VB.Net :

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

1
2
3
4
5
6
 
Private Sub PetitesPictureBoxes_MouseEnter(ByVal sender As Object, ByVal e As EventArgs) Handles PetitePictureBox1.MouseEnter, PetitePictureBox2.MouseEnter ', etc...
 
    GrandePictureBox.Image = DirectCast(sender, PictureBox).Image
 
End Sub

En effet, c'est mieux

Mais bon c'était surtout pour qu'il comprenne comment cela fonctionne, en factorisant c'est un peu plus "complexe".

Car c'est toujours bien sympa de balancer un code qui marche, mais si les gens ne comprennent pas comment ça fonctionne, c'est limite inutile car il reposeront la question pour le même type de problème.