Animation d'images

Télécharger le projet
Commenter

Description

Voici 2 méthodes d'animation d'images avec des imagelist que vous pouvez inclure dans vos applications.Vous pouvez mettre aussi une animation dans vos boutons.

Source / Exemple : 


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 projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (cs_Le Pivert)