1. Мегаконкурс в апреле "Приведи друзей на codeby". Дарим деньги, подписку на журнал хакер и выдаем статус "Paid Access". Подробнее ...

    Скрыть объявление

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

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

Наш партнер Genesis Hackspace
  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 Гость

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

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