Source code : Download (2.6 kb) Comment ? Back... <html><head> <title>MS Direct Animation Control (IE6) - KeyFrame</title> </head> <body bgcolor=black text=tan > <div id='txt1' style="color:beige;font-size:16pt;left:240px;position:absolute;top: 160px"><B>The KeyFrame method (MS.IE6)</B></div> <div id='txt2' style="color:orange;font-size:10pt;left:240px;position:absolute;top: 190px">VBScript-JavaScript adapted by VB'Breizh-2003<br>Original source : Microsoft PTH1-Direct Animation Control</div> <div id='pic1' style="color:tan;font-size:32px;left:0px;position:absolute;top:0px; z-index:-1"><img id='picsource' src="dragrnd.gif"></div> <div id=msg style ="position: absolute; top:250; left:240; font-size:18pt; color: wheat">...demo...</div> <object id="PTH1" classid="CLSID:D7A7D7C3-D47F-11D0-89D3-00A0C90833E6"> <param name="Repeat" value="1"> <param name="Relative" value="0"> <param name="Target" value="pic1"> </object> <script language="VBScript"><!-- public w,x,y Set w = document.body Sub Window_onLoad() KeyFrame End Sub --></script> <!--frame coordinates (4 points, 10 ways) and needed time for each way --> <script language="JavaScript"><!-- var framepos; var wpic=picsource.width; var hpic=picsource.height; var x=w.offsetWidth-10-wpic; var y=w.offsetHeight-10-hpic; framepos=new Array(0,0, x,0, x,y, 0,y, 0,0,x,y, x,0, 0,y, 0,0,x/2,y); var chrono; chrono=new Array(2,2,2,2,3,3,3,3,4); --></script> <!--start PTH1 control--> <script language="JavaScript"><!-- function KeyFrame() { PTH1.AddTimeMarker(0, "1",0 ); PTH1.AddTimeMarker(2, "2",0 ); PTH1.AddTimeMarker(4, "3",0 ); PTH1.AddTimeMarker(6, "4",0 ); PTH1.AddTimeMarker(8, "5",0 ); PTH1.AddTimeMarker(11, "6",0 ); PTH1.AddTimeMarker(14, "7",0 ); PTH1.AddTimeMarker(17, "8",0 ); PTH1.AddTimeMarker(20, "9",0 ); PTH1.AddTimeMarker(24, "10",-1 ); PTH1.KeyFrame(10,framepos,chrono); PTH1.Play(); } --></script> <script language="VBScript"><!-- Sub PTH1_onmarker (markername) Select Case markername Case "1" msg.innerText="...top border..." Case "2" msg.innerText="...right border..." Case "3" msg.innerText="...bottom border..." Case "4" msg.innerText="...left border..." Case "5" msg.innerText="...first diagonal..." Case "6" msg.innerText="...right up..." Case "7" msg.innerText="...second diagonal" Case "8" msg.innerText="...left up..." Case "9" msg.innerText="...middle bottom..." Case "10" msg.innerText="...that's all folks !..." End Select End Sub --></script> </body></html>
<html><head> <title>MS Direct Animation Control (IE6) - KeyFrame</title> </head> <body bgcolor=black text=tan > <div id='txt1' style="color:beige;font-size:16pt;left:240px;position:absolute;top: 160px"><B>The KeyFrame method (MS.IE6)</B></div> <div id='txt2' style="color:orange;font-size:10pt;left:240px;position:absolute;top: 190px">VBScript-JavaScript adapted by VB'Breizh-2003<br>Original source : Microsoft PTH1-Direct Animation Control</div> <div id='pic1' style="color:tan;font-size:32px;left:0px;position:absolute;top:0px; z-index:-1"><img id='picsource' src="dragrnd.gif"></div> <div id=msg style ="position: absolute; top:250; left:240; font-size:18pt; color: wheat">...demo...</div> <object id="PTH1" classid="CLSID:D7A7D7C3-D47F-11D0-89D3-00A0C90833E6"> <param name="Repeat" value="1"> <param name="Relative" value="0"> <param name="Target" value="pic1"> </object> <script language="VBScript"><!-- public w,x,y Set w = document.body Sub Window_onLoad() KeyFrame End Sub --></script> <!--frame coordinates (4 points, 10 ways) and needed time for each way --> <script language="JavaScript"><!-- var framepos; var wpic=picsource.width; var hpic=picsource.height; var x=w.offsetWidth-10-wpic; var y=w.offsetHeight-10-hpic; framepos=new Array(0,0, x,0, x,y, 0,y, 0,0,x,y, x,0, 0,y, 0,0,x/2,y); var chrono; chrono=new Array(2,2,2,2,3,3,3,3,4); --></script> <!--start PTH1 control--> <script language="JavaScript"><!-- function KeyFrame() { PTH1.AddTimeMarker(0, "1",0 ); PTH1.AddTimeMarker(2, "2",0 ); PTH1.AddTimeMarker(4, "3",0 ); PTH1.AddTimeMarker(6, "4",0 ); PTH1.AddTimeMarker(8, "5",0 ); PTH1.AddTimeMarker(11, "6",0 ); PTH1.AddTimeMarker(14, "7",0 ); PTH1.AddTimeMarker(17, "8",0 ); PTH1.AddTimeMarker(20, "9",0 ); PTH1.AddTimeMarker(24, "10",-1 ); PTH1.KeyFrame(10,framepos,chrono); PTH1.Play(); } --></script> <script language="VBScript"><!-- Sub PTH1_onmarker (markername) Select Case markername Case "1" msg.innerText="...top border..." Case "2" msg.innerText="...right border..." Case "3" msg.innerText="...bottom border..." Case "4" msg.innerText="...left border..." Case "5" msg.innerText="...first diagonal..." Case "6" msg.innerText="...right up..." Case "7" msg.innerText="...second diagonal" Case "8" msg.innerText="...left up..." Case "9" msg.innerText="...middle bottom..." Case "10" msg.innerText="...that's all folks !..." End Select End Sub --></script> </body></html>
