
Texto Fixo e Papel se Movimentando
Se você quiser fazer com que o fundo se mova e o texto
se mantenha fixo, use o seguinte código, antes de </BODY>
lá no finalzinho da aba Origem:
----------------------------------------------------------------------------------------------------------------------------------------------------------------
<!--webbot bot="HTMLMarkup" alt="[<b>This
is the OE5 Scroll Script</b>]" StartSpan --></P>
<DIV id=imageholder style="LEFT: 0px; POSITION: absolute;
TOP: 0px; Z-INDEX: -1">
<SCRIPT language=VBScript>
<!--
direction="up"
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>
-----------------------------------------------------------------------------------------------------------------------------------------------------------------
O "script" acima, fará com que sua imagem se movimente
para cima, mas você poderá mudar a direção
do movimento.
Veja o item que deixei em negrito lá no código:
direction="up"
Você pode alterar o "up" (para cima) para:
"down" (para baixo);
"left" (para a esquerda);
ou "right" (para a direita).
Lembre-se de deixar a direção a ser seguida entre
aspas.
Prontinho!
É só aplicar um papel de carta, uma musiquinha e
seu texto, na aba "Editar" e depois conferir os resultados
em "Visualizar".
Veja um exemplo aqui.
(Para este script funcionar, confira esta
dica)
Aqui
você encontra vários papéis de carta para usar
com 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
|