Demo Dynamic HTML - Texto que cambia de tamaño automáticamente

Texto que cambia de tamaño

Compatibilidad: Ms Internet Explorer

Demo que agranda y reduce texto normal previamente impostado.

[ Muestra el ejemplo práctico ]

el código para insertar en tu página

<TITLE>Demo Dynamic HTML: ejemplo práctico </TITLE>

<SCRIPT LANGUAGE="VBScript">
<!--
Dim i, j, k
i = 1
j = 1
k = 1

Dim l, m, n
l = 1
m = 1
n = 1

Dim o, p, q
z = 1
p = 1
q = 1

Sub Window_onload()
	Call Seq("1").Play
	Call Seq("2").Play
	Call Seq("3").Play
End Sub

Sub Seq_OnInit()
	Call seq("1").at(0.000, "GrowIletter", 10, 0.002, 1)
	Call seq("1").at(2.000, "ShowIletter", 1, 0.002, 1)
	Call seq("1").at(3.000, "ShrinkIletter", 10, 0.002, 1)
	Call seq("2").at(2.000, "GrowEletter", 10, 0.002, 1)
	Call seq("2").at(3.000, "ShowEletter", 1, 0.002, 1)
	Call seq("2").at(4.000, "ShrinkEletter", 10, 0.002, 1)
	Call seq("3").at(3.000, "Growfourletter", 10, 0.002, 1)
	Call seq("3").at(4.000, "Showfourletter", 1, 0.002, 1)
	Call seq("3").at(5.000, "Shrinkfourletter", 10, 0.002, 1)
End Sub

Sub GrowIletter()
	If i < 10 then
		Call Iletter.Scale(1.2,1.2,0)
		Call Iletter.Rotate(1,0,0,0)
		i = i + 1
	Else
		Call seq("1").Play
		i = 1
	End If
End Sub

Sub showIletter()
	Iletter.style.visibility = "visible"
End Sub

Sub ShrinkIletter()
	If i < 10 then
		Call Iletter.Scale(.832,.832,0)
		Call Iletter.Rotate(-.1,0,0,0)
		i = i + 1
	Else
		i = 1
	End If
End Sub

Sub GrowEletter()
	If l < 10 then
		Call Eletter.Scale(1.2,1.2,0)
		Call Eletter.Rotate(0,0,0,0)
		l = l + 1
	Else
		Call seq("2").Play
		l = 1
	End If
End Sub

Sub showEletter()
	Eletter.style.visibility = "visible"
End Sub

Sub ShrinkEletter()
	If l < 10 then
		Call Eletter.Scale(.832,.832,0)
		Call Eletter.Rotate(0,0,0,0)
		l = l + 1 
	Else
		i = 1
	End If
End Sub

Sub Growfourletter()
	If z < 10 then
		Call fourletter.Scale(1.2,1.2,0)
		Call fourletter.Rotate(0,0,0,0)
		z = z + 1
	Else
		Call seq("3").Play
		z = 1
	End If
End Sub

Sub showfourletter()
	fourletter.style.visibility = "visible"
End Sub

Sub Shrinkfourletter()
	If z < 10 then
		Call fourletter.Scale(.832,.832,0)
		Call fourletter.Rotate(0,0,0,0)
		z = z + 1 
	Else
		z = 1
	End If
End Sub
//-->
</SCRIPT>

</HEAD>

</body>
</html>

[Baja en un único archivo .zip, las imágenes y demás archivos necesarios
para el funcionamiento de las demo de esta sección]