[vbs2] yrja
- From: "Maras-gmail" <maras.mail@xxxxxxxxx>
- To: <vbs2@xxxxxxxxxxxxx>
- Date: Mon, 12 Mar 2007 00:26:22 +0100
jag förstår inte...jag har tagit bort scroll o ändrat o haft mig? Ändå så
stänger den ner?
/Mara
BEGIN:VCARD
VERSION:2.1
N:;Mara
FN:Mara
URL;HOME:http://www.marasdesign.com
EMAIL;PREF;INTERNET:marasdesign@xxxxxxxxx
REV:20070311T232622Z
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\ljus-avokado.gif">
<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
'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
start
'setInterval "scroll",65
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="15px"
box.style.top="0px"
box.style.left="0px"
box.style.overflow="auto"
box.style.width=boxw
box.style.height=boxh
box.style.border=boxb&" "&farg1
box.style.borderStyle="dashed"
'fontens utseende
box.style.font=fontstor&" "&fonten
end sub
sub startaFilter()
'Här sätter du in filtret
div1.style.filter="revealTrans"
'div2.style.filter="revealTrans"
'div3.style.filter="revealTrans"
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)
'--
'div3.filters(0).apply()
'div3.filters(0).transition=5
'div3.style.visibility="visible"
'div3.filters(0).play(5.000)
setTimeOut "visa2",5000
end sub
sub visa2()
clearTimeOut
'div2.filters(0).apply()
'div2.filters(0).transition=4
'div2.style.visibility="visible"
'div2.filters(0).play(5.000)
end sub
'sub scroll()
'x=x+0
'y=y+1
'document.body.style.backgroundPosition=x&" "&y
'end sub
sub window_onResize()
start
end sub
</SCRIPT>
</BODY></HTML>
Other related posts:
