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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
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
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
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
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
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