OVH Cloud OVH Cloud

Afficher images sur minuterie ?

2 réponses
Avatar
Roublin Thierry
Bonjour,
Je souhaiterais à l'ouverture de mon formulaire "d'accueil",
afficher trois petites images qui se superposeraient à tour de rôle et en
boucle.
Je ne peux pas utiliser le gif animé car sur reseau
Merci de m'aider si il y a une solution

Thierry

2 réponses

Avatar
Ilan
Bonjour,
tu peux utiliser cette méthode :

Dim CurImage, PrecImage as image 'Image Courante - Image Precedente
Dim i as byte

' Au chargement du formulaire
sub form_load
set CurImage=Image1
set PrecImage=Image1
i=1
end sub

sub form_timer
PrecImage.visibleúlse
if i=3 then
set CurImage=image1
i=1
else
i=i+1
endif
set Curimage=form.controls("Image" & i)
CurImage.visible=true
set PrecImage=CurImage
end sub




Bonjour,
Je souhaiterais à l'ouverture de mon formulaire "d'accueil",
afficher trois petites images qui se superposeraient à tour de rôle et en
boucle.
Je ne peux pas utiliser le gif animé car sur reseau
Merci de m'aider si il y a une solution

Thierry





Avatar
Ilan
Utilise plutot ce code.
Dim i as byte
Dim PrecImage as image

Sub Form_Load
i=1
Set PrecImage=form.controls("Image" & i)
End sub

'Evenement Timer du formulaire
Sub Form_Timer
PrecImage.visibleúlse
if i=3 then
i=1
else
i=i+1
endif
form.controls("Image" & i).visible=true
End sub




Bonjour,
Je souhaiterais à l'ouverture de mon formulaire "d'accueil",
afficher trois petites images qui se superposeraient à tour de rôle et en
boucle.
Je ne peux pas utiliser le gif animé car sur reseau
Merci de m'aider si il y a une solution

Thierry