Contributions > 09 - Automation > Internet Explorer
Diaporama défilant idem Atoufox/membres
# 0000000595
ajouté le 02/06/2008 01:15:33 et modifié le 02/06/2008
consulté 9082 fois
Niveau
débutant
Version(s) Foxpro : VFP 6.0
Description
Ce PRG réalise le montage d'un diaporama type défilant similaire à celui d'Atoutfox/membres.
Les images JPEG choisies sont à préparer dans un répertoire.Le redimensionnement des images
se fait dans le programme.
Le nombre des images prises en charge dépend de la RAM de votre PC .Un nombre de 100 images peut être pris
sans problèmes avec un fichier musical de 2Mo et avec 225 M0 de RAM (mon test)
Vous pouvez modifier la largeur,la hauteur ,la vitesse et la couleur de fonds ainsi que le fichier musical.
Le passage de la souris sur l'image arrête le défilement et le mouseout le redémarre .
Le son (si choisi) démarre en premier jusqu'au chargement total des images en mémoire.
Des liens hypertextes peuvent être intégrés sur chaque image.
Merci à http://www.toulouse-renaissance.net pour le script.
Foxeurs d etous les pays, amusez vous bien !
Cordialement...benameuryousfi1@gmail.com
Code source :
cr=chr(13)
mess="Ce PRG réalise le montage d'un diaporama type défilant similaire à celui d'Atoutfox/membres.Les images "+cr+; " JPEG choisies sont à préparer dans un répertoire.Le redimensionnement des images se fait dans le programme."+cr+; " Le nombre des images prises en charge dépend de la RAM de votre PC .Un nombre de 100 images peut être pris "+cr+; " sans problèmes avec un fichier musical de 2Mo et avec 225 M0 de RAM (mon test)"+cr+; " Vous pouvez modifier la largeur,la hauteur ,la vitesse et la couleur de fonds ainsi que le fichier musical."+cr+; " Le passage de la souris sur l'image arrête le défilement et le mouseout le redémarre ."+cr+; "Le son (si choisi) démarre en premier jusqu'au chargement total des images en mémoire."+cr+; " Des liens hypertextes peuvent être intégrés sur chaque image."+cr+; " Foxeurs d etous les pays, amusez vous bien ! Cordialement...benameuryousfi1@gmail.com"+cr messagebox(mess,0+32,"Préambule")
yrep0='"'+getdir()+'"'
xson=getfile('mp3|wav') ifempty(xson)
xson="" else
xson='<bgsound src="file:///'+allt(xson)+'"'+' loop="-1">'
endi
set defa to &yrep0 ifempty(yrep0) return
endi
gnbre=adir(gabase,'*.jpg') if gnbre=0 return
endi
yb="benameuryousfi1@gmail.com"
w0="450"&&largeur de chaque image
h0="300"&&hauteur de chaque image
afile='"'+&yrep0+"ydefil.htm"+'"'
afile="c:\ydefil.html"
settextmergeonto &afile noshow text
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Nouvelle page 1</title> endtext
\<<xson>> text
</head>
<body bgcolor=black topmargin="0" leftmargin="0">
<!-- Scrialt=script provenant de http://www.toulouse-renaissance.net/c_outils/ -->
<P align=center>
<script type="text/javascript">
// PARAMETRES DE REGLAGE
//***********************************************/
// Spécifiez la largeur du diaporama (en pixel) var sliderwidth="960px"
// Spécifiez la hauteur du diaporama (en pixel) endtext
x='var sliderheight="'+h0+'"'
\<<x>> text
// Spécifiez la vitesse de défilement (de 1 à 10) var slidespeed=3
// Spécifiez la couleur du fond
slidebgcolor="#EAEAEA"
// SPECIFICATIONS DU CARROUSEL : chemin des images
// Vous pouvez rendre l'image cliquable
var leftrightslide=new Array()
var finalslide=''
var yb0="benameuryousfi1@gmail.com Vous pouvez modifier :la largeur,hauteur,vitesse et couleur de fonds du diaporama! Vous pouvez créer un hyperlien/image. Repasser la souris sur le diaporama! "
endtext
for i=0 to gnbre-1
aa=&yrep0+gabase(i+1,1)
aa=strtran(aa,'\','/')
x='leftrightslide['+allt(str(i))+"]='"+'<a href="" onclick="window.alert(yb0);return false;"><img src="'+aa+ '"alt="'+yb+'"border=1 width="'+w0+'"height="'+h0+'">'+ "</a>'"
\<<x>>
endfor
text
// Spécifiez l'espace entre chaque image (se servir du HTML):
var imagegap=""
// Spécifiez le nombre de pixels/espace entre chaque rotation du carrousel (nombre entier)
var slideshowgap=5
////NE RIEN EDITER A PARTIR D'ICI////////////
var copyspeed=slidespeed
leftrightslide='<nobr>'+leftrightslide.join(imagegap)+'</nobr>'
var iedom=document.all||document.getElementById
if (iedom)
document.write('<span id="temp" style="visibility:hidden;position:absolute;top:-100px;left:-9000px">'+leftrightslide+'</span>')
var actualwidth=''
var cross_slide, ns_slide
function slideleft(){
if (iedom){
if (parseInt(cross_slide.style.left)>(actualwidth*(-1)+8))
cross_slide.style.left=parseInt(cross_slide.style.left)-copyspeed+"px"
else
cross_slide.style.left=parseInt(cross_slide2.style.left)+actualwidth+slideshowgap+"px"
if (parseInt(cross_slide2.style.left)>(actualwidth*(-1)+8))
cross_slide2.style.left=parseInt(cross_slide2.style.left)-copyspeed+"px"
else
cross_slide2.style.left=parseInt(cross_slide.style.left)+actualwidth+slideshowgap+"px"
}
else if (document.layers){
if (ns_slide.left>(actualwidth*(-1)+8))
ns_slide.left-=copyspeed
else
ns_slide.left=ns_slide2.left+actualwidth+slideshowgap
if (ns_slide2.left>(actualwidth*(-1)+8))
ns_slide2.left-=copyspeed
else
ns_slide2.left=ns_slide.left+actualwidth+slideshowgap
}
}
</html>
endtext
set textmerge to **********
apIE=createobject("internetexplorer.application")
apIE.navigate(afile)
with apIE
.menubar=0
.statusbar=0
.toolbar=0
.top=20
.left=62
.width=900
.height=val(h0)
.resizable=0
.fullscreen=0
endwith
do while apIE.busy or apIE.readystate#4
enddo
apIE.document.body.scroll="no"
apIE.document.title="yDiaporama--01/06/2008--"+allt(str(gnbre))+" images--fichier :"+afile+" --Images:"+w0+"x"+h0
apIE.visible=.t.
Retour à la liste
Algérie
Fiche personnelle
Note des membres
Niveau
débutant