ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Diaporama défilant idem Atoufox/membres   



L'auteur

ybenam
Algérie Algérie
Membre Simple
# 0000002080
enregistré le 21/04/2008


Fiche personnelle


Note des membres
pas de note

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é 5260 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')
if empty(xson)
xson=""
else
xson='<bgsound src="file:///'+allt(xson)+'"'+' loop="-1">'
endi

set defa to &yrep0
if empty(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"

set textmerge on to &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 fillup(){
if (iedom){
cross_slide=document.getElementById? document.getElementById("
test2") : document.all.test2
cross_slide2=document.getElementById? document.getElementById("
test3") : document.all.test3
cross_slide.innerHTML=cross_slide2.innerHTML=leftrightslide
actualwidth=document.all? cross_slide.offsetWidth : document.getElementById("
temp").offsetWidth
cross_slide2.style.left=actualwidth+slideshowgap+"
px"
}
else if (document.layers){
ns_slide=document.ns_slidemenu.document.ns_slidemenu2
ns_slide2=document.ns_slidemenu.document.ns_slidemenu3
ns_slide.document.write(leftrightslide)
ns_slide.document.close()
actualwidth=ns_slide.document.width
ns_slide2.left=actualwidth+slideshowgap
ns_slide2.document.write(leftrightslide)
ns_slide2.document.close()
}
lefttime=setInterval("
slideleft()",30)
}
window.onload=fillup

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
}
}

if (iedom||document.layers){
with (document){
document.write('<table border="
0" cellspacing="0" cellpadding="0"><td>')
if (iedom){
write('<div style="
position:relative;width:'+sliderwidth+';height:'+sliderheight+';overflow:hidden">')
write('<div style="
position:absolute;width:'+sliderwidth+';height:'+sliderheight+';background-color:'+slidebgcolor+'" onMouseover="copyspeed=0" onMouseout="copyspeed=slidespeed">')
write('<div id="
test2" style="position:absolute;left:200px;top:0px"></div>')
write('<div id="
test3" style="position:absolute;left:-1000px;top:0px"></div>')
write('</div></div>')
}
else if (document.layers){
write('<ilayer width='+sliderwidth+' height='+sliderheight+' name="
ns_slidemenu" bgColor='+slidebgcolor+'>')
write('<layer name="
ns_slidemenu2" left=0 top=0 onMouseover="copyspeed=0" onMouseout="copyspeed=slidespeed"></layer>')
write('<layer name="
ns_slidemenu3" left=0 top=0 onMouseover="copyspeed=0" onMouseout="copyspeed=slidespeed"></layer>')
write('</ilayer>')
}
document.write('</td></table>')
}
}
</script>
</center>
</body>

</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.






Commentaires
Aucun commentaire enregistré ...

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2019.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0-SP2-HF3