Re: [vbs2] lektion 16 B Birgit

  • From: YRJA på VBScript.dk <yrja@xxxxxxxxxxx>
  • To: <vbs2@xxxxxxxxxxxxx>
  • Date: Sat, 14 Mar 2009 01:43:47 +0100

:-)

Till att börja med blir det problem när man sätter style på DIV.
Som du ser får ALLA divvar samma stil som din textbox.
Du har 2 positioner för textboxen:
text.style.left=l
text.style.left=(scw/2)-(textw/2)
:-)
Lätt att ändra ju!

Eftersom det inte är ett måste med en textbox här så kan du hoppa över det och 
koncentrera dig på if-satsen om du vill.

Sen hänvisar du till sub ett både i start och i onLoad - det är inte så bra.
Men också lätt att ordna till!


Här använder du dig av ett litet "räkneverk" som jag nämnde i förra uppgiften.
Bra!

mv=mv+1
if mv=1 then
      bild.style.top=t
      bild.style.left=l
elseIf mv=2 then
      bild.style.top=t    ---- det här står ju redan i if-satsen ovanför
   bild.style.left=scw-bildw
elseIf mv=3 then
      bild.style.top=sch-bildh
   bild.style.left=scw-bildw    ---- samma här
elseIf mv=4 then
      bild.style.top=sch-bildh    ---- och här
   bild.style.left=l
   mv=0
end if

Här kan du korta ner koden lite - man behöver ju inte skriva det som inte 
förändras mellan de olika gångerna.
Hela den lila biten kan omvandlas till ett ELSE - då behöver du inte siffran 4.

/YRJA





> elektion 16B
>  ----- Original Message ----- From: Birgit To: vbs Sent: Wednesday, March 11, 
> 2009 12:30 PMSubject: [vbs2] lektion 16 B Birgit
>   Lektion 16B
>  Hilsen birgit
> 
> 
> ------------------------------------------------------------------------------
> 
> 
> 
>  No virus found in this incoming message.
>  Checked by AVG - www.avg.com 
>  Version: 8.0.237 / Virus Database: 270.11.10/1995 - Release Date: 03/11/09 
> 08:28:00
>


--------------------------------------------------------------------------------



No virus found in this incoming message.
Checked by AVG - www.avg.com 
Version: 8.0.237 / Virus Database: 270.11.10/1995 - Release Date: 03/11/09 
08:28:00

Other related posts:

  • » Re: [vbs2] lektion 16 B Birgit - YRJA på VBScript . dk