<HTML>
<HEAD>
<TITLE>Microsoft Cascading Style Sheet Controls Samples</TITLE>
</HEAD>
<body>
<h2>Some text filters out (checkerboard), and at its completion
an image filters in (box-in). Refresh repeats.</h2>
<Div ID="TextRegion" STYLE="Position: absolute; border: solid red;
background-color: lightblue; LEFT: 0; TOP: 100; WIDTH: 100%;
VISIBILITY: visible; FILTER: revealTrans(Transition = 11,
Duration = 1.25)">
Text that will filter upon pageload.<br>
Text that will filter upon pageload.<br>
Text that will filter upon pageload.<br>
Text that will filter upon pageload.<br>
Text that will filter upon pageload.<br>
Text that will filter upon pageload.<br>
Text that will filter upon pageload.
</DIV>
<DIV ID="ImageRegion" STYLE="Position: absolute; border: solid red;
LEFT: 0; TOP: 100; WIDTH: 30%; VISIBILITY: hidden;
FILTER: revealTrans(Transition = 0, Duration = 1.25)">
<IMAGE id=image1 SRC="/workshop/samples/author/graphics/dhtml/blupan.gif">
</DIV>
<SCRIPT LANGUAGE=VBScript>
Sub Window_onload
Call TextRegion.filters.revealTrans.Apply ()
Call ImageRegion.filters.revealTrans.Apply()
Call Start
End Sub
Sub Start
TextRegion.style.visibility = "hidden"
ImageRegion.style.visibility = "visible"
Call TextRegion.filters.revealTrans.Play()
End Sub
Sub TextRegion_onfilterchange
if TextRegion.filters.revealTrans.Status = 0 then
Call ImageRegion.filters.revealTrans.Play(1.5)
End If
End Sub
</SCRIPT>
</BODY>
</HTML>