Gif animés dans une form [sans dll et ocx]

Soyez le premier à donner votre avis sur cette source.

Vue 14 497 fois - Téléchargée 2 550 fois

Description

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

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_nadjim
Messages postés
24
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
29 avril 2010
-
Pas mal du tout l'idée que tu as eu. C'est sympatique et original (chapeau).
cs_nadjim
Messages postés
24
Date d'inscription
mardi 18 décembre 2001
Statut
Membre
Dernière intervention
29 avril 2010
-
Par contre pour les gif animés de grosse taille (beaucoup d'image) ou un peu grand, l'affichage est catastrophique
cs_marm0tte
Messages postés
203
Date d'inscription
mercredi 5 février 2003
Statut
Membre
Dernière intervention
18 janvier 2009
-
Bien a part le probleme d affichage avec les gros gifs ----> 8/10
acrcorp
Messages postés
96
Date d'inscription
dimanche 16 février 2003
Statut
Membre
Dernière intervention
23 septembre 2007
-
Je connais bien ce source mais il m'a poser des problème de portabilité NT/XP (Vb5/Vb6).
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...
cs_Nicolas75
Messages postés
27
Date d'inscription
lundi 26 janvier 2004
Statut
Membre
Dernière intervention
4 février 2008
-
Suite au problème que vous soulevez par rapport à ce code, j'y ai appoté une petite modif.

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

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.