Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как увязать объект и его событие с VBScript? 
:(
    Опции темы
cardinal
Дата 6.8.2006, 22:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99



Вообще, существует несколько вариантов. Но я опишу наиболее предпочтительный.

Создаем на форме объект, присваиваем ему имя, как обычно это делается в HTML. Затем пишем НАД html-кодом следующее:
Код

<script language=’vbscript’>

Sub cmdButton_OnClick()

    Dim mess

    mess = “Вы кликнули по объекту!”

    CALL MsgBox( mess, vbInformation, “Информация” )
    document.form.txtText.value = mess

End Sub

</script>

А ПОД всем этим – HTML-код:
Код

<html>
<form name=’form’>

 <input type=’button’ name=’cmdButton’ value=’Вызов сообщения’><br>
 <input type=’text’ name=’txtText’ value=’0’>

</form>
</html>

Итак, давайте разберем порядок «увязки» VBScript с формой.

1.    Создаем HTML-код. Обязательно обрамляем весь код в теги <form></form>, причем присваиваем форме имя. Это потребуется при задании/считывании значений объектов на форме.
2.    Создаем объекты (ссылки, кнопки, текстовые поля и т.д.), обязательно присваиваем каждому имя.
3.    Над HTML-кодом пишем обрамляющие теги <script language=’vbscript’></script>.
4.    Между этими тегами пишем собственно событийные процедуры. Процедурам лучше присваивать типы Public, что эквивалентно простому объявлению Sub (вместо Public Sub). Затем пишем имя объекта на форме, а через символ подчеркивания – его событие, на которое он может реагировать (в нашем случае событие клика по объекту – OnClick() ). После имени события, разумеется, ставим пару круглых скобок.
5.    Прописываем в объявленной событийной процедуре действия, которые должны выполняться по срабатыванию события.

Вот, собственно, и все.


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0761 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.