1. Набираем команду codeby webinar. Набираем команду для организации и проведения вебинаров. Подробнее ...

    Скрыть объявление
  2. Требуются разработчики и тестеры для проекта codebyOS. Требования для участия в проекте: Знание принципов работы ОС на базе Linux; Знание Bash; Крайне желательное знание CPP, Python, Lua; Навыки системного администрирования. Подробнее ...

    Скрыть объявление
  3. Получи 30.000 рублей. Для получения денег необходимо принять участие в конкурсе авторов codeby. С условиями и призами можно ознакомиться на этой странице ...

    Внимание! Регистрация авторов на конкурс закрыта.

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

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

Тема в разделе "Web - программирование", создана пользователем xDanilax, 29 янв 2009.

  1. xDanilax

    xDanilax Гость

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

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

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