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

Тема в разделе "HTML, CSS, XML, JavaScript", создана пользователем xDanilax, 29 янв 2009.

  1. xDanilax

    xDanilax Гость

    Добрый день!
    Помогите, пожалуйста, разобраться, как сделать увеличение картинки по нажатию на нее на 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]
     
  2. Vovochka

    Vovochka Гость

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

Поделиться этой страницей