Re: [vbs2] rettet lektion 15B Birgit
- From: YRJA på VBScript.dk <yrja@xxxxxxxxxxx>
- To: <vbs2@xxxxxxxxxxxxx>
- Date: Mon, 2 Feb 2009 00:28:14 +0100
;-)
Liten förbättring!
Kolla här:
sub start()
clearTimeOut(th1)
clearTimeOut(th2)
th1=setTimeOut("filt1",500) - hänvisning till bild1 som sköts med th1
th2=setTimeOut("filt2", 3500) - hänvisning till bild2 som sköts med th2
end sub
sub filt1()
clearTimeOut (th1)
bild1.filters(0).apply()
bild1.filters(0).transition=3
bild1.style.visibility="visible"
bild1.filters(0).play(3.000)
th1=setTimeOut ("byt", 6000) hänvisar till nästa sub som gömmer bild1
end sub
sub byt()
clearTimeOut (th1)
bild1.filters(0).apply()
bild1.filters(0).transition=12
bild1.style.visibility="hidden"
bild1.filters(0).play(3.000)
th1=setTimeOut ("filt1", 6000) - hänvisar tillbaka till filt1 som gör bild 1
synlig igen
Dessa 2 subbar tillsammans utgör en enhet och sköter bild1 med tidshanterare
nummer 1 (th1)
Helt rätt
end sub
sub filt2()
clearTimeOut (th2)
bild2.filters(0).apply()
bild2.filters(0).transition=20
bild2.style.visibility="visible"
bild2.filters(0).play(3.000)
th2=setTimeOut ("byt2", 7000) - hänvisar till nästa sub som gömmer bild2
end sub
sub byt2()
clearTimeOut (th2)
bild2.filters(0).apply()
bild2.filters(0).transition=4
bild2.style.visibility="hidden"
bild2.filters(0).play(3.000)
th2=setTimeOut ("byt3", 4000) --------- hur ska det här fungera?? - byt3 har
ju inget med bild2 att göra!!
end sub
sub byt3() ----------- th1 som i subbarna filt1 och byt som
alternativt visar och gömmer bild1 blir helt plötsligt kidnappad till denna sub
clearTimeOut (th1) som också gör bild1 synlig - låt scriptet gå
ett par varv så ser du att bild 1 slutar att byta visibility
bild1.filters(0).apply()
bild1.filters(0).transition=16
bild1.style.visibility="visible"
bild1.filters(0).play(3.000)
th1=setTimeOut ("filt2",4000) - detta hänvisar tillbaka till en sub som
sköter bild2 - därför fortsätter bild 2 att växla synlighet
end sub
Grönt och rött är helt rätt - men kolla upp det lila!
:-)
/YRJA
>
> Lektion 15B fra Birgit Vet ikke helt om det var dette du mente.
> Hilsen Birgit
>
>
>
> ------------------------------------------------------------------------------
>
>
>
> No virus found in this incoming message.
> Checked by AVG - www.avg.com
> Version: 8.0.233 / Virus Database: 270.10.16/1928 - Release Date: 01/31/09
> 20:03:00
>
--------------------------------------------------------------------------------
No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.0.233 / Virus Database: 270.10.16/1928 - Release Date: 01/31/09
20:03:00
Other related posts:
- » Re: [vbs2] rettet lektion 15B Birgit - YRJA på VBScript . dk
