
Papel se movimentando na lateral
Vou deixar nesta dica, o código prontinho, para você
usar, deixando o papel se movimentando na horizontal para o lado.
O código colocado logo abaixo faz com que o papel se movimente
para a esquerda. Para alterar a direção, basta substituir
no código:
direction="left" por "right"
(Este script fica muito bem com papéis com imagens na borda
superior. Você encontra alguns aqui.)
Vamos lá!
Abra uma nova mensagem.
Apague tudo o que encontrar na aba "Origem" e cole o
seguinte código:
----------------------------------------------------------------------------------------------------------------------------------------------------------------
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2719.2200" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff
background="endereço do papel
de carta algo do tipo: C:\Arquivos de programas\Arquivos comuns\Microsoft
Shared\Papel de carta\borboleta_mask.jpg">
<DIV><FONT face="Comic Sans MS" size=2><!--webbot
bot="HTMLMarkup" alt="[<b>This is the
OE5 Scroll Script</b>]" StartSpan -->
<P></P>
<DIV id=imageholder
style="Z-INDEX: -1; LEFT: 0px; POSITION: absolute; TOP: 0px">
<SCRIPT language=VBScript>
<!--
direction="left"
sizew=300 ' enter the width of the scrolling image here
sizeh=416 ' enter the height of the scrolling image here
nail=0
source=document.body.background
tall=((screen.height\sizeh)+1)*2
wide=(screen.width\sizew)+1
if direction="up" then
max=tall
axis=sizeh
placement=0
reset=0
elseif direction="left" then
max=wide
axis=sizew
placement=0
reset=0
elseif direction="down" then
max=tall
axis=0
placement=-sizeh
reset=-sizeh
elseif direction="right" then
max=wide
axis=0
placement=-sizew
reset=-sizew
end if
document.write "<pre>"
for temp=0 to max
if direction="up" then
document.write "<img id=pics"&temp&" src><br>"
elseif direction="left" then
document.write "<img id=pics"&temp&" src>"
elseif direction="down" then
document.write "<img id=pics"&temp&" src><br>"
elseif direction="right" then
document.write "<img id=pics"&temp&" src>"
end if
document.all("pics"&temp).src=source
next
document.write "</pre>"
document.body.background=" "
window.status="Click the image to Stop or Restart the scroll"
sub scroll()
if nail=1 then
exit sub
end if
if placement < axis then
setTimeout "move", 1
else
placement=reset
setTimeout "move", 1
end if
end sub
sub move()
if direction="up" then
imageholder.style.top=-placement
elseif direction="left" then
imageholder.style.left=-placement
elseif direction="down" then
imageholder.style.top=placement
elseif direction="right" then
imageholder.style.left=placement
end if
placement=placement+1
setTimeout "scroll", 1
end sub
sub imageholder_onclick()
if nail=0 then
nail=1
else
nail=0
end if
scroll()
end sub
scroll()
-->
</SCRIPT>
</DIV></FONT></DIV></BODY></HTML>
----------------------------------------------------------------------------------------------------------------------------------------------------------------
Veja um exemplo, clicando
aqui.
Basta alterar o que deixei em vermelho (endereço do papel
de carta) no código, mantendo as aspas.
Se quiser, você pode também inserir uma música,
imagens, formatar moldura
e barra de rolagem.
(Aqui
você encontra papéis de carta adequados a esse
script)
Aqui você
encontra uma versão prontinha para e-mail desta dica. Está
zipada no formato .eml
(próprio para o Outlook Express)
(Lembre-se de que o efeito só será percebido quando
clicamos em "Visualizar".)
Dica elaborada por Lilian Russo
Lilian Russo - Todos os Direitos Reservados - ©2002/2008
|