<DIV align=right><IMG
id=graphic1
style="HEIGHT: 360px; WIDTH: 308px; POSITION: absolute; LEFT:
10px; DISPLAY: none; TOP: 10px"
src="cole o endereço da imagem aqui">
<SCRIPT language=VBScript>
' Script by Bill Scott, December, 1999
' billscott@redrivernet.com
' Notes:
' To expand an image call subroutine:
' expandSetup4
' To contract an existing image call subroutine:
' contractSetup4
' Be sure to remove display:none from the HTML image tag below.
' Set xpercent and ypercent in Window_Onload below to desired
percentage size of the original image, i.e., 50=half size.
' Neither xpercent or ypercent have to be equal in value.
' You may reposition the image in the HTML image tag below. TOP=number
of pixels from top of screen. LEFT=number of pixels from left
side of screen.
' Set the actual width and height of image in the HTML image tag
below.
Option Explicit
Dim myTimer2
Dim gw, gh, gcount
Dim gpl, gpt, gpr, gpb, gpxstart, gpystart, gxycount, ginc,
gxyinc
Dim xpercent, ypercent, xtemp, ytemp
Dim origw, origh, origl, origt
Sub Window_OnLoad()
xpercent=100
ypercent=100
myTimer2=SetTimeOut("expandSetup4",2000)
End Sub
' This script expands a graphic image (image id=graphic1) from a
zero point to any specified size. Image emanates from its
top-left corner as a thin horizontal bar, then sweeps vertically.
Sub expandSetup4()
' Set desired X,Y graphic size compared to original**********
origw=graphic1.style.posWidth
origh=graphic1.style.posHeight
ClearTimeOut(myTimer2)
' Expand setup**********
xpercent=xpercent*.01
ypercent=ypercent*.01
' Get image width and height.
gw=CInt(xpercent*graphic1.style.posWidth)
gh=CInt(ypercent*graphic1.style.posHeight)
' Set expansion factor.
gcount=.04
ginc=gcount
' Reduce image size to zero, then display.
graphic1.style.posWidth=0
graphic1.style.posHeight=8
graphic1.style.display=""
expandgraphich4
End Sub
Sub expandgraphich4()
ClearTimeOut(myTimer2)
graphic1.style.posWidth=CInt(gcount*gw)
if gcount<1.0 then
gcount=gcount+ginc
myTimer2=SetTimeOut("expandgraphich4",10)
else
gcount=.04
myTimer2=SetTimeOut("expandgraphicv4",200)
end if
End Sub
Sub expandgraphicv4()
ClearTimeOut(myTimer2)
graphic1.style.posHeight=CInt(gcount*gh)
if gcount<1.0 then
gcount=gcount+ginc
myTimer2=SetTimeOut("expandgraphicv4",50)
end if
End Sub
Sub contractSetup4()
ClearTimeOut(myTimer2)
' Contract setup**********
' Get image width and height.
gw=graphic1.style.posWidth
gh=graphic1.style.posHeight
' Set contraction factor.
gcount=.96
gxyinc=.04
contractgraphicv4
End Sub
Sub contractgraphicv4()
ClearTimeOut(myTimer2)
graphic1.style.posHeight=CInt(gcount*gh)
if gcount>gxyinc OR graphic1.style.posHeight>8 then
gcount=gcount-gxyinc
myTimer2=SetTimeOut("contractgraphicv4",50)
else
graphic1.style.posHeight=8
gcount=.96
myTimer2=SetTimeOut("contractgraphich4",200)
end if
End Sub
Sub contractgraphich4()
ClearTimeOut(myTimer2)
graphic1.style.posWidth=CInt(gcount*gw)
if gcount<gxyinc then
graphic1.style.display="none"
graphic1.style.posWidth=origw
graphic1.style.posHeight=origh
else
gcount=gcount-gxyinc
myTimer2=SetTimeOut("contractgraphich4",10)
end if
End Sub
</SCRIPT> |