Private Sub PictureBox(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter PictureBox1.Size = New Size(45, 45) application.DoEvents Threading.Thread.Sleep(500) PictureBox1.Size = New Size(50, 50) application.DoEvents Threading.Thread.Sleep(500) PictureBox1.Size = New Size(79, 79) End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Sub icone_survol(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter PictureBox1.Size = New Size(45, 45) Application.DoEvents() Threading.Thread.Sleep(1000) PictureBox1.Size = New Size(50, 50) Application.DoEvents() Threading.Thread.Sleep(1000) PictureBox1.Size = New Size(55, 55) End Sub Private Sub icone_seloigner(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave Application.DoEvents() PictureBox1.Size = New Size(40, 40) End Sub
Friend Class CtlPrictureBox 'Ctl est mon préfixe pour les controles utilisateurs Inherits PictureBox 'Ensuite, à toi de remplir Private Sub Me_MouseEnter(...) Handles me.MouseEnter ... End Sub Private Sub Me_MouseLeave(...) Handles me.MouseLeave ... End Sub End class
Friend Class CtlPrictureBox1 'Ctl est mon préfixe pour les controles utilisateurs Inherits PictureBox Private Sub icone_survol(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseEnter PictureBox1.Size = New Size(45, 45) Application.DoEvents() Threading.Thread.Sleep(1000) PictureBox1.Size = New Size(50, 50) Application.DoEvents() Threading.Thread.Sleep(1000) PictureBox1.Size = New Size(55, 55) End Sub Private Sub icone_seloigner(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.MouseLeave Application.DoEvents() PictureBox1.Size = New Size(40, 40) End Sub End Class
Private Sub icone_survol(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.MouseEnter Me.Size = New Size(45, 45) Application.DoEvents() Threading.Thread.Sleep(1000) Me.Size = New Size(50, 50) Application.DoEvents() Threading.Thread.Sleep(1000) Me.Size = New Size(55, 55) End Sub Private Sub icone_seloigner(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.MouseLeave Application.DoEvents() Me.Size = New Size(40, 40) End Sub End Class