ТОР 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 с разными событиями и элементами управления на вашей страничке. Таким образом, вы можете больше внимания обращать на сам процесс разработки приложения.
Не нашли, что искали? Воспользуйтесь поиском: