Главная страница
Библиотека (скачать книги)
Скачать софт
Введение в программирование
Стандарты для C++
Уроки по C#
Уроки по Python
HTML
Веб-дизайн
Ассемблер в среде Windows
ActiveX
Javascript
Общее о Линукс
Линукс - подробно
Линукс - новое
Delphi
Паскаль для начинающих
Турбопаскаль
Новости
Партнеры
Наши предложения
Архив новостей
Элемент управления Popup Menu
Элемент управления Popup Menu используется для создания выпадающего меню, появляющегося при нажатии пользователем на кнопку или картинку на Web-странице, связанных с этим управляющим элементом. Его довольно часто используют Web-мастера, чтобы дать возможность пользователям самим выбирать из многочисленных ресурсов, красиво упакованных в удобные списки со скроллингом (с полосами прокрутки), что им нужно.
Элемент управления Popup Menu имеет только одно свойство itemcount. Это свойство определяет количество элементов в списке. Параметр Menuitem [ ] используется, чтобы маркировать выбранные элементы. Вы можете использовать нижеприведенный скрипт, чтобы вызывать различные URL, которые предлагаются в списке меню.
Имеются пять методов, связанных с элементом управления Popup Menu:
- AboutBox — предоставляет информацию об управляющем элементе;
- Additem (item, index) — добавляет к списку новую запись;
- clear — очищает список меню;
- Popup (x, у) — определяет позиции х и у;
- Removeitem (index) — удаляет запись из списка.
Обрабатываемое событие для элемента управления Popup Menu — это нажатие кнопки мыши (click(item)). Индекс записи из списка при этом передается в программу.
Приведем пример использования этого управляющего элемента:
<HTML>
<HEAD>
<TITLE>Test Page</TITLE>
</HEAD>
<BODY BGCOLOR=WHITE>
<H1>Popup Menu Control</H1>
<HR COLOR=NAVY>
<TABLE BORDER BGCOLOR=YELLOW></TR><TD>
<OBJECT ID="Labell" WIDTH=165 HEIGHT=44
CLASSID="CLSID:99B42120-6EC7-11CF-A6C7-00AA00A47DD2">
<PARAM NAME="_ExtentX" VALUE="4366">
<PARAM NAME="_ExtentY" VALUE="1164">
<PARAM NAME="Caption" VALUE="Popup Menu">
<PARAM NAME="Angle" VALUE="0">
<PARAM NAME="Alignment" VALUE="4">
<PARAM NAME="Mode" VALUE="1">
<PARAM NAME="FillStyle" VALUE="0">
<PARAM NAME="FillStyle" VALUE="0">
<PARAM NAME="ForeColor" VALUE="#000000">
<PARAM NAME="BackColor" VALUE="#C0C0C0">
<PARAM NAME="FontName" VALUE="Arial">
<PARAM NAME="FontSize" VALUE="18">
<PARAM NAME="FontItalic" VALUE="0">
<PARAM NAME="FontBold" VALUE="1">
<PARAM NAME="FontUnderline" VALUE="0">
<PARAM NAME="FontStrikeout" VALUE="0">
<PARAM NAME="TopPoints" VALUE="0">
<PARAM NAME="BotPoints" VALUE="0">
</OBJECT>
</TR></TD></TABLE>
<OBJECT ID="Popl" WIDTH=5 HEIGHT=5 CLASSID="CLSID:7823A620-9DD9-11CF-A662-00AA00C066D2">
<PARAM NAME="MenuItem[0]" VALUE="Домашняя страница Microsoft">
<PARAM NAME="MenuItem[l]" VALUE ="Поисковый сервер">
<PARAM NAME="MenuItem[2]" VALUE="PCWeek Русская редакция">
</OBJECT>
<Script Language=VBScript>
Sub Labell_Click
call Popl.PopUp() End Sub
Sub Popl_Click (byVal X)
Select Case X
Case 1
top.Location="http://www.microsoft.com"
Case 2
top.Location="http://www.rambler.ru"
Case 3
top.Location="http://www.pcweek.ru"
End Select
End Sub
Рис. 1.12. Окно-предупреждение при копировании и регистрации элемента управления
Вы можете легко переписать этот сценарий и добавить в выпадающее меню адреса и ссылки, какие пожелаете.
Интересно, что если вы скопируете из книги этот кусок кода в какой-нибудь файл с расширением .html и запустите его из браузера, то отсутствующий у вас элемент управления ActiveX скачается по Сети с выдачей предупреждающего окна (рис. 1.12).
Библиотека программиста. 2009.
Администратор: admin@programmer-lib.ru