ANIMATION D'IMAGES

Public Class Form1
    'sans pictureBox
    Private m_Index As Integer
    Private m_NumImages As Integer
    'avec pictureBox et bouton
    Private m_ControlCount As Int16 = 0
   
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Avec pictureBox 
        tmrImage.Enabled = True
        tmrImage.Start()
        'Avec  bouton
        tmrbouton.Enabled = True
        tmrbouton.Start()
        'Sans pictureBox
        m_NumImages = imgList.Images.Count
        m_Index = -1
    End Sub
    ' 1ère Méthode avec une pictureBox
    Private Sub tmrImage_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrImage.Tick
        ' Mettre l'image dans la PictureBox.
        PictureBox1.Image = imgList.Images(m_ControlCount)
        'On fait défiler les images 
        m_ControlCount = (m_ControlCount + 1) Mod imgList.Images.Count

    End Sub

   Private Sub btnstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnstop.Click
        If tmrImage.Enabled = True Then 'Intervalle 100
            btnstop.Text = "&Start"
            tmrImage.Stop()
        Else
            btnstop.Text = "&Stop"
            tmrImage.Start()
        End If

    End Sub
    ' 2ème Méthode sans pictureBox
    Private Sub tmrAnimation_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrAnimation.Tick
        m_Index = (m_Index + 1) Mod m_NumImages
        Dim gr As Graphics = Me.CreateGraphics()
        gr.DrawImage(imgList.Images(m_Index), 10, 10) 'positionnement de l'image sur la form
    End Sub

    Private Sub btnarret_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnarret.Click
        If tmrAnimation.Enabled = True Then 'Intervalle 150
            btnarret.Text = "&Start"
            tmrAnimation.Stop()
        Else
            btnarret.Text = "&Stop"
            tmrAnimation.Start()
        End If
    End Sub
    ' 3ème Méthode dans un bouton
    Private Sub btntest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btntest.Click
        If tmrbouton.Enabled = True Then 'Intervalle 50
            btntest.Text = "&Start"
            tmrbouton.Stop()
        Else
            btntest.Text = "&Stop"
            tmrbouton.Start()
            MsgBox(" C'est super, ça marche!!!")
        End If
    End Sub

    Private Sub tmrbouton_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrbouton.Tick
        ' Mettre l'image dans le bouton
        btntest.Image = ImageList1.Images(m_ControlCount)
        'On fait défiler les images 
        m_ControlCount = (m_ControlCount + 1) Mod imgList.Images.Count
    End Sub
   
End Class

Télécharger le zip

30 juillet 2008 11:07:59 :

Rectification du code suite au conseil de NHENRY.Merci

04 août 2008 18:15:39 :

Ajout du code en VBA Excel

09 août 2008 14:40:00 :

Ajout d'une animation d'image dans un bouton.

09 août 2008 17:25:14 :

Ajout d'une 2ème imaglist pour mettre l'image dans le bouton à la bonne dimension.