[ главная ]   [ рейтинг статей ]   [ справочник радиолюбителя ]   [ новости мира ИТ ]



Ответов: 0
25-02-12 07:01







   Web - программирование
PHP


ASP






XML



CSS

SSI





   Программирование под ОС











   Web - технологии








   Базы Данных









   Графика






Данные




Web - программирование / VBScript /

Вызов методов в языке сценариев VBScript

Чтобы вызвать подпрограмму из вашего сценария, используйте следующий синтаксис:

call Procedu(arguments)

Procedu - это имя подпрограммы, которую вы вызываете; arguments - значения, передающиеся в процедуру. Как было сказано ранее, подпрограммы используются, когда требуется обработать какое-то событие, например:

<SCRIPT> 
... 
sub MyObject_Click() 
alert "This is a subroutine which is called _ 
when the Click event happens for the MyObject object." 
end sub 
... 
</SCRIPT>

В нашем случае это Click, т. е. пользователь должен щелкнуть мышкой на этом объекте. Это не будет работать для функции, потому что функция - это процедура, возвращающая значение. Что касается функций, то они сами могут быть возвращены как значение, например:

<SCRIPT> 
... 
y = 2 
x = GiveValue(y) 
alert x 
... 
function GiveValue(a) 
GiveValue = a + 4 
end function 
... 
</SCRIPT>

Следующий пример иллюстрирует вызовы подпрограммы и функции из сценария:

<HTML> 
<HEAD> 
<TITLE>Документ HTML, использующий элементы 
управления ActiveX и процедуры </TITLE> 
</HEAD> 
<BODY BGCOLOR="mistyrose"> 
<OBJECT ID="IeLabel1" WIDTH=170 HEIGHT=93 
CLASSID="CLSID:99B42120-6EC7-11CF-A6C7-00AA00A47DD2"> 
<PARAM NAME="_ExtentX" VALUE="3625"> 
<PARAM NAME="_ExtentY" VALUE="2461"> 
<PARAM NAME="Caption" VALUE="Click Me"> 
<PARAM NAME="Angle" VALUE="0"> 
<PARAM NAME="Alignment" VALUE="4"> 
<PARAM NAME="Mode" VALUE="1"> 
<PARAM NAME="FillStyle" VALUE="0"> 
<PARAM NAME="FillStyle" VALUE="1"> 
<PARAM NAME="ForeColor" VALUE="#FF0000"> 
<PARAM NAME="BackColor" VALUE="#373737"> 
<PARAM NAME="BackStyle" VALUE="1"> 
<PARAM NAME="FontName" VALUE="Courier"> 
<PARAM NAME="FontSize" VALUE="24"> 
<PARAM NAME="FontItalic" VALUE="0"> 
<PARAM NAME="FontBold" VALUE="0"> 
<PARAM NAME="FontUnderline" VALUE="0"> 
<PARAM NAME="FontStrikeout" VALUE="0"> 
<PARAM NAME="TopPoints" VALUE="0"> 
<PARAM NAME="BotPoints" VALUE="0"> 
</OBJECT><BR CLEAR="ALL"> 
<INPUT TYPE="button" NAME="button1" VALUE="Get Value"> 
Enter Angle: 
<INPUT TYPE="text" NAME="AngleInpt" VALUE="0"
 SIZE="10"
MAXLENGTH="10"> 
The Sine is: 
<INPUT TYPE="text" NAME="SineInpt" VALUE="0"
 SIZE="10" MAXLENGTH="10">
<SCRIPT LANGUAGE="VBScript"> 
dim pi 
pi = 4 * atn(1.0) 
sub button1_OnClick 
dim angle, sinangle 
angle = AngleInpt.value 
sinangle = getsin(angle) 
SineInpt.value = sinangle 
end sub 
function getsin(angle) 
getsin = sin((pi * angle)/180) 
end function 
sub ieLabel1_Click 
call ieLabel1.AboutBox 
end sub 
</SCRIPT> 
</BODY> 
</HTML>

Когда пользователь щелкает мышью по метке Label, то вызывается метод About Box. Поля ввода используются для вычисления синуса заданного угла (в градусах). Если ввести некоторое значение в первое поле ввода, помеченное текстом "Enter Angle", и щелкнуть на кнопке мышью, то введенный аргумент будет переведен в радианы и затем вычислен синус, результат чего будет отображен.

Первая процедура вызывается по нажатию мышью на единственный объект на странице - кнопку, называемую button1. Когда это событие обрабатывается, то вызывается сразу несколько методов. Сначала обновляются все переменные, которые вы собираетесь использовать для вашей программы. Затем отыскивается значение, называемое AngleInpt, которое пользователь набрал в поле ввода. Далее вызывается функция, в которую заносится введенный параметр из поля AngleInpt.

Она преобразует угловые градусы в радианы, затем вычисляет его синус (радианы являются основной мерой измерения углов для тригонометрических функций в VBScript). Значение связывается с именем функции (getsin), которая возвращает его для определенной нами ранее переменной. В итоге это значение отображается в текстовом поле, называемом SineInpt.

В данном примере задействовано два метода: подпрограмма button1_OnClick, которая, если вы помните, вызывается, когда пользователь щелкает мышью по кнопке, и функция getsin(angle), где angle - параметр, используемый для преобразования градусов в радианы.

У элемента ActiveX Label используются два включаемых метода (методами называются собственные подпрограммы и функции объекта): тот, который вызывается, когда по метке щелкнули мышкой (ieLabel1_Click), и метод отображения диалоговой панели ieLabel.AboutBox(). Когда обращаются к методам объектов, обычно используют следующий синтаксис:

call ObjectName.MethodName()

Ключевое слово call применяется для вызова определенного метода. ObjectName - это имя объекта, для которого вы хотели бы вызвать метод, а MethodName() - это имя метода, который будет использовать сам объект. Имя объекта и вызываемый метод отделяются точкой. Также для вызова метода не требуется никаких скобок, потому что у него нет никаких параметров.




Комментарии

 Ваш комментарий к данному материалу будет интересен нам и нашим читателям!



Последние статьи: Web - программирование / VBScript /

McObject випускає ODBC API для бази даних eXtremeDB
13-04-2009   

Компанія McObject оголосила про випуск API-інтерфейсу Open Database Connectivity (ODBC) для своєї Озу-резидентной що вбудовує СУБД реального часу eXtremeDB... подробнее

Кол. просмотров: общее - 2979 сегодня - 1

Вызов методов в языке сценариев VBScript
13-04-2009   

Чтобы вызвать подпрограмму из вашего сценария, используйте следующий синтаксис... подробнее

Кол. просмотров: общее - 2940 сегодня - 1

Обработка событий на языке сценариев VBScript
13-04-2009   

VBScript - событийно-ориентированный язык. Некоторые события работают со многими элементами управления. Существует несколько методов определения того, что должно происходить в сценарии при возникновении события... подробнее

Кол. просмотров: общее - 2907 сегодня - 2

Установка с помощью VBScript свойств для элементов управления и объектов
13-04-2009   

Установка свойств для разных объектов на странице является одной из простейших задач при программировании на языке сценариев VBScript... подробнее

Кол. просмотров: общее - 3053 сегодня - 0

Установка свойств для элементов управления и объектов в языке сценариев VBScript
13-04-2009   

И методы, и свойства, и события разработчик выбирает сам, исходя из потребностей задачи. Так, если в вашей программе нужно отследить время окончания работы, то имеет смысл обращать внимание на событие, сигнализирующее об этом... подробнее

Кол. просмотров: общее - 3292 сегодня - 2



  WWW.COMPROG.RU - 2009-2012 | Designed and Powered by Zaipov Renat | Projects