|
|
<!
5
foto’s over elkaar verschijnend
Ga hierboven naar "bewerken" en kies voor "alles selecteren". Terug "bewerken" en dan "kopiëren"?. Open nu outlook express en neem "nieuw bericht". Onderaan open je de "bron" en klik onderaan tussen </BODY><!</HTML> <! Dat is daar waar het groene tekens staan en klik daarna met de rechtermuisknop. Kies nu voor "plakken" en onderaan op "voorbeeld". Je ziet dat je mail klaar is behalve je foto's en tekst. De tekst kun je in de stand "bewerken", of zie rode tekst hieronder, aan passen en de foto's moet je in de "bron" vervangen. En dat 5 maal, zie het blauwe deel: <IMG id=pic1 src="5fotosoverelkaarverschijnend_bestanden/………" ><! Waar de XXXXX staan kun je het pad van je muziek invullen, net als bij je beelden.>
<HEAD>
<META
content=text/html;charset=iso-8859-1 http-equiv=Content-Type><STYLE
type=text/css>BODY {
BACKGROUND-COLOR: #443437; COLOR: #ffffff; FONT-FAMILY: Comic Sans MS;
MARGIN-LEFT: 405px; MARGIN-RIGHT: 10px
}
</STYLE>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2919.6307" name=GENERATOR>
<META
content="MSHTML 5.00.2919.6307" name=GENERATOR>
<META
content="MSHTML 5.00.2919.6307" name=GENERATOR>
<META
content="MSHTML 5.00.2919.6307" name=GENERATOR>
<META
content="MSHTML 5.00.2919.6307" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500"
name=GENERATOR></HEAD>
<BODY
bgColor=#ffffff>
<DIV> </DIV>
<BLOCKQUOTE
style="BORDER-LEFT: #000080 0px solid;
MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px; PADDING-LEFT: 5px; PADDING-RIGHT:
0px">
<DIV style="FONT: 10pt
arial"> </DIV>
<DIV><BR></DIV>
<P>Hallo</P>
<P>hier 5 foto's ! ! !</P>
<P> </P>
<P>groetjes
Raymond</P><!-- The DIV below holds the images that will will
be shown in the slide-show.Width and height should equal the largest Image
dimensions. -->
<DIV id=box
style="HEIGHT: 450px; LEFT: -1800px;
POSITION: absolute; TOP: -1800px; WIDTH: 381px"><!--This slideshow is much
better when all the graphics are the same size.Also, the graphics for the slide
show should be numbered sequentially as shown from pic1 to pic 5.--><IMG
height=137 id=pic1 src="5Fotosoverelkaarverschijnend_bestanden/bongo.gif"
style="LEFT:
0px; POSITION: absolute; TOP: 0px; VISIBILITY: hidden" width=200>
<IMG height=200 id=pic2
src="5Fotosoverelkaarverschijnend_bestanden/roosjes.gif" width=119 hidden?
VISIBILITY: 0;
LEFT: TOP: absolute; POSITION:> <IMG height=138 id=pic3
src="5Fotosoverelkaarverschijnend_bestanden/rozen1.gif"
style="LEFT:
0px; POSITION: absolute; TOP: 0px; VISIBILITY: hidden" width=148>
<IMG height=200 id=pic4 src="5Fotosoverelkaarverschijnend_bestanden/rozen.gif"
style="LEFT:
0px; POSITION: absolute; TOP: 0px; VISIBILITY: hidden" width=94>
<IMG height=200 id=pic5 src="5Fotosoverelkaarverschijnend_bestanden/roos.gif"
style="LEFT:
0px; POSITION: absolute; TOP: 0px; VISIBILITY: hidden" width=102>
</DIV></BLOCKQUOTE><BGSOUND balance=0 id=music
loop=infinite src="XXXXX"
volume=0>
<SCRIPT
language=VBScript>
Dim w, wx,
baseFont, p1, p2, nw, od, numPic, myTimer, tFlag, count, filterDuration,
filterType, filterTran
Set
w=document.all
REM *** Set
Font Size ***
baseFont=12
REM ***
Enter the total number of images in the next line ***
numPic=5
REM ***
Enter number of times to cycle images below ***
count=10
REM ***
Transition filter type selection below. ***
REM ***
Enter 1 for Blend transition ***
REM ***
Enter 2 for Reveal Transition ***
filterType=2
REM *** If
using Reveal Transition, enter transition number here ***
filterTran="12"
REM ***
Transition duration in seconds ***
filterDuration="4"
REM
Initialize
sub
setUp()
on
error resume next
if
filterType=1 then box.style.filter="BlendTrans
(Duration=0)"
if
filterType=2 then
box.style.filter="RevealTrans (Duration=0,
Transition=6)"
REM *** Change the transition type here. Number between 1 and 21.
***
box.filters(0).Transition=filterTran
end
if
box.filters(0).Duration=filterDuration
nw=1
od=0
REM
Transition flag - in case it is needed.
tFlag=0
REM
Initially display first image
pic1.style.visibility="visible"
box.style.top=0
box.style.left=0
REM
Do the transition after delay
myTimer=SetTimeOut("doIt",filterDuration*1000)
end
sub
REM Do
transition
sub
doIt()
ClearTimeOut(myTimer)
REM
Set for next images
nw=nw+1
REM
Make sure image number is valid
if
nw>numPic then
nw=1
count=count-1
end
if
od=od+1
if
od>numPic then od=1
REM
Do the transition here
if
tFlag=0 and count>0 then
REM Set transition flag to signify transition in
progress.
tFlag=1
REM Select Images according to count
REM Previous Image
Set p1=w("pic"&od)
REM Next image
Set p2=w("pic"&nw)
REM Prepare filter
box.filters(0).Apply()
REM Hide previous Image
p1.style.visibility="hidden"
REM Display next Image
p2.style.visibility="visible"
REM Play filter
box.filters(0).Play()
else
if count=0 then
REM Hide the last image
Set p1=w("pic"&od)
box.filters(0).Apply()
p1.style.visibility="hidden"
box.filters(0).Play()
REM Stop everything
exit sub
end if
end
if
end
sub
REM This
subroutine runs when transition has finished.
sub
box_OnFilterChange()
REM
Transition completed so clear the flag.
tFlag=0
REM
Wait a few seconds before next transition
myTimer=SetTimeOut("doIt",filterDuration*1000)
end
sub
REM Keeps
slide-show window on screen if text scrolls
REM ***
Delete the REM below to activate this feature ***
sub
window_OnScroll()
REM
box.style.top=document.body.scrollTop
end
sub
REM
Everything starts here
sub
Window_OnLoad()
REM
Get users screen resolution
wx=window.screen.width
REM
and adjust font size to match. This will have the same size
font
REM
appear no matter what the viewer's screen resolution is
Res=INT(SQR(wx))-25
REM
Set the font size
document.body.style.fontSize =
baseFont+Res
setUp
end
sub
</SCRIPT>
</BODY>