Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations IamaSherpa on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Image resizer in vbscript does not work.

Status
Not open for further replies.
harmmeijer

harmmeijer

Programmer
Mar 1, 2001
869
CN
I display some information in an htm page witch comes from a database.
People can change pictures and text information.
When a picture is inserted witch is 400 by 100 the image is resized to fit in the screen without stretching it.
The maximum size if the image is 200 by 200 so an image of 400 by 100 is resized to 200 by 50.
When the page is loaded the function workes but the first time someone changes the picture it is not resized correctly.
document.images("lnimg").src=document.forms("myform").myfile.value
this line puts a file chosen in a form.file in a source of lnimg then the following code executes:
tmpw = document.images("lnimg").width
tmpw is not correct, it is the width of the lnimg before the source changed.
Here is where the plot thickens, if I put a message box in between the two lines it works like so:
document.images("lnimg").src=document.forms("myform").myfile.value
msgbox "some bs"
tmpw = document.images("lnimg").width
now the tmpw has the width of the lnimg (image) after the course has been changed (WHY????).
Does anybody know how to fix this client side vbscript without the msgbox?? Full code is included below:


<META name=VI60_defaultClientScript content=VBScript>
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--

Sub myfile_onpropertychange
document.images(&quot;lnimg&quot;).src=&quot;&quot;
document.images(&quot;lnimg&quot;).src=document.forms(&quot;myform&quot;).myfile.value
msgbox &quot;some bs&quot;
tmpw = document.images(&quot;lnimg&quot;).width
tmph = document.images(&quot;lnimg&quot;).height
if (tmpw/tmph)=<1 then
document.images(&quot;myimg&quot;).height = 200
document.images(&quot;myimg&quot;).width = (tmpw/tmph)*200
else
document.images(&quot;myimg&quot;).width = 200
document.images(&quot;myimg&quot;).height = (tmph/tmpw)*200
end if
document.images(&quot;myimg&quot;).src = document.images(&quot;lnimg&quot;).src
document.images(&quot;lnimg&quot;).src=&quot;&quot;
End Sub


Sub window_onload
document.images(&quot;lnimg&quot;).src = document.images(&quot;myimg&quot;).src
tmpw = document.images(&quot;lnimg&quot;).width
tmph = document.images(&quot;lnimg&quot;).height
if (tmpw/tmph)=<1 then
document.images(&quot;myimg&quot;).height = 200
document.images(&quot;myimg&quot;).width = (tmpw/tmph)*200
else
document.images(&quot;myimg&quot;).width = 200
document.images(&quot;myimg&quot;).height = (tmph/tmpw)*200
end if
document.images(&quot;lnimg&quot;).src=&quot;&quot;
End Sub

-->
</SCRIPT>
</HEAD>
<BODY>

<form name='myform'>
<center><IMG src=&quot;C:\Mijn documenten\Mijn afbeeldingen\AAAAAAHEIGHT.jpg&quot; name=myimg ><br></center>

<input type = file name='myfile'><br>
<input type = button name=button1><br>
<input type = button name=button2><br>
</form><IMG style=&quot;VISIBILITY: hidden&quot; name=lnimg >
</BODY></HTML>
 
Status
Not open for further replies.

Similar threads

K
  • Locked
  • Question
VBSCRIPT dont work windows 11 23h2 ???
Replies
2
Views
497
SoftwareRT
SoftwareRT
bdwilcox
  • Locked
  • Question
Trying to adapt VBScript to search if machine is in an AD group 6
Replies
8
Views
994
SoftwareRT
SoftwareRT
Alexvb6
  • Locked
  • Question
Deprecation of VBScript + Classic ASP: How to Ask Microsoft to cancel their planned craziness
Replies
0
Views
353
Alexvb6
Alexvb6
bdwilcox
  • Locked
  • Question
HTA fails with Syntax Error when working VBScript inserted
Replies
2
Views
345
bdwilcox
bdwilcox
Katto
  • Locked
  • Question
Excel VBA functions in VBScript
Replies
4
Views
309
dhookom
dhookom

Part and Inventory Search

Sponsor

Back
Top