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