[vbs2] Re: [vbs2] Lektion 18 a från Åsa med ändring efter subhänvisning

  • From: YRJA på VBScript.dk <yrja@xxxxxxxxxxx>
  • To: <vbs2@xxxxxxxxxxxxx>
  • Date: Wed, 18 Mar 2009 01:28:17 +0100

Lite för mycket kod i den här:


bild1W=150          här är ett värde på bildW
bild1H=150
'-----------------------------------
'Här ändrar du textboxens storlek
'-----------------------------------
txt2w=250                           samma här
txt2h=200
'-----------------------------------
'marginal
'-----------------------------------
marg=1
'-----------------------------------

sub window_onLoad()
on error resume next
bild1W=bild1.offsetWidth     här är nästa värde på bildW
bild1H=bild1.offsetHeight
txt2W=txt2.offsetWidth        samma som där uppe
txt2H=txt2.offsetHeight    offset hämtar originalstorleken


txt2.style.width=txt2w             varför ge textboxen sitt stora värde först 
och sen...
txt2.style.height=txt2h
txt2.style.visibility="hidden"
txt2.style.left=(scw/2)-(bild1w/2)
txt2.style.top=(sch/2)-(bild1h/2)
stor1W=bild1W/bild1w
stor1H=bild1H/bild1h
stor2W=txt2W/txt2w
stor2H=txt2H/txt2h
stopp=scw-bild1w
tH=setTimeOut ("sB", 30)
tH1=setTimeOut ("sB1", 3000)
tH2=setTimeOut ("sB2", 3000)
end sub

sub sB1()
clearTimeOut(tH1)
window.status="~~*~~Textbox~~*~~"
txt2.style.visibility="visible"
txt2.style.width=stor2W      ... sen här ge den ett värde som bara är 1 liten 
pixel??
txt2.style.height=stor2H
stor2W=stor2W+(txt2W/100)
stor2H=stor2H+(txt2H/100)

if stor2w=<txt2w then 
 tH1=setTimeOut ("sB1", 30)
else
txt2.style.width=stor2w       - det är HÄR som du behöver originalstorleken
txt2.style.height=stor2h
end if
end sub

Hoppas att mina hänvisningar ger dig lite att bita i.
Var bara logisk och ta inte med för mycket.
Bara det som är nödvändigt - på rätt ställe.

:-)
/YRJA


> VBS Lektion 18 A 
>  ----- Original Message ----- 
>  From: Trollet 
>  To: VBScript-Kurs Termin 2 
>  Sent: Monday, March 16, 2009 11:07 AM
>  Subject: [vbs2] Lektion 18 a från Åsa med ändring efter subhänvisning
> 
> 
>   Här kommer texten 
> 
> ------------------------------------------------------------------------------
> 
> 
> 
>  No virus found in this incoming message.
>  Checked by AVG - www.avg.com 
>  Version: 8.0.237 / Virus Database: 270.11.15/2003 - Release Date: 03/15/09 
> 14:07:00
>


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



No virus found in this incoming message.
Checked by AVG - www.avg.com 
Version: 8.0.237 / Virus Database: 270.11.15/2003 - Release Date: 03/15/09 
14:07:00

Other related posts:

  • » [vbs2] Re: [vbs2] Lektion 18 a från Åsa med ändring efter subhänvisning - YRJA på VBScript . dk