Изменение размера картинки

  • Автор темы xDanilax
  • Дата начала
X

xDanilax

#1
Добрый день!
Помогите, пожалуйста, разобраться, как сделать увеличение картинки по нажатию на нее на VBScript.
В теле передается ссылка на картинку, имя картинки каждый раз разное. При нажатии на картинку, она должна увеличиваться.
[codebox]if Ncol = 1 then
tt=tt & "<TD><img src=""" &fl.value & """ height=240 width=320 alt='Для увеличения фотографии нажмите'

name='pic'></TD>"
else
tt=tt & "<TD>" & fl.value & "</TD>"

end if[/codebox]

Процедура

[codebox]Sub pic_OnClick ()
select case me.width
case 480
me.width=240
me.height=320
case 640
me.width=320
me.height=240
case 240
me.width=480
me.height=640
case 320
me.width=640
me.height=480
end select
End Sub[/codebox]
 
V

Vovochka

#2
Простите, а могу я узнать, чем обусловлен столь интересный выбор скриптового языка? :)