dans une form, je veux coller une image, et qu'à intervalles définis par un timer, cette image change (pour faire une sorte
d'animation, puisque je n'ai pas de logiciel pour faire des gifs animés ;-)
mais je ne sais comment procéder, ou du moins quelle syntaxe employer pour modifier cette image (en fait, 3 ou 4 icônes différentes
, qui changeraient en boucle ...)
merci de vos conseils
--
Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm
Pourquoi ne pas rechercher la dll GIF89 qui permet l'affichage de gif animés ... ?
Cdlt,
salut !
ben parce qu'il faudrait que je le *crée* , ce gif animé .... et comme je disais, j'ai pas le matos pour ! ;-)
donc, je préfèrerais utiliser plusieurs images et un timer ...
merci
--
Attention ! Adresse mail invalide ... Pour me contacter, cliquez sur le lien ci-dessous: http://scraper.chez.tiscali.fr/contact.htm
scraper
Bonjour/soir,
Avec un contrôle picturebox (picture1) et un timer (Timer1), tu pourrais implémenter un code comme celui-ci:
Private CurrentPicture As Long Private Pictures() As Picture Private Sub Form_Load() Redim Pictures(3) Set Picture(0) = LoadPicture("c:picsimage1.bmp") Set Picture(1) = LoadPicture("c:picsimage2.bmp") Set Picture(2) = LoadPicture("c:picsimage3.bmp") Set Picture(3) = LoadPicture("c:picsimage4.bmp")
Timer1.Interval = 500 'Toutes les 1/2 secondes Timer1.Enabled = True End Sub
Private Sub Timer1_Timer() Set Picture1.Picture = Pictures(CurrentPicture) CurrentPicture = CurrentPicture + 1 If CurrentPicture > Ubound(Pictures) Then CurrentPicture = 0 End If End Sub
Le contrôle Timer n'est pas des plus précis. Pour une demi seonde, ça devrait aller sans problème mais s tu as besoin d'un interval très faible, il faudrait voir du côté des API, comme par exemple:
(et aussi en VB:) http://www.vbaccelerator.com/home/VB/Code/Libraries/HiResTi mer/article.asp
On peut à ce bout de code ajouter des classes représentant une image, sa durée d'apparition, .. On peut aussi enregistrer l'animation dans un nouveau format propriétaire (Windows Media, GIF, ...), ou au contraire, en un format ouvert, tel que le XML.
Par contre, pour afficher du GIF (ce qui requert une décompression LZW), il em semble qu'il faut payer si le logiciel n'est pas destiné à être un freeware.
Il existe, du côté de png, le format mng qui apparement serait libre de drots... c'est une alternative possible... http://www.libpng.org/pub/mng/ -- François Picalausa
-----Message d'origine----- bonsoir à tous !
dans une form, je veux coller une image, et qu'à
intervalles définis par un timer, cette image change (pour faire une sorte
d'animation, puisque je n'ai pas de logiciel pour faire
des gifs animés ;-)
mais je ne sais comment procéder, ou du moins quelle
syntaxe employer pour modifier cette image (en fait, 3 ou 4 icônes différentes
, qui changeraient en boucle ...)
merci de vos conseils
--
Attention ! Adresse mail invalide ... Pour me contacter, cliquez sur le lien ci-dessous: http://scraper.chez.tiscali.fr/contact.htm
scraper
.
Bonjour/soir,
Avec un contrôle picturebox (picture1) et un timer
(Timer1), tu pourrais implémenter un code comme celui-ci:
Private CurrentPicture As Long
Private Pictures() As Picture
Private Sub Form_Load()
Redim Pictures(3)
Set Picture(0) = LoadPicture("c:picsimage1.bmp")
Set Picture(1) = LoadPicture("c:picsimage2.bmp")
Set Picture(2) = LoadPicture("c:picsimage3.bmp")
Set Picture(3) = LoadPicture("c:picsimage4.bmp")
Timer1.Interval = 500 'Toutes les 1/2 secondes
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Set Picture1.Picture = Pictures(CurrentPicture)
CurrentPicture = CurrentPicture + 1
If CurrentPicture > Ubound(Pictures) Then
CurrentPicture = 0
End If
End Sub
Le contrôle Timer n'est pas des plus précis. Pour une demi
seonde, ça devrait aller sans problème mais s tu as besoin
d'un interval très faible, il faudrait voir du côté des
API, comme par exemple:
(et aussi en VB:)
http://www.vbaccelerator.com/home/VB/Code/Libraries/HiResTi
mer/article.asp
On peut à ce bout de code ajouter des classes représentant
une image, sa durée d'apparition, ..
On peut aussi enregistrer l'animation dans un nouveau
format propriétaire (Windows Media, GIF, ...), ou au
contraire, en un format ouvert, tel que le XML.
Par contre, pour afficher du GIF (ce qui requert une
décompression LZW), il em semble qu'il faut payer si le
logiciel n'est pas destiné à être un freeware.
Il existe, du côté de png, le format mng qui apparement
serait libre de drots... c'est une alternative possible...
http://www.libpng.org/pub/mng/
--
François Picalausa
-----Message d'origine-----
bonsoir à tous !
dans une form, je veux coller une image, et qu'à
intervalles définis par un timer, cette image change (pour
faire une sorte
d'animation, puisque je n'ai pas de logiciel pour faire
des gifs animés ;-)
mais je ne sais comment procéder, ou du moins quelle
syntaxe employer pour modifier cette image (en fait, 3 ou
4 icônes différentes
, qui changeraient en boucle ...)
merci de vos conseils
--
Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm
Avec un contrôle picturebox (picture1) et un timer (Timer1), tu pourrais implémenter un code comme celui-ci:
Private CurrentPicture As Long Private Pictures() As Picture Private Sub Form_Load() Redim Pictures(3) Set Picture(0) = LoadPicture("c:picsimage1.bmp") Set Picture(1) = LoadPicture("c:picsimage2.bmp") Set Picture(2) = LoadPicture("c:picsimage3.bmp") Set Picture(3) = LoadPicture("c:picsimage4.bmp")
Timer1.Interval = 500 'Toutes les 1/2 secondes Timer1.Enabled = True End Sub
Private Sub Timer1_Timer() Set Picture1.Picture = Pictures(CurrentPicture) CurrentPicture = CurrentPicture + 1 If CurrentPicture > Ubound(Pictures) Then CurrentPicture = 0 End If End Sub
Le contrôle Timer n'est pas des plus précis. Pour une demi seonde, ça devrait aller sans problème mais s tu as besoin d'un interval très faible, il faudrait voir du côté des API, comme par exemple:
(et aussi en VB:) http://www.vbaccelerator.com/home/VB/Code/Libraries/HiResTi mer/article.asp
On peut à ce bout de code ajouter des classes représentant une image, sa durée d'apparition, .. On peut aussi enregistrer l'animation dans un nouveau format propriétaire (Windows Media, GIF, ...), ou au contraire, en un format ouvert, tel que le XML.
Par contre, pour afficher du GIF (ce qui requert une décompression LZW), il em semble qu'il faut payer si le logiciel n'est pas destiné à être un freeware.
Il existe, du côté de png, le format mng qui apparement serait libre de drots... c'est une alternative possible... http://www.libpng.org/pub/mng/ -- François Picalausa
-----Message d'origine----- bonsoir à tous !
dans une form, je veux coller une image, et qu'à
intervalles définis par un timer, cette image change (pour faire une sorte
d'animation, puisque je n'ai pas de logiciel pour faire
des gifs animés ;-)
mais je ne sais comment procéder, ou du moins quelle
syntaxe employer pour modifier cette image (en fait, 3 ou 4 icônes différentes
, qui changeraient en boucle ...)
merci de vos conseils
--
Attention ! Adresse mail invalide ... Pour me contacter, cliquez sur le lien ci-dessous: http://scraper.chez.tiscali.fr/contact.htm
scraper
.
scraper
Dans son message 3f7b01c3e32b$b9aff040$,
nous a écrit/ répondu :
Bonjour/soir,
Avec un contrôle picturebox (picture1) et un timer (Timer1), tu pourrais implémenter un code comme celui-ci:
Private CurrentPicture As Long Private Pictures() As Picture Private Sub Form_Load() Redim Pictures(3) Set Picture(0) = LoadPicture("c:picsimage1.bmp") Set Picture(1) = LoadPicture("c:picsimage2.bmp") Set Picture(2) = LoadPicture("c:picsimage3.bmp") Set Picture(3) = LoadPicture("c:picsimage4.bmp")
Timer1.Interval = 500 'Toutes les 1/2 secondes Timer1.Enabled = True End Sub
Private Sub Timer1_Timer() Set Picture1.Picture = Pictures(CurrentPicture) CurrentPicture = CurrentPicture + 1 If CurrentPicture > Ubound(Pictures) Then CurrentPicture = 0 End If End Sub
salut !
merci bcp pour ta réponse, c'est semble t il exactement ce que je cherchais !!
Le contrôle Timer n'est pas des plus précis. Pour une demi seonde, ça devrait aller sans problème mais s tu as besoin d'un interval très faible, il faudrait voir du côté des API, comme par exemple:
non, pas la peine, ça doit pas être très précis !
c'est tjs avec mon histoire de progressbar ...
il y a un moment ou ça mouline ferme, et on pourrait être tenté de croire que ça a planté, puisqu'elle évolue plus .. donc, je voudrais créer *aussi* une pseudo animation (tjs à but pédagogique ! ;-)
je teste, et je te tiens au courant ...
merci
--
Attention ! Adresse mail invalide ... Pour me contacter, cliquez sur le lien ci-dessous: http://scraper.chez.tiscali.fr/contact.htm
scraper
Dans son message 3f7b01c3e32b$b9aff040$a601280a@phx.gbl,
anonymous@discussions.microsoft.com nous a écrit/ répondu :
Bonjour/soir,
Avec un contrôle picturebox (picture1) et un timer
(Timer1), tu pourrais implémenter un code comme celui-ci:
Private CurrentPicture As Long
Private Pictures() As Picture
Private Sub Form_Load()
Redim Pictures(3)
Set Picture(0) = LoadPicture("c:picsimage1.bmp")
Set Picture(1) = LoadPicture("c:picsimage2.bmp")
Set Picture(2) = LoadPicture("c:picsimage3.bmp")
Set Picture(3) = LoadPicture("c:picsimage4.bmp")
Timer1.Interval = 500 'Toutes les 1/2 secondes
Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
Set Picture1.Picture = Pictures(CurrentPicture)
CurrentPicture = CurrentPicture + 1
If CurrentPicture > Ubound(Pictures) Then
CurrentPicture = 0
End If
End Sub
salut !
merci bcp pour ta réponse, c'est semble t il exactement ce que je cherchais !!
Le contrôle Timer n'est pas des plus précis. Pour une demi
seonde, ça devrait aller sans problème mais s tu as besoin
d'un interval très faible, il faudrait voir du côté des
API, comme par exemple:
non, pas la peine, ça doit pas être très précis !
c'est tjs avec mon histoire de progressbar ...
il y a un moment ou ça mouline ferme, et on pourrait être tenté de croire que ça a planté, puisqu'elle évolue plus .. donc, je
voudrais créer *aussi* une pseudo animation (tjs à but pédagogique ! ;-)
je teste, et je te tiens au courant ...
merci
--
Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm
Avec un contrôle picturebox (picture1) et un timer (Timer1), tu pourrais implémenter un code comme celui-ci:
Private CurrentPicture As Long Private Pictures() As Picture Private Sub Form_Load() Redim Pictures(3) Set Picture(0) = LoadPicture("c:picsimage1.bmp") Set Picture(1) = LoadPicture("c:picsimage2.bmp") Set Picture(2) = LoadPicture("c:picsimage3.bmp") Set Picture(3) = LoadPicture("c:picsimage4.bmp")
Timer1.Interval = 500 'Toutes les 1/2 secondes Timer1.Enabled = True End Sub
Private Sub Timer1_Timer() Set Picture1.Picture = Pictures(CurrentPicture) CurrentPicture = CurrentPicture + 1 If CurrentPicture > Ubound(Pictures) Then CurrentPicture = 0 End If End Sub
salut !
merci bcp pour ta réponse, c'est semble t il exactement ce que je cherchais !!
Le contrôle Timer n'est pas des plus précis. Pour une demi seonde, ça devrait aller sans problème mais s tu as besoin d'un interval très faible, il faudrait voir du côté des API, comme par exemple:
non, pas la peine, ça doit pas être très précis !
c'est tjs avec mon histoire de progressbar ...
il y a un moment ou ça mouline ferme, et on pourrait être tenté de croire que ça a planté, puisqu'elle évolue plus .. donc, je voudrais créer *aussi* une pseudo animation (tjs à but pédagogique ! ;-)
je teste, et je te tiens au courant ...
merci
--
Attention ! Adresse mail invalide ... Pour me contacter, cliquez sur le lien ci-dessous: http://scraper.chez.tiscali.fr/contact.htm
scraper
scraper
Dans son message 3f7b01c3e32b$b9aff040$,
nous a écrit/ répondu :
Bonjour/soir,
Avec un contrôle picturebox (picture1) et un timer (Timer1), tu pourrais implémenter un code comme celui-ci:
[couic]
Re !
me revoila !
c'est super cool, ça baigne ... :-)
(un petit oubli de "s" à set Pictures(0), etc ... sinon, ça roule)
merci encore !
--
Attention ! Adresse mail invalide ... Pour me contacter, cliquez sur le lien ci-dessous: http://scraper.chez.tiscali.fr/contact.htm
scraper - qui a encore appris un truc ! :-)
Dans son message 3f7b01c3e32b$b9aff040$a601280a@phx.gbl,
anonymous@discussions.microsoft.com nous a écrit/ répondu :
Bonjour/soir,
Avec un contrôle picturebox (picture1) et un timer
(Timer1), tu pourrais implémenter un code comme celui-ci:
[couic]
Re !
me revoila !
c'est super cool, ça baigne ... :-)
(un petit oubli de "s" à set Pictures(0), etc ... sinon, ça roule)
merci encore !
--
Attention ! Adresse mail invalide ...
Pour me contacter, cliquez sur le lien ci-dessous:
http://scraper.chez.tiscali.fr/contact.htm
Avec un contrôle picturebox (picture1) et un timer (Timer1), tu pourrais implémenter un code comme celui-ci:
[couic]
Re !
me revoila !
c'est super cool, ça baigne ... :-)
(un petit oubli de "s" à set Pictures(0), etc ... sinon, ça roule)
merci encore !
--
Attention ! Adresse mail invalide ... Pour me contacter, cliquez sur le lien ci-dessous: http://scraper.chez.tiscali.fr/contact.htm
scraper - qui a encore appris un truc ! :-)
Zoury
> ben parce qu'il faudrait que je le *crée* , ce gif animé .... et comme
je disais, j'ai pas le matos pour ! ;-)
donc, je préfèrerais utiliser plusieurs images et un timer ...
Concernant les .GIF.. tu pourrais faire un tour sur www.download.com et fouiller pour "GIF editor" ou quelque chose du genre.. tu pourras surement en trouver des gratuits ou sinon des versions d'essai..
Merci de poster les réponses au groupe afin d'en faire profiter à tous
> ben parce qu'il faudrait que je le *crée* , ce gif animé .... et comme
je disais, j'ai pas le matos pour ! ;-)
donc, je préfèrerais utiliser plusieurs images et un timer ...
Concernant les .GIF.. tu pourrais faire un tour sur www.download.com et
fouiller pour "GIF editor" ou quelque chose du genre.. tu pourras surement
en trouver des gratuits ou sinon des versions d'essai..
> ben parce qu'il faudrait que je le *crée* , ce gif animé .... et comme
je disais, j'ai pas le matos pour ! ;-)
donc, je préfèrerais utiliser plusieurs images et un timer ...
Concernant les .GIF.. tu pourrais faire un tour sur www.download.com et fouiller pour "GIF editor" ou quelque chose du genre.. tu pourras surement en trouver des gratuits ou sinon des versions d'essai..
