[vbs2] Re: [vbs2] Lektion 17 A med bildstorlek under dim från Åsa
- From: YRJA på VBScript.dk <yrja@xxxxxxxxxxx>
- To: <vbs2@xxxxxxxxxxxxx>
- Date: Wed, 11 Feb 2009 14:34:16 +0100
Först får bildw ett värde här uppe
bildw=800
bildh=500
Att man skriver med liten eller stor bokstav gör inte att det blir 2 olika
värden.
sub window_onLoad()
on error resume next
bildW=bild.offsetWidth -- sen får det ett nytt värde här - men eftersom den
här raden hämtar bildens storlek så är det ju detsamma -lite onödigt
bildH=bild.offsetHeight
litenbw=bildW/bildw -- men du har tänkt rätt och satt dit det här också - vad
blir ett värde dividerat med sig sälv?? :-)
litenbH=bildH/bildh
start
end sub
Sen kommer vi till den här if-satsen i subben.
sub sB()
clearTimeOut(tH)
bild.style.width=litenbW
bild.style.height=litenbH
litenbW=litenbW+(bildW/100)
litenbH=litenbH+(bildH/100)
if litenbW=<bildW then - när värdet på litenbW är mindre än bildens rätta
storlek -
ja då skickar det vidare till denna
sub en gång till och det
lila talar om att bilden ska få den
storleken som blivit på de gröna raderna
men tänk på att det inte sker förrän
nsta gång subben körs
tH=setTimeOut ("sB", 300)
end if
end sub
Vad händer nu om den gröna uträkningen kommer upp till ett värde som är större
eller lika med bildens rätta storlek??
I if-satsen konstateras att då den är större ska inte subben köras en gång till
- MEN - har bilden FÅTT den storleken då??
NEJ - det får den ju inte förrän nästa gång subben skulle körts.
VAD kan du skriva efter THEN som gör att bilden får rätt storlek.
Och när det är inskrivert så kan du lägga till ELSE innan det blåa - då har du
en mera korrekt if-then-else-sats.
:-)
Förstår du hur jag menar??
/YRJA
> VBS Lektion 17 A 2
> ----- Original Message -----
> From: Trollet
> To: VBScript-Kurs Termin 2
> Sent: Friday, February 06, 2009 10:14 AM
> Subject: [vbs2] Lektion 17 A med bildstorlek under dim från Åsa
>
>
>
>
>
> ------------------------------------------------------------------------------
>
>
>
> No virus found in this incoming message.
> Checked by AVG - www.avg.com
> Version: 8.0.233 / Virus Database: 270.10.18/1935 - Release Date: 02/04/09
> 16:35:00
>
Other related posts:
- » [vbs2] Re: [vbs2] Lektion 17 A med bildstorlek under dim från Åsa - YRJA på VBScript . dk
