Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Как увязать объект и его событие с VBScript?

Автор: cardinal 6.8.2006, 22:11

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

Создаем на форме объект, присваиваем ему имя, как обычно это делается в 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.    Прописываем в объявленной событийной процедуре действия, которые должны выполняться по срабатыванию события.

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