Comme son nom l'indique, cette source permet d'afficher des gifs animés sur une form ... Cette source n'est pas de moi .. mais j'ai jugé utile de mettre une source de ce style sur vbfrance.com ... Merci à son auteur ...
voila ...
@+
bigbang
bigbang00@caramail.com
Source / Exemple :
' zip
Conclusion :
Si vous voulez des commentaires, voulez faire des remarques, constatez des bugs ou toutes autres choses, n'hésitez surtout pas a me mailez à bigbang00@caramail.com
@+ et bonne prog...
bigbang
http://www.vbfrance.com/code.aspx?ID=24041
Je ne vois pas de différence ! Y en a t'il une ???
A vous de voir si c'est OK.
A+
Private Sub tmrAnim_Timer()
Dim i As Integer
AnimatedGIF(FrameCount).Visible = False
If FrameCount < TotalFrames Then
FrameCount = FrameCount + 1
AnimatedGIF(FrameCount).Visible = True
tmrAnim.Interval = CLng(AnimatedGIF(FrameCount).Tag)
Else
AnimatedGIF(FrameCount).Visible = False
FrameCount = 0
AnimatedGIF(FrameCount).Visible = True
(FrameCount).Tag)
End If
End Sub
Du coup, je cherche un truc plus standard (genre y a rien à faire du tout coté code).
Mais c'est clair que ce source est quand même pas mal du tout...
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.