1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
| ''Quand on l'enlève la souris de l'image
Private Sub PictureBox1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave
'Quand la souris quitte l'image, on dessine une image "vide", et on l'assigne à la picturebox2
Dim img = New Bitmap(104, 104)
Picturebox2.Image = img
End Sub
'Quand on vient glisser la souris sur l'image
Private Sub PictureBox1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseMove
Dim brush As New SolidBrush(Color.Turquoise)
Picturebox2.Size = New Size(104, 104)
'On remplit l'image d'un fond couleur turquoise (Brush)
g.FillRectangle(brush, 0, 0, 104, 104)
'On dessine un rectangle noir en "contour"
g.DrawRectangle(Pens.Black, 0, 0, 103, 103)
'On assigne l'image à la picturebox2
Picturebox2.Image = backimg
End Sub |
Partager