Accueil > > > ANIMATION D'IMAGES
ANIMATION D'IMAGES
Information sur la source
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
- 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
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
Fichier Zip
Historique
- 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.
Sources du même auteur
Sources de la même categorie
Commentaires et avis
Discussions en rapport avec ce code source dans le forum
ImageList et PictureBox [ par kpfeu ]
Bonjour, j'ai vraiement bessoin de votre aide.J'ai un controle ImageList dans lequel sont définit 4 images. Et j'aimerais afficher l'image de mon Imag
graphics et timer [ par yffick ]
Bonjour,j'ai besoin d'aide en vb.netDans un evenement tick d'un timer je cree un graphics g et je voudrais dessiner un rectangle r qui se reaffichent
ImageList et ListView [ par RL ]
Bonjour,Mon Pb est le suivant:Dans un formulaire d'essai j'ai placé un ctrl ListView, un ctrl ImageList, un ctrl PictureBox et j'écécute le code suiva
ImageList et picturebox! [ par Seth77 ]
Slu comment faire pour afficher dans une picturebox une image qui est dans une imagelist ? merci d avance !Herve
Prb fluidité d'une animation dans une picturebox [ par daddycool76 ]
Bonjour, J'ai dans une picturebox des objets (circle, line et text) que l'utilisateur peut déplacer lorsqu'il clic dessus.Le code est un peu bourrin :
Comment simplifier mon code? [ par athlon64 ]
Bonjour,Je suis débutant en vb6 et je me retrouve bloqué dans l'avancement de mon projet parce que je ne sais pas comment simplifier mon code.je vais
Besoin d'aide: pictureBox versus VBA + imageList [ par Menhir ]
SalutQuelqu'un peut m'aider??? Je programme avec Access 2000 en VBA et je désire faire afficher dans mon formulaire des images à partir d'un imageList
animation, timer [ par wahidov2000 ]
bonjour ,je veux juste savoir comment faire pour qu'un timer soit toujours en execution (pas d'interuption)car j'utilise des bases de donnée de grande
PictureBox ComboBox et ImageList [ par djdjo59 ]
Bonjour, voilà j'ai un ComboBox avec une liste de chiens, et une pciturebox qui donne l'image du chien lorsque je clique sur une race de chien de ma
|
Derniers Blogs
GESTION D'EXCEPTION AVEC LES TASKSGESTION D'EXCEPTION AVEC LES TASKS par richardc
Nous avons vu dans un précédent article comment utiliser Task pour effectuer des opérations dans un autre thread.
Malheureusement, comme tout le monde n'est pas parfait, il se peut que cette exécution se passe mal et qu'une exception se produise.
La...
Cliquez pour lire la suite de l'article par richardc DéMARRONS AVEC LES TASKSDéMARRONS AVEC LES TASKS par richardc
Que vous le vouliez ou non, le développement multi-tâche est maintenant une obligation pour toute nouvelle application. Il est donc vital d'en comprendre les mécanismes et de s'y mettre le plus tôt possible.
En attendant le .NET Framework 4.5 avec le...
Cliquez pour lire la suite de l'article par richardc SLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPSSLIDE & DéMO TECHDAYS 2012 - FAST & FURIOUS XAML APPS par Vko
Retrouvez les slides et les démo de ma session Fast & Furious XAML Apps. A ceux qui se posent la question : "est-ce que le code de la DataGrid est disponible?", je vous répondrais "pas encore". Je vais mettre en place un projet codeplex pour part...
Cliquez pour lire la suite de l'article par Vko XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice
Logiciels
DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|