|
|
<! 1) Cirkelende foto’s
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 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" aan passen en
de foto's moet je in de "bron" vervangen. En dat 10 maal, zie het blauwe
deel: <IMG id=pic1 src="c:\image\wet\herfst.jpg" >
<!DOCTYPE
HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html;
charset=iso-8859-1" http-equiv=Content-Type><BASE
href=" ">
<META content="MSHTML
5.00.2314.1000" name=GENERATOR>
<META content="MSHTML
5.00.2314.1000" name=GENERATOR>
<META content="MSHTML
5.00.2314.1000" name=GENERATOR>
<STYLE></STYLE>
<META content="MSHTML
5.00.2314.1000" name=GENERATOR>
<META content="MSHTML 5.00.2314.1000"
name=GENERATOR>
<META content="MSHTML
5.00.2314.1000" name=GENERATOR>
<META content="MSHTML
5.00.2314.1000" 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>
<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>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR>
<META
content="MSHTML 5.00.2614.3500" name=GENERATOR></HEAD>
<BODY
bgColor=#00ffff>
<DIV><FONT
color=#000080
face=Eurostile><STRONG>Hallo</STRONG></FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV> </DIV><BGSOUND
balance=0 loop=99
src=" "
volume=0>
<DIV><FONT
color=#000080
face=Eurostile><STRONG>Groetjes</STRONG></FONT></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>
<DIV> </DIV>
<DIV> </DIV>
<DIV><BR></DIV>
<DIV> </DIV>
<P><IMG id=pic0 src=" c:\image\wet\herfst.jpg "
style="LEFT: -200px; POSITION:
absolute; TOP: 0px"> <IMG id=pic1
src=" c:\image\wet\herfst.jpg "
style="LEFT: -200px; POSITION: absolute; TOP: 0px"> <IMG
id=pic2
src=" c:\image\wet\herfst.jpg "
style="LEFT: -200px; POSITION: absolute; TOP: 0px"> <IMG
id=pic3
src=" c:\image\wet\herfst.jpg "
style="LEFT: -200px; POSITION: absolute; TOP: 0px"> <IMG
id=pic4
src=" c:\image\wet\herfst.jpg "
style="LEFT: -200px; POSITION: absolute; TOP: 0px"> <IMG
id=pic5
src=" c:\image\wet\herfst.jpg "
style="LEFT: -200px; POSITION: absolute; TOP: 0px"> <IMG
id=pic6
src=" c:\image\wet\herfst.jpg "
style="LEFT: -200px; POSITION: absolute; TOP: 0px"> <IMG
id=pic7
src=" c:\image\wet\herfst.jpg "
style="LEFT: -200px; POSITION: absolute; TOP: 0px"> <IMG
id=pic8
src=" c:\image\wet\herfst.jpg "
style="LEFT: -200px; POSITION: absolute; TOP: 0px"> <IMG
id=pic9
src=" c:\image\wet\herfst.jpg "
style="LEFT: -200px; POSITION: absolute; TOP: 0px">
<SCRIPT language=VBSCRIPT>
'
IMPORTANT: Value in brackets for the arrays below taken from last image number.
Dim w, wW,
wH, an(9), x(9), y(9), ox(9), oy(9), c(9), cW, cH, sL, sT, numPics, capture
Set
w=document.body
'
Initialize
sub setUp()
' Get window dimensions
cW=w.clientWidth
cH=w.clientHeight
sL=w.scrollLeft
sT=w.scrollTop
capture=153
' IMPORTANT: Enter number of last
image here
numPics=9
for i=0 to numPics
randomize
c(i)=0
' Number of pixels to move
image per step
ox(i)=4
oy(i)=-4
' Initial coordinates
an(i)=3.14159-i
x(i)=Int(SIN(an(i))* 50)+70
y(i)=Int(COS(an(i))* 50)+70
document.all("pic"&i).style.top=y(i)
document.all("pic"&i).style.left=x(i)
next
' start bouncing
bnce
end sub
sub bnce()
ClearTimeOut(myTimer)
' VBScript version of bounce routine
' Loop for each object
for i=0 to numPics
if c(i)=1 then
if x(i)<50 and
y(i)<50 then
c(i)=0
ox(i)=4
oy(i)=-4
end if
p="pic"&i
Set
bal=document.all(p)
' Increment position
x(i)=x(i)+ox(i)
y(i)=y(i)+oy(i)
' Check for walls on
right or left
if (x(i) +
bal.offsetWidth > cW + sL) OR (x(i) <= sL) then
ox(i)=-ox(i)
if (x(i) <
sL) then x(i) = sL
if (x(i) +
bal.width > cW + sL) then x(i) = cW - bal.offsetWidth + sL
end if
' Check for walls on
bottom or top
if (y(i) +
bal.offsetHeight > cH + sT) OR (y(i) <= sT+R) then
oy(i)=-oy(i)
if (y(i) <
sT+R) then y(i) = sT+R
if (y(i) +
bal.offsetHeight > cH + sT) then y(i) = cH - bal.offsetHeight + sT
end if
' Position object
bal.style.posTop = y(i)
bal.style.posLeft =
x(i)
else
an(i)=an(i)-.1
x(i)=Int(SIN(an(i))*
50)+70+sL
y(i)=Int(COS(an(i))*
50)+70+sT
document.all("pic"&i).style.top=y(i)
document.all("pic"&i).style.left=x(i)
sw=INT(rnd*1000)
if sw mod 333 = 0 then
c(i)=1
end if
next
' Repeat. If bounce is too fast,
increase the number
' in the line below from the default
value of 2.
myTimer=SetTimeOut("bnce",2)
end sub
' This sub
starts the action as soon as the message is received.
sub
window_OnLoad()
setUp
end sub
' In case
window is re-sized
sub
window_OnResize()
setUp
end sub
' In case
text is scrolled this keeps the bouncing inside the window.
sub
window_OnScroll()
sL=w.scrollLeft
sT=w.scrollTop
end sub
</SCRIPT>
</P></BLOCKQUOTE></BODY></HTML>