jag gjorde ett scrollande script vilket stängde ner hela oe....jag bifogar det som textdok. skulle det fungera med tid på? eller är det annat som felar? /Kram Mara
BEGIN:VCARD VERSION:2.1 N:;Mara FN:Mara URL;HOME:http://www.marasdesign.com EMAIL;PREF;INTERNET:marasdesign@xxxxxxxxx REV:20070311T175326Z END:VCARD
<html> <head> <title><title>~ vbs 2007 - termin 2 ~ </title><!--vbscript lesson made by Mara--></title> </head> <style> body{ overflow:auto; } #box{ position:absolute; width:70%; height:70%; overflow:auto; } img{ position:absolute; left:-1800px; top:-1800px; } .glitt{ position:absolute; left:-1800px; top:-1800px; } </style> <body background="blommburk.jpg"> <!--här kommer hållarna till glittret--> <div class="glitt" id="div1"></div> <div class="glitt" id="div2"></div> <div class="glitt" id="div3"></div> <!--här är textboxen--> <div id="box">texten här</div> <!--här kommer glittret--> <img id="g1" src="e:\bilder\glitter\blue light.gif"> <img id="g2" src="e:\bilder\glitter\!cid_024d01c6370a$586ce510$6700a8c0@xxxxxxxxxxxxxxxxxx"> <SCRIPT language=VBScript> '-------------------------------------------------------- 'Script made by Mara 'http://www.marasdesign.com 'Thanks to Yrja and Kat on vbscript.dk for all help! 'Please leave this lines intact and give me credit! 'thank you '-------------------------------------------------------- option explicit dim sch, scw, picw, pich, fonten, fontStor, farg, farg1, picb, bordb, boxh, boxw, boxb, x, y, x1, y1,a, av, av2, bildv, gw 'detta styr scrollen x=0 y=0 x1=0 y1=0 'själva bildmotivets vidd på bakgrunden bildv=370 'avståndet mellan bilden o första linjen av=10 'avståndet mellan glitter linjerna av2=3 'glittrets vidd gw=1 'boxens mått boxh=350 boxw=350 'här ändrar du bodyns borderns vidd bordb=2 'boxens bordervidd boxb=1 'här anger du färgerna som ska användas farg="#ffffff" 'färgen till boxens och bodyns scroll farg1="#7a99c8" 'färgen till bodyns border och fonten - ljusblå 'här skriver du in vilken font du ska ha och storleken fonten="century gothic, arial " fontStor="12pt" '======================================================= 'här kommer uträkningarna - ändra inget mera!! '======================================================= sub window_onLoad() on error resume next window.status=" vbscript made by Mara" startaStil startaFilter setInterval "scroll",65 start end sub sub startaStil() 'här kommer bodyns border document.body.style.scrollbar3dLightColor=farg document.body.style.scrollbarArrowColor=farg document.body.style.scrollbarBaseColor=farg document.body.style.scrollbarDarkShadowColor=farg document.body.style.scrollbarFaceColor=farg document.body.style.scrollbarHighlightColor=farg document.body.style.scrollbarShadowColor=farg document.body.style.scrollbarTrackColor=farg document.body.style.border=farg1&" "&bordb document.body.style.borderStyle="ridge" 'uträkningar för att dölja scrollen i boxen box.style.scrollbar3dLightColor=farg box.style.scrollbarArrowColor=farg box.style.scrollbarBaseColor=farg box.style.scrollbarDarkShadowColor=farg box.style.scrollbarFaceColor=farg box.style.scrollbarHighlightColor=farg box.style.scrollbarShadowColor=farg box.style.scrollbarTrackColor=farg 'till boxens utseeende box.style.color=farg1 box.style.padding="10px" box.style.top="0px" box.style.left="0px" box.style.overflow="auto" box.style.width=boxw box.style.height=boxh box.style.border="dashed"&" "&farg1 box.style.borderWidth=boxb 'fontens utseende box.style.font=fontstor&" "&fonten end sub sub startaFilter() 'Här sätter du in filtret div1.style.filter="progid:DXImageTransform.Microsoft.revealTrans(enabled=1)" div2.style.filter="progid:DXImageTransform.Microsoft.revealTrans(enabled=1)" div3.style.filter="progid:DXImageTransform.Microsoft.revealTrans(enabled=1)" end sub sub start() clearTimeOut scw=document.body.clientWidth sch=document.body.clientHeight box.style.left=(scw-bildv)/2+bildv-(boxw/2) box.style.top=(sch-boxh)/2 div1.style.height=sch div1.style.width=gw div2.style.height=sch div2.style.width=gw div3.style.height=sch div3.style.width=gw div1.style.left=(bildv+av) div1.style.top="0px" div1.style.visibility="hidden" div2.style.left=(bildv+av+gw+av2) div2.style.top="0px" div2.style.visibility="hidden" div3.style.left=(bildv+av+2*gw+2*av2) div3.style.top="0px" div3.style.visibility="hidden" 'här sätts bakisarna till tabellerna in div1.style.backgroundImage="URL("&g1.src&")" div2.style.backgroundImage="URL("&g2.src&")" div3.style.backgroundImage="URL("&g1.src&")" setTimeOut "visa1", 1000 end sub sub visa1() clearTimeOut 'glittret ska träda fram div1.filters(0).apply() div1.filters(0).transition=5 div1.style.visibility="visible" div1.filters(0).play(5.000) '-- div2.filters(0).apply() div2.filters(0).transition=4 div2.style.visibility="visible" div2.filters(0).play(5.000) '-- div3.filters(0).apply() div3.filters(0).transition=5 div3.style.visibility="visible" div3.filters(0).play(5.000) end sub sub scroll() clearTimeOut x=x+0 y=y+1 x1=x1+1 y1=y1-0 document.body.style.backgroundPosition=x&" "&y div1.style.backgroundPosition=x&" "&y div2.style.backgroundPosition=x1&" "&y1 div3.style.backgroundPosition=x&" "&y end sub sub window_onResize() div1.filters(0).play(0) div2.filters(0).play(0) div3.filters(0).play(0) start end sub </SCRIPT> </BODY></HTML>