Главная | Случайная
Обратная связь

ТОР 5 статей:

Методические подходы к анализу финансового состояния предприятия

Проблема периодизации русской литературы ХХ века. Краткая характеристика второй половины ХХ века

Ценовые и неценовые факторы

Характеристика шлифовальных кругов и ее маркировка

Служебные части речи. Предлог. Союз. Частицы

КАТЕГОРИИ:






Использование объектов




Теперь Вы знаете, что для включения объектов в HTML-документ нужно использовать пару тегов <OBJECT></OBJECT>, а для установки значений его свойств - тег <PARAM>. Так как Вы имели дело с программированием на Visual Basic, то использование тегов <PARAM> должно напоминать Вам размещение какого-либо компонента или элемента управления на форме. Например, следующие значения тегов <OBJECT> и <PARAM> добавляют на страничку (вместо формы в Visual Basic) элемент ActiveX Label:

<OBJECT classid="clsid:99B42120-6EC7-11CF-A6C7-00AA00A47DD2" id="lblActiveLbl" width=250 height=250 align="left" hspace=20 vspace=0>

<PARAM name="Angle" value=90>

<PARAM name="Alignment" value=2>

<PARAM name="BackStyle" value=0>

<PARAM name="Caption" value="A Simple Desultory Label">

<PARAM name="FontName" value="Arial">

<PARAM name="FontSize" value=20>

<PARAM name="FontBold" value=1>

<PARAM name="FrColor" value=0>

</OBJECT>

Вы можете присваивать или устанавливать свойства, а также вызывать методы точно так же, как с любым средством управления формой. Следующий текст, например, включает элементы <FORM>, которые могут использоваться для управления свойствами двух элементов Label:

<FORM name="LabelControls">

<INPUT type="TEXT" name="txtNewText" size=25>

<INPUT type="BUTTON" name="cmdChangeIt" value="Change Text">

<INPUT type="BUTTON" name="cmdRotate" value="Rotate Label">

</FORM>

Обработчик события нажатия кнопки cmdChangeIt изменяет текст объекта Label:

<SCRIPT language="VBScript">

<!-

Sub cmdChangeIt_onClick

Dim TheForm

Set TheForm = Document.LabelControls

lblActiveLbl.Caption = TheForm.txtNewText.Value

End Sub

->

</SCRIPT>

Некоторые теги (прежде всего для управления вводом информации в форму) и элементы ActiveX могут обращаться к отдельным процедурам Вашего скрипта, запускаемого событием. События могут вызываться из тегов <A>, <BODY>, <INPUT> и <OBJECT>. В примере, который приводится ниже, при нажатии кнопки изменяется текст объекта Label:

<HTML>

<HEAD>

<TITLE>Использование объектов с событиями</TITLE>

</HEAD>

<BODY bgcolor="slateblue"><BR>

<CENTER>

<OBJECT id="MyLabel" width=215 height=93 classid="CLSID:99B42120-6EC7-11CF-A6C7-00AA00A47DD2">

<PARAM name="_ExtentX" value=5689>

<PARAM name="_ExtentY" value=2461>

<PARAM name="Caption" value="Watch me change!!">

<PARAM name="Angle" value=0>

<PARAM name="Alignment" value=4>

<PARAM name="BackStyle" value=1>

<PARAM name="Mode" value=1>

<PARAM name="FillStyle" value=0>

<PARAM name="FillStyle" value=1>

<PARAM name="ForeColor" value=#00FF00>

<PARAM name="BackColor" value=#DDAADD>

<PARAM name="FontName" value="Times">

<PARAM name="FontSize" value=12>

<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></CENTER><BR><BR><CENTER>

<INPUT type="button" value="click ME to change" onclick="changes" Language="VBScript">

</CENTER>

<SCRIPT>

sub changes

MyLabel.Caption="See. . . I TOLD YOU!"

MyLabel.ForeColor = "6316128"

MyLabel.BackColor = "167111680"

MyLabel.FontName = "Arial"

end sub

sub MyLabel_Click

MyLabel.Caption="Watch me change!!"

MyLabel.ForeColor = "65280"

MyLabel.BackColor = "14527197"

MyLabel.FontName = "Times"

end sub

</SCRIPT>

</BODY>

</HTML>

В этом примере, помимо объекта Label, добавлены некоторые возможности скрипта и несколько событий. Во-первых, определяется элемент управления Label, затем с помощью тега <INPUT> добавляется элемент управления Button. Когда пользователь нажимает на кнопку, то текст Label изменяется. При повторном нажатии кнопки возвращается прежний текст. Оба эти действия являются событиями. Когда пользователь нажимает на кнопку, возникает событие, заставляющее метку изменяться. Атрибут OnClick в теге <INPUT> используется для того, чтобы вызвать событие. Сам по себе атрибут OnClick является событием, и его значение вызывает процедуру VBScript, которая заставляет метку изменяться. Прежний текст возвращается с помощью скрипта, имеющего две процедуры. Первая используется элементом Button (кнопка), а вторая - Label (метка), если пришло время вернуть ее старое содержание. Как вы заметили, во второй процедуре имя объекта Label (MyLabel) сопровождается подчеркиванием, после которого стоит имя события (MyLabel_Click). Это означает, что когда происходит событие OnClick для названного объекта, то должны выполняться последовательности операций, перечисленные в этой процедуре.

При интенсивном программировании лучше всего использовать программу Microsoft ActiveX Control Pad, великолепно выполняющую связывание команд Visual Basic с разными событиями и элементами управления на вашей страничке. Таким образом, вы можете больше внимания обращать на сам процесс разработки приложения.




Не нашли, что искали? Воспользуйтесь поиском:

vikidalka.ru - 2015-2019 год. Все права принадлежат их авторам! Нарушение авторских прав | Нарушение персональных данных