-тэги или встроенные элементы управления ActiveX), то что останется? Язык, который может создавать переменные, задавать их значения, выполнять основные операции над переменными, вычислять логические выражения и повторять некоторые циклические структуры. Если имеется механизм выполнения этих операций, то можно построить специальный язык программирования.


Чтобы создать такой язык и встроить его в приложение, необходим механизм, который интерпретирует и выполняет код VBScript. Добавьте немного объектов со свойствами и методами, и получится новый язык. DHTML и Internet Explorer предоставляют объекты, которые могут использоваться VBScript. Далее в главе показано, как встраивать VBScript в приложения и позволять пользователям программировать приложение.

А как же Visual Basic for Applications? VBA - это мощный язык для программирования офисных (и других) приложений, но не язык сценариев. Во-первых, встраивание VBA в приложение не является задачей для среднего VB-программиста. Во-вторых, кроме чисто технических сложностей, VBA — дорогой продукт. Только крупные компании могут позволить себе иметь лицензию на VBA, поэтому относительно небольшое число не Microsoft-приложений используют VBA (например, AutoCAD фирмы Autodesk). С другой стороны, внедрение VBScript в приложение не вызывает особых затруднений, и VBScript свободно распространяется.

Эта технология используется при работе с другими программными продуктами, включая Windows. Например, можно автоматизировать операции Windows 98 с помощью сценариев, которые являются эквивалентами пакетных файлов DOS. Windows 98 содержит Windows Scripting Host (WSH) - систему, которая интерпретирует и выполняет код VBScript, а также предоставляет несколько объектов, необходимых для написания сценария в операционной системе. Одним из объектов WSH является объект Environment (среда), который предоставляет доступ к переменным среды операционной системы. Другой объект WSH - Network (сеть) - открывает доступ к сетевым ресурсам. Эти объекты описаны далее в этой главе. Пока же запомните: язык написания сценариев для Windows 98 - VBScript, а полученные знания применимы и в другой области написания сценариев.

В следующем параграфе рассмотрен очень полезный объект, введенный в VBScript - FileSystemObject. Он обеспечивает доступ к файловой системе хост-компьютера и в Visual Basic отсутствует. Позже мы исследуем элемент управления Script, который позволяет добавлять возможности сценария к VB-приложениям. Да, оказывается можно добавить сценарий к своему собственному приложению с использованием VBScript, и сделать его более гибким. В последнем параграфе этой главы мы узнаем, как использовать VBScript для написания сценариев для Windows.

Динамический

HTML (DHTML)
Динамический HTML несколько отличается от HTML: он не вводит новых тегов, но делает существующие теги программируемыми. Это позволяет динамически соединять теги со структурой VBScript и управлять видом документов на экране. Например, он поддерживает наслоение, которое позволяет размещать элементы на странице в соответствии с действиями пользователя. Можно помешать изображения друг на друга, оговорив при этом, что изображение под указателем переносится на передний план. Если переместить указатель на другое изображение, то оно, в свою очередь, перенесется на передний план. Можно изменить цвет текстовых элементов (заголовков, ячеек таблицы), если поместить на них указатель.
DHTML может обогатить страницу элементами мультимедиа, такими как спрайты (перемещаемые графические элементы), плавное изменение цвета текста, эффекты модуляции и т. д., без вовлечения сервера. DHTML содержит элементы управления анимацией и мультимедиа. Это используется для создания визуальных эффектов при выборе элементов на странице или целой страницы. Эти элементы управления предлагают фильтры, анимацию и модуляцию — возможности для создания страниц с некоторыми эффектами, используемыми на телевидении. Возможности мультимедиа не являются обязательными, но они вносят в HTML изюминку. Об элементах управления мультимедиа, которые можно использовать в HTML-страницах, в этой главе не рассказано. Дополнительную информацию можно найти по следующему ниже адресу.
http://www.microsоft.com/workshop/с-frame.htm#/workshop/author/
default.asp
Другая особенность DHTML, делающая его подходящим для бизнес-приложений — это возможность установления связи с данными. Каждая такая страница содержит невидимый элемент управления ActiveX, связанный с источником данных. Это позволяет создавать формы, содержащие встроенный элемент управления ActiveX, связанный с полями записи. Данные, вводимые пользователем в элемент управления, сохраняются в элементе управления Data Source, который передает данные на сервер под управлением программы.

Динамическое изменение элементов меню

В процессе работы программы можно изменить элементы меню. Эти возможности показаны на примере программы MenuMod (созданной на основе программы MenuBMP).
VB6 в действии: проект MenuMod
Приложение MenuMod позволяет организовать переключение отображения элементов меню либо в виде растрового изображения, либо в виде текста. Меню приложения MenuMod соответствует меню приложения MenuBMP, но, кроме того, добавлен третий пункт Display Graphics (вывести изображение, если элемент меню содержит текст) или Display Text (вывести текст, если элемент меню содержит графику). Обработчик события Click этого пункта меню вызывает функцию DisplayTextMenu()
или DisplayBitmap Мепи(), что позволяет переключаться из одного режима в другой. В процедуре ModifyMenu() для организации замены графики на текст в элементе меню следует использовать флаг MF_STRING, а для обратной замены — флаг MF_BITMAP.
Программа 13.6. Приложение MenuMod
Option Explicit
Private Declare Function GetMenu Lib "user32" _
(ByVal hwnd As Long) As Long
Private    Declare Function GetSubMenu Lib "user32" _
           (ByVal hMenu As Long, ByVal nPos As Long) As Long
Private    Declare Function GetMenuItemID Lib "user32" _
(ByVal hMenu As Long, ByVal nPos As Long) As Long
Private Declare Function ModifyMenu Lib "user32" _
Alias "ModifyMenuA" (ByVal hMenu As Long,
ByVal nPosition As Long, ByVal wFlags As Long, _
ByVal wIDNewItem As Long, ByVal IpString As Any) As Long
Private Declare Function CreateCompatibleDC Lib "gdi32" _
(ByVal hdc As Long) As Long
Private Declare Function CreateCompatibleBitmap Lib "gdi32"_
(ByVal hdc As Long, ByVal nWidth As Long,_
ByVal nHeight As Long) As Long
Private Declare Function Select0b]ect Lib "gdi32"_
(ByVal hdc As Long, ByVal hObject As Long) As Long
Private Declare Function BitBIt Lib "gdi32" _
(ByVal hDestDC As Long, ByVal x As Long, ByVal у As Long, _
ByVal nWidth As Long, ByVal nHeight As Long, _

ByVal hSrcDC As Long, ByVal x Src As Long, _

ByVal уSrc As Long, ByVal dwRop As Long) As Long

Private Declare Function DeleteDC Lib "gdi32" (ByVal hdc As Long) As Long

Const MF_STRING = &HO&

Const SRCCOPY = &HCC0020

Const MF_BYPOSITION - &H400&

Const MFJ3ITMAP - &H4&

Private Sub Exit_Click()

Unload Me

End Sub

Private Sub Form Load()

Call DisplayBitmapMenu

End Sub

Private Sub Graphics_Click()

‘ Отображение текста

If Graphics Checked Then

Graphics Checked  = False

Call DisplayTextMenu

Else

Graphics.Checked = True

Call DisplayBitmapMenu

End If

End Sub

Private Sub MyMenu_Click(Index As Integer)

Me CIs

Me Font Name - MyMenu(Index) Caption

Me CurrentX - (Me ScaleWidth - __

Me.TextWidth(MyMenu(Index).Caption))/2

Me CurrentY = (Me.ScaleHeight   _

Me TextHeight(MyMenu(Index) Caption))/2

Me.Print MyMenu(Index).Caption

End Sub

Private Sub DisplayTextMenu()

Dim hMenuID As Long, menuID As Long

Dim menuPos As Integer

Dim retValue As Long

‘ Получение дескриптора меню

hMenuID = GetSubMenu(GetMenu(Me.hwnd),0)

menuPos = 0

menuID - GetMenuItemID(hMenuID, menuPos)

retValue = ModifyMenu(hMenuID, menuPos, _

MF_BYPOSITION Or MF_STRING, menuID, "Verdana")

menuPos = 1

menuID = GetMenuItemID(hMenuID, menuPos)

retValue - ModifyMenu(hMenuID, menuPos,

  MF_BYPOSITION Or MF_STRING, menuID, "Serif")

menuPos - 2

menuID - GetMenuIteitiID (hMenuID, menuPos)

retValue = ModifyMenu(hMenuID, menuPos, _

MF_BYPOSITION Or MF_STRING, menuID, "Comic Sans")

End Sub

Private Sub DisplayBitmapMenu()

Dim Width As Integer, Height As Integer

Dim hTmpDC As Long, hMenuID As Long

Dim hBitmap As Long

Dim retValue As Long

Dim tmpID As Long

Dim fileName As String

Dim menuPos As Integer, menuID As Long

‘ Установка позиции меню и имени файла

menuPos - О

fileName - Арр Path & "\verdana.bmp"

Picturel Picture - LoadPicture(fileName)


Width   64

Height =16

‘ Получение дескриптора меню

hMenuID=GetSubMenu(GetMenu(Me.hwnd), menuPos)

‘ Создание контекста устройства, предназначенного для хранения

‘ растрового изображения

hTmpDC = CreateCompatibleDC(Picturel hdc)

‘ Создание растрового изображения

hBitmap = CreateCompatibleBitmap(Picturel hdc. Width, Height)

‘ Выбор растрового изображения во временный контекст

tmpID - Select0b;ect(hTmpDC, hBitmap)

‘ Копирование содержимого из элемента управления в контекст

‘ устройства

retValue = BitBIt(hTmpDC, 0, 0, Width, Height, _

Picturel.hdc, О, О, SRCCOPY)

‘ Отмена выбора

tmpID = SelectObject(hTmpDC, tmpID)

‘ Модификация меню

menuID = GetMenuItemID(hMenuID, menuPos)

retValue = ModifyMenu(hMenuID, menuPos, _

    MF_BYPOSITION Or MF_BITMAP, menuID, hBitmap)

‘ Второй пункт меню

menuPos = 1

fileName = App.Path & "\serif.bmp"

Picturel.Picture = LoadPicture(fileName)

‘ Создание растрового изображения для элемента меню

hBitmap = CreateCompatibleBitmap(Picturel.hdc. Width, Height)

‘ Выбор растрового изображения во временный контекст устройства tmpID = SelectObject(hTmpDC, hBitmap)

retValue = BitBIt(hTmpDC, 0, 0, Width, Height, _

Picturel.hdc, 0, 0, SRCCOPY)

tmpID = Select0b;ect(hTmpDC, tmpID)

menuID = GetMenuItemID(hMenuID, menuPos)

retValue = ModifyMenu(hMenuID, menuPos,

MFJ3YPOSITION Or MF_BITMAP, menuID, hBitmap)

‘ Третий пункт меню

menuPos = 2

fileName = App.Path & "\comic.bmp"

Picturel.Picture = LoadPicture(fileName)

‘ Создание растрового изображения для элемента меню

hBitmap = CreateCompatibleBitmap(Picturel.hdc. Width, Height)

‘ Выбор растрового изображения во временный контекст устройства tmpID = SelectObject(hTmpDC, hBitmap)

retValue = BitBIt(hTmpDC, 0, 0, Width, Height, _

Picturel.hdc, 0, 0, SRCCOPY)

tmpID = SelectObject(hTmpDC, tmpID)

menuID = GetMenuItemID(hMenuID, menuPos)

retValue = ModifyMenu(hMenuID, menuPos,

MF_BYPOSITION Or MF_BITMAP, menuID, hBitmap)

‘ Очистка

retValue = DeleteDC(hTmpDC)

End Sub

Добавление свойства

Давайте добавим свойство к нашему прототипу элемента управления. Назовем его Title и сохраним его значение в закрытом свойстве m_Title. Выберите UserControll в окне Project и вставьте следующее объявление в окно Code:
Private m_Title As String
и следующие процедуры
Public Property Get Title () As String
Title = m_Title
End Property
Public Property Let Title(ByVal vNewValue As String)
m_Title = vNewValue
End Property
Закройте окна конструирования UserControl и Code, переключитесь на тестовую форму, выберите новый элемент управления и найдите новое свойство в окне Properties Наличие процедур Let и Get - это все, что необходимо Visual Basic для добавления свойства в элемент управления. Введите новое значение в поле свойства Title (например. Control Title). Как и ожидалось, заголовок не появился на элементе управления.
Чтобы отобразить заголовок, необходимо добавить несколько строк кода. Переключитесь обратно в окно UserControl, выполните на нем двойной щелчок, чтобы открыть окно Code, и в событии Paint введите процедуру.
Private Sub UserControl_Paint()
UserControl.CurrentX = 0
UserControl.CurrentY = 0
UserControl.Print m_Title
End Sub
Совет
Первые два оператора не нужны, если что-либо необходимо отобразить в верхнем левом углу элемента управления, но этим переменным необходимо присвоить соответствующие значения, если что-либо требуется отобразить в другом месте элемента управления.
Переключитесь обратно на тестовую форму. Если, следуя предыдущим указаниям в процессе экспериментов с формой, вы добавили какие-либо элементы управления, удалите их.
Добавьте экземпляр специального элемента управления (если имя объекта User-Control не было изменено, то он будет автоматически назван UserControll), и присвойте значение его свойству Title. Например, My Generic Control. Заголовок не появится в момент ввода, потому что событие Paint не вызывается, когда у свойства изменяется значение. Необходимо изменить размеры элемента управления, чтобы заставить событие Paint отобразить заголовок. Если вас не устраивает шрифт, измените свойство Font (наш элемент управления не имеет свойства Font).

Каждый раз для установки нового свойства вызывается процедура Property Let. Следовательно, для того чтобы заголовок отображался после ввода, необходимо вызывать метод Paint из процедуры Property Let. Переключитесь обратно в UserControl и добавьте следующую строку к процедуре Title Property Let.

UserControl_Paint

Окно VB должно иметь вид, как показано на рис. 16.14



Рис. 16.14. Окно VB во время первых шагов конструирования базового прототипа элемента управления

Теперь присвойте значение свойству Title и проследите, чтобы строка появилась на элементе управления. Затем нажмите клавишу F5, чтобы запустить приложение на выполнение. Заголовок не появится на элементе управления. Он был там во время конструирования, но исчез во время выполнения. Можно остановить приложение и поискать значение свойства Title, чтобы удостовериться, что оно все еще содержит установленное значение. Но здесь нас подстерегает неожиданность. Оказывается, что значением свойства Title является пустая строка. Это не является следствием допущенной ошибки. Любой набор свойств режима конструирования теряет свои значения во время выполнения. Это странно, но так работают элементы управления.

Опыт работы с Visual Basic свидетельствует, что любые свойства, установленные в режиме конструирования, сохраняют свои значения во время выполнения. Чтобы это произошло, необходимо сначала сохранить значения свойств в PropertyBag, до чего не так-то просто додуматься. Давайте исследуем цикл жизни элемента управления.

Дополнение

HTML стилями и классами
Основой DHTML являются так называемые стили.
Многие теги HTML распознают атрибуты, позволяющие Web-разработчику модифицировать некоторые свойства элементов. Однако их внешний вид, предлагаемый тегами HTML, нельзя модифицировать. Тег <Н1> отображает заголовки первого уровня, но их внешний вид изменить нельзя.
При помощи DHTML можно переопределить почти каждый тег HTML. Например, следующий код является определением стиля, который выделит все заголовки первого уровня голубым цветом, а все заголовки второго уровня — красным.

Если вставить этот оператор в начало HTML-документа, как правило, в раздел HEAD, то он будет применен ко всем последующим тегам <Н1> и <Н2>.
Одновременно с измененными заголовкам <Н1> и <Н2> можно использовать исходные теги <Н1> и <Н2>. Или два типа заголовков <Н1>, один - красный, а другой - черный. Это становится возможным, если задать классы, чтобы различать пользовательские теги. Класс является новой категорией тегов, определенных автором. Предположим, нужно определить два тега <Н1>, один — для названий, а другой — для резюме. Ниже приведены два определения пользовательских тегов <Н1>.
HI.title {font-weight: bold; background: white; color: black)
HI.summary {font-weight: bold; color: blue)
Чтобы использовать второй заголовок <Н1>, необходимо вставить следующий тег.
<Н1 CLASS =
summary>This is a summary section
Класс является практически новым тегом, но поскольку он является производным от уже существующего класса, то вместо определения абсолютно нового тега определяются атрибуты существующих тегов. Тег <Н1
class=title> содержит все атрибуты тега <Н1>, кроме заданных в определении класса: ширина шрифта, цвет фона и текста.
Можно использовать классы для приспособления существующих тегов HTML к собственным потребностям. После того как тег вставлен в документ, он уже не может быть изменен. Пока наша страница является статической. Как мы увидим позже, DHTML позволяет переопределить стили, после воспроизведения страницы в окне броузера. Например, можно указать, что цвет свойства тега <Н1> изменится, когда указатель мыши будет находиться на нем или пользователь выполнит другое действие. Броузер распознает действия пользователя и генерирует события для каждого из них. Если предоставить соответствующий обработчик событий, то документ будет реагировать на эти события.

Доработанный элемент управления

TextBox
Элемент управления CTextBox представляет собой специальный элемент управления ActiveX, который расширяет возможности стандартного элемента управления TextBox. Это простой элемент (он наследует все функциональные возможности элемента управления TextBox), однако он оказывается очень полезным при конструировании приложений для ввода данных. Как будет показано далее, доработки совершенно просты и, на самом деле, тривиальны в реализации.
Большинство разработчиков занималось созданием экранов ввода данных, в которых некоторые поля являются обязательными, и, возможно, разрабатывали формы с элементами управления TextBox, окрашенными в тот или иной цвет в зависимости от того, является ли соответствующее поле обязательным, или нет. Или, возможно, использовали событие LostFocus обязательного поля, чтобы задержать фокус в этом поле до тех пор, пока пользователь не введет значение
А как насчет доработанного элемента управления TextBox, который изменяет цвет после того, как значение введено? На рис. 16.18 показана форма ввода данных, использующая такой доработанный элемент управления TextBox. Поля Name (Имя), Last Name (Фамилия) и E-mail (электронный адрес) являются обязательными, а соответствующие элементы управления TextBox первона чально окрашены в красный цвет. Если пользователь перемещает фокус и не вводит значения в эти поля, то они остаются красными. Если же значение в поле введено, то его цвет изменяется на белый. Другая возможность доработанного элемента управления TextBox состоит в том, что он изменяет цвет, когда получает фокус, и, таким образом, пользователь может быстро найти активный элемент управления на форме. Как можно, вероятно, догадаться, используется идея, примененная в формах ввода данных на Web страницах, где для указания обяза тельных полей используется звездочка.

Рис. 16 18 Элемент управления CTextBox расширяет стандартный элемент управления TextBox, добавляя к нему несколько специальных свойств
VB6 в действии: проект CTextBox
Откройте проект CTextBox на компакт диске и запустите его. При первом открытии проекта появляется сообщение об ошибке, указывающее, что элемент управления CTextBox не может быть загружен. Продолжите загрузку проекта, а затем откройте его тестовую форму. Все экземпляры элемента управления CTextBox заменены элементами PictureBox. Удалите элементы управления PictureBox с формы и создайте массив из семи элементов управления CTextBox. Поместите их на форму, как показано на рис. 16.18, выравнивая с соответствующими заголовками и друг с другом. Затем запустите проект, нажав клавишу F5, и проверьте функциональные возможности нового элемента управления.

Спецификация элемента управления CTextBox

Конструирование элемента управления CTextBox довольно просто. Ведь он идентичен стандартному элементу управления TextBox и обеспечивает несколько дополнительных свойств, рассмотренных ниже.

EnterFocusColor.

Когда элемент управления получает фокус, цвет фона устанавливается равным этому значению. Если не нужно, чтобы активный в текущий момент элемент управления изменял цвет, установите EnterFocusColor равным белому цвету.

LeaveFocusColor.

Когда элемент управления теряет фокус, цвет фона устанавливается равным этому значению (это свойство обычно равно белому цвету для необязательных полей и имеет то же значение, что и MandatoryColor для обязательных полей).

Mandatory. Это свойство указывает, является ли элемент управления обязательным полем, если Mandatory = 1, или необязательным полем, если Mandatory = 0.

MandatoryColor. Это свойство задает цвет фона элемента управления, если его свойство Mandatory = 1 (обязательное поле). MandatoryColor заменяет значение установки LeaveFocusColor. Точнее, если пользователь пропускает обязательное поле, то соответствующий элемент управления окрашивается в MandatoryColor, a не в LeaveFocusColor. Следует обратить внимание на то, что обязательные поля (Mandatory = 1) ведут себя так же, как и необязательные поля после того, как в них было введено значение.

Для изучения использования этих свойства при конструировании формы ввода данных нужно открыть проект CTextBox и поэкспериментировать со значениями специальных свойств, чтобы понять их воздействие на работу элемента. В связи с тем, что элемент управления CTextBox не является стандартным элементом интерфейса Windows, пользователи могут не сразу понять, что означает изменение цвета. Но ни у кого не займет много времени, чтобы приобрести навыки и начать эффективно использовать эту возможность.

Конструирование элемента управления CTextBox

Конструирование элемента управления CTextBox достаточно просто. Чтобы разработать заказной элемент управления, имеющий все компоненты стандартного элемента управления TextBox (кроме свойств, относящихся к установлению связи с данными), используется мастер интерфейса элемента управления ActiveX. Мастер автоматически создаст исходный текст, после чего нужно добавить несколько операторов, которые изменяют цвет фона элемента управления в зависимости от значений свойств и его содержимого.


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

1. Выберите проект и измените название на ColorTextBox.

2. Выберите объект UserControl и замените имя на CTextBox.

3. Выберите тестовый проект и измените имя на TestProject.

4. Выберите тестовую форму и замените имя на TestForm.

Так как специальный элемент управления есть не что иное, как элемент управления TextBox, следует поместить экземпляр элемента управления TextBox на него. Элемент управления TextBox должен накрыть весь объект UserControl, поэтому нужно ввести следующий ниже код в обработчик события Resize объекта UserControl.

Private Sub UserControl_Resize()

Textl.Move 0, 0, UserControl.Width, UserControl.Height

End Sub

Остальная часть кода пользователя должна использовать свойство Mandatory, поэтому этот код сейчас добавить нельзя. На этом этапе можно запустить мастер интерфейса элемента управления ActiveX, чтобы сгенерировать большую часть кода. Наша цель состоит в том, чтобь! включить все функциональные возможности элемента управления TextBox в наш специальный элемент управления.

В окне Select Interface Members следует переместить следующие компоненты и списка Available Names (Доступные Имена) в список Selected Names (Выбранньи Имена).

Appearance	KeyDown	MouseUp	OLEGiveFeedback
Backcolor	KeyPress	MultiLine	OLESetData
Click	KeyUp	OLECompleteDrag	OLEStartDrag
Change	Max Length	OLEDrag	PasswordChar
DblClick	MouseDown	OLEDragDrop	Refresh
Enabled	Mouselcon	OLEDragMode	Text
Font	MouseMove	OLEDragOver	ToolTip
ForeColor	MousePointer	OLEDropMode

Это базовые части элемента управления TextBox, за исключением свойств, предназначенных для установки связи с данными (DataSource, DataMember и т.д.). При дублировании функциональных возможностей существующего элемента управления в специальном элементе управления нужно удостовериться, что все компоненты, которые разработчик ожидает найти в специальном элементе управления, там появились. Свойства для установления связи с данными пропущены потому, что сейчас не планируется использование элементов управления при работе с базами данных (Тема создания элементов управления, связанных с данными, довольно сложна и не раскрывается в этой книге)


После нажатия на кнопку Next отобразится следующее окно Create Custom Interface Members (Создание специальных частей интерфейса). Здесь нужно добавить следующие специальные компоненты.

EnterFocusColor.

Цвет фона элемента управления, когда он получает фокус.

LeaveFocusColor.

Цвет фона элемента управления, когда он теряет фокус.

Mandatory. Если это свойство имеет значение True, цвет фона элемента управления равен значению свойства MandatoryColor, чтобы показать, что элемент управления используется для требуемого поля.

MandatoryColor.

Цвет фона элемента управления, у которого свойство Mandatory равно True.

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

TextBoxl. Ни один из компонентов элемента управления CTextBox не отображается на объект UserControl просто потому, что TextBox полностью включает в себя весь объект UserControl.

В следующем окне Set Attributes задайте значения специальных свойств. Введите атрибуты, показанные в табл. 16.4, в соответствующие поля окна Set Attributes мастера.

Таблица 16.4. Значения специальных свойств

Свойство	Тип данных	Значение по умолчанию	В режиме выполнения	В режиме конструирования
EnterFocusColor LeaveFocusColor Mandatory MandatoryColor	OLECOLOR OLECOLOR Boolean OLECOLOR	&HOOFFFF &HFFFFFF False &HFFOOOO	Чтение/Запись Чтение/Запись Чтение/Запись Чтение/Запись	Чтение/Запись Чтение/Запись Чтение/Запись Чтение/Запись

В том же окне можно также ввести описание каждого свойства, которое появляется в окне Properties, когда выбрано соответствующее свойство. После щелчка мышью на кнопке Next, а затем на кнопке Finish будет сгенерирован код элемента управления.

Теперь можно открыть окно Code объекта UserControl и просмотреть код, сгенерированный мастером. Следующие переменные и начальные значения расположены в верхней части окна Code:

' Значения свойств, устанавливаемые по умолчанию:

Const m_def_Mandatory =


False

Const m_def_EnterFocusColor = &HFFOOFF

Const m_def_MandatoryColor = &HFF

Const m_def_LeaveFocusColor = &HFFFFFF

' Переменные свойств:

Dim m_Mandatory As Boolean

Dim m_EnterFocusColor As Variant

Dim m_MandatoryColor As OLE_COLOR

Dim m_LeaveFocusColor As OLE_COLOR

Эти объявления переменных и констант соответствуют свойствам, которые были заданы в окнах мастера. Все стандартные элементы уже реализованы, и их не нужно изменять, кроме процедур свойства Appearance. Мастер реализует это свойство как Integer, но использование перечислимого типа более предпочтительно для свойств, имеющих ограниченное число значений. Поэтому добавьте следующее объявление типа:

Enum Flat3D

Flat

[3D]

End Enum

и затем измените процедуры свойства следующим образом.

Программа 16.17. Модифицированные процедуры свойства Appearance

Public Property Get Appearance() As Flat3D

Appearance = Text1.Appearance

End Property

Public Property Let Appearance(ByVal New Appearance As Flat3D)

Text1.Appearance() = New Appearance

PropertyChanged "Appearance"

End Property

Нужно также изменить код процедуры Property Let для свойства MandatoryColor. Это свойство может быть установлено только в случае, если свойство Mandatory элемента управления равно True. Если оно равно False, то пользователь должен сначала изменить его, а затем задать свойство MandatoryColor.

Программа 16.18. Модифицированные процедуры свойства MandatoryColor

Public Property Let MandatoryColor(ByVal New_MandatoryColor As _

OLE_COLOR)

m_MandatoryColor = New_MandatoryColor

If m_Mandatory Then Text1.Backcolor = New_MandatoryColor

PropertyChanged "MandatoryColor"

End Property

Свойство Mandatory имеет тип Integer. Можно ввести любые целочисленные значения в его поле в окне Property. Определим следующий перечислимый тип:

Enum ReqOpt

[Optional]

Required

End Enum

Следует обратить внимание, что значение Optional должно быть заключено в квадратные скобки, так как оно является ключевым словом Visual Basic. Измените процедуры свойства Mandatory следующим образом.


Программа 16.19. Модифицированные процедуры свойства Mandatory

Public Property Get Mandatory() As ReqOpt

Mandatory = m_Mandatory

End Property

Public Property Let Mandatory(ByVal New_Mandatory As ReqOpt)

m_Mandatory = New Mandatory

If m Mandatory = Required Then

Text1.Backcolor = m_MandatoryColor

Else

Text1.Backcolor = m_def_LeaveFocusColor

End If

PropertyChanged "Mandatory"

End Property

Когда свойство Mandatory установлено в True, элемент управления автоматически устанавливает свойство цвета фона равным значению свойства MandatoryValue.

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

TextBox. Код, расширяющий возможности элемента управления TextBox, расположен в событии LostFocus объекта UserControl. Когда пользователь убирает фокус с элемента управления CTextBox, код проверяет содержимое элемента управления и свойство Mandatory. Если элемент управления пуст и свойство Mandatory равно True, то цвет фона элемента управления TextBox устанавливается равным значению свойства MandatoryColor.

Программа 16.20. Обработчик события LostFocus объекта UserControl

Private Sub Textl_LostFocus ()

If Len(Trim(Textl.Text)) = 0 And m_Mandatory = Required Then

Text1.BackColor = m_MandatoryColor

Else

           Text1.BackColor = LeaveFocusColor

End  If

End Sub

Примечание

Обратите внимание, что код не инициирует событие

LostFocus. Хотя поведение элемента управления, когда он теряет фокус, определяется кодом, все же можно еще написать обработчик события LostFocus. Можно

использовать событие LostFocus, потому что это событие не может быть вызвано непосредственно самим элементом управления. Оно вызывается контейнером элемента управления (т.е. формой), и нельзя инициировать это событие из кода элемента управления. Таким образом, если даже в коде элемента управления отсутствует оператор RaiseEvent LostFocus (), обработчик события LostFocus все же можно запрограммировать. То же верно и для события GotFocus, которое также вызывается контейнером, а не элементом управления.


Элемент управления CTextBox имеет иную возможность: когда его активизируют, он изменяет цвет фона на значение свойства EnterFocusColor.

Private Sub Textl_GotFocus()

Text1.Backcolor = EnterFocusColor

End Sub

Если такое поведение вас не устраивает, то просто нужно присвоить свойству EnterFocusColor значение цвета фона элемента управления.

При конструировании элементов управления ActiveX используются как приемы разработки стандартных VB-приложений, так и приемы разработки компонентов ActiveX. Их свойства, методы и события обрабатываются точно так же, как и их дубликаты в компонентах ActiveX, а именно:

• свойства — это закрытые переменные, которые можно считывать или устанавливать через процедуры property;

• методы — это общедоступные подпрограммы;

•  события могут быть инициированы из любого места в коде элемента управления ActiveX с помощью метода RaiseEvent.

Видимый интерфейс элемента управления отображается на объекте UserControl, который подобен форме. Он поддерживает почти все свойства и методы формы, включая методы рисования. Отсутствуют какие-либо средства для загрузки и выгрузки UserControls, какие есть для форм, однако можно сделать элемент управления видимым или невидимым на этапе выполнения с помощью команд программного кода.

Код элемента управления сосредоточен в его ключевых событиях, таких как события Paint и Resize, и нет никакого отличия от кода, используемого при конструировании обычных приложений с подобными функциональными возможностями.

Ответственность за интеграцию элемента управления ActiveX в среду разработки лежит на Visual Basic. Свойства, добавляемые к элементу управления, автоматически отображаются в окне Properties, а синтаксис методов отображается по мере ввода кода (они включены в средство AutoList Members из Visual Basic). Процесс конструирования элемента управления ActiveX поразительно похож на процесс разработки стандартного приложения VB. Но в результате появляется "новое существо, которое может жить" в различных средах, включая Web-страницы, что будет показано в последней части этой книги.


Часть V. Программирование баз данных на Visual Basic

Глава 17. Программирование баз данных на Visual Basic

Глава 18. Элементы управления Active Data Object

Глава 17. Программирование баз данных на Visual Basic

• Базы данных и системы управления базами данных

• Концепция реляционных связей

• Использование Visual Data Manager

• Структура базы данных BIBLIO

• Проверка корректности данных

• Ввод данных

• Доступ к полям в наборах записей (RecordSet)

• Введение в SQL

• Использование усовершенствованных элементов управления, связанных с данными

• Отображение баз данных

Тема, которая слишком велика, чтобы поместиться в одной главе — это программирование баз данных. Эта глава озаглавлена именно так, но на самом деле является лишь введением в основные понятия программирования баз данных на Visual Basic. Она предназначена для тех, кто намерен создавать небольшие базы данных и уже знаком с другими системами управления базами данных, например, с системой dBase. Тем, кто знаком с программированием баз данных в других средах, информация, приведенная в этой главе, поможет освоиться в программировании баз данных на Visual Basic.

Примечание

В приложениях этой главы используются примеры баз данных BIBLIO и NWIND, которые входят в версию Professional Edition of Visual Basic. Имена баз данных жестко заданы во многих примерах. В частности, поиск баз данных осуществляется в заданной по умолчанию папке, создаваемой во время установки. Если Visual Basic установлен в другой папке, то необходимо изменить путь к базе данных, чтобы он соответствовал расположению базы в системе. Для этого необходимо изменить свойство DatabaseName в элементе управления Data (если приложение использует Data) или путь к базе данных в методе OpenDatabaseQ в исходном тексте программы (если приложение открывает базу данных непосредственно). Так как нельзя изменить эти установки в программах на CD, сначала скопируйте примеры приложений в папку на жестком диске, после чего их можно будет запускать и/или изменять.

Доработка существующих элементов управления

Имеется возможность разрабатывать пользовательские элементы управления ActiveX, которые расширяют возможности существующих элементов управления. Вряд ли найдется хоть один пользователь, который не хотел бы добавить "новые" возможности к существующим элементам управления. Многие программисты добавляют новые возможности к стандартным элементам управления ActiveX с помощью соответствующего кода в их приложении. Например, недостатком элемента управления ComboBoxt является то, что любые новые значения, добавляемые в поле ввода, не добавляются в список значений. Другими словами, элемент управления ComboBox позволяет ввести новое значение, но это значение автоматически не добавляется к списку значений. Многие программисты перехватывают нажатие клавиши ENTER в элементе управления ComboBox и вручную добавляют новые значения в список элемента управления.
Уверен, что каждый программист хотел бы добавить свое собственное небольшое усовершенствование к стандартному элементу управления VB. В этом разделе рассматривается, как доработать существующие элементы управления ActiveX и оформить их в виде заказных (специальных) элементов управления. Очевидно, что нельзя изменить базовые функции существующего элемента управления, поскольку нет никакого доступа к их коду. Но можно сделать очень многое, добавляя некоторый код и оформляя существующий элемент управления вместе с добавленным кодом как новый элемент управления.
В этом разделе будет показано, как можно доработать элемент управления TextBox. Заказной элемент управления CTextBox представляет собой обычный элемент TextBox, который изменяет свое поведение в зависимости от того, принимает ли он обязательное или необязательное поле.
На компакт-диске, в папке этой главы, можно найти проект CLDesign, который демонстрирует, как в режиме конструирования можно добавить к элементу управления дополнительные возможности для режима выполнения. Вы когда-либо пробовали задать значение элемента управления Scrollbar в режиме конструирования, двигая его бегунок? Большинство пробовали это, и результатом было перемещение всего элемента управления на форме. Значение элемента управления ScrollBar не может быть установлено визуально в режиме конструирования. Интересное расширение элемента управления ScrollBar может обеспечить механизм, который позволит разработчику определять, должен ли элемент управления перемещаться или должен функционировать так, как и во время выполнения, даже в том случае, если он находится в режиме конструирования. Проект CLDesign достаточно прост, и поэтому не будет обсуждаться в этой главе. Все то, что нужно знать для того, чтобы заставить элемент управления вести себя в режиме конструирования так же, как и в режиме выполнения - это свойство EditAtDesignTime объекта UserControl. Если установить это свойство равным True, команда будет добавлена к контекстному меню. Выполните щелчок правой кнопкой на элементе управления тестовой формы и выберите команду Edit. Элемент управления будет вести себя так, как будто он находится в режиме выполнения. Например, если он содержит элемент управления Scrollbar, то можно изменить значение элемента управления с помощью мыши. Элемент управления CLDesign, показанный на форме, изображенной на рис. 16.17, позволяет разработчику выбирать начальный цвет в режиме конструирования с помощью трех полос прокрутки.

Рис. 16.17. Проект CLDesign в режиме конструирования приложения ведет себя так же, как и в режиме выполнения

Доступ к информации о системе

API-функции, описываемые в этом разделе, позволяют организовать просмотр других выполняющихся программ непосредственно из VB-приложения и получить не только информацию о приложении, но и его родительском окне.

Доступ к папкам и файлам

В предыдущем параграфе рассмотрены методы объекта
FileSystemObject, которые позволяют обращаться к файлам на локальном диске. Объект FileSystemObject поддерживает много других методов для операций с файлами и папками, (позволяющими копировать и удалять файлы и папки), которые более интересны для программиста на VB, чем методы доступа к текстовым файлам. Хотя в Visual Basic имеются операторы и функции для доступа к файловой системе, но объект FileSystemObject предоставляет целостный, иерархический подход к файловой системе, поэтому рекомендуется использовать именно его.
Примечание
Только объект FileSystemObject позволяет обратиться к файловой системе из сценария.
CopyFile. Копирует один или более файлов из одной папки в другую. Он имеет следующий синтаксис.
FSys.CopyFile source, destination, overwrite
Аргумент
source - путь к файлу-источнику. Он может содержать и символы шаблона (для копирования нескольких файлов). Аргумент destination - путь к папке-приемнику, в которую копируются файлы. Он, что естественно, не может содержать символы шаблона. Последний аргумент — overwrite — необязателен и принимает булево значение (True/False) и определяет, будет ли существующий файл перезаписан. Метод CopyFile генерирует ошибку выполнения, если у файла-приемника установлен атрибут "только для чтения" независимо от значения аргумента overwrite. Свойство Attributes рассмотрено в примере обновления файла с установленным атрибутом "только для чтения".
CopyFolder.
Копирует папку, включая подпапки (это называется рекурсивным копированием). Синтаксис метода CopyFolder приведен ниже.
FSys.CopyFolder source, destination, overwrite
Здесь
source - путь к папке-источнику (из которой копируются файлы), может содержать символы шаблона при копировании группы файлов. Destination — путь к папке-приемнику (в которую копируются файлы) — не может содержать символы задания шаблона. Последний аргумент overwrite - необязателен и его значение (True/False) определяет, можно ли существующие файлы в папке перезаписывать. Чтобы защитить уже существующие файлы в папке-приемнике, установите его в False.

Для копирования всех Doc-файлов из папки MyDocuments в папку WorkDocs\Feb-ruary используйте оператор

FSys.CopyFolder "С:\MyDocuments\*.DOC", "С:\WorkDocs\February"

где

FSys - должным образом объявленная переменная FileSystemObject.

Предупреждение

Если встречается ошибка, то метод CopyFolder прерывает свою работу. Это значит, что некоторые файлы будут скопированы, а некоторые — нет.

DeleteFile. Удаляет один или несколько файлов. Имеет следующий синтаксис.

FSys.DeleteFile filespec, force

Здесь

filespec - имя файла (файлов) для удаления, которое может содержать символы шаблона. Аргумент force необязателен. Он определяет, будут ли удаляться (True) файлы с атрибутом "только для чтения", или нет (False). Подобно методу CopyFile, при обнаружении первой ошибки он останавливается.

DeleteFolder.

Удаляет заданную папку и ее содержимое, включая подпапки и их файлы. Его синтаксис идентичен DeleteFile.

FSys.DeleteFolder folderspec, force

Здесь

folderspec — имя папки для удаления. Папка будет удалена и в том случае, даже если она содержит файлы (сравните с командой RMDIR в DOS). Аргумент force имеет то же значение, что и в DeleteFile.

Movefile. Метод перемещает один или несколько файлов из одной папки в другую. Его синтаксис следующий.

FSys.MoveFile source, destination

Здесь

source - путь к перемещаемым файлам, a destination —

путь к папке, в которую будут перемещены файлы. Метод работает аналогично методу Сору, но файлы-источники после копирования удаляются. Аргумент source может содержать символы шаблона для перемещения групп файлов, destination — это имя файла или имя папки (в случае перемещения в определенную папку). Если копируется несколько файлов, то destination -

это путь к папке, в которую перемещаются файлы. Если destination задает уже существующее имя файла или папки, то происходит ошибка.

MoveFolder. Этот метод перемещает папку в другое место. Его синтаксис:

FSys.MoveFolder source, destination

где

source и destination - спецификации папки-источника и папки-приемника.


FileExist, FolderExists.

Эти методы возвращают значение True, если указанный файл или папка существует. Используются для проверки наличия папки или файла перед попыткой их использования в сценарии. Их синтаксис следующий.

FSys.FileExists(fileSpec)

и

FSys.FolderExists(folderSpec)

GetFile, GetFolder.

Эти методы возвращают соответственно объект File и Folder, которые представляют заданный файл или папку.

Примечание

Метод GetFile не возвращает файл или имя файла: он возвращает ссылку, обеспечивающую доступ к свойствам файла. Объекты File и Folder рассмотрены далее в этой главе.

Чтобы с помощью метода GetFile создать объектную переменную типа File, необходимо создать объектную переменную типа FileSystemObject, а затем вызвать ее метод GetFile.

Set thisFile = FSys.GetFile ("с:\autoexec.bat")

Переменная

thisFile представляет файл AUTOEXEC.BAT, и можно использовать ее свойства и методы для манипулирования файлом. Например, можно использовать ее свойство Size для определения размера файла, свойство DataCreated для определения даты создания и т.д. Свойства и методы объекта File приведены в параграфе "Объект File".

Метод GetFolder полностью аналогичен GetFile, за исключением того, что он возвращает объект Folder. Аргумент метода GetFolder должен быть абсолютным или относительным путем:

Set thisFolder = FSys.GetFolder("с:\windows\desktop")

Здесь переменная thisFolder

представляет Рабочий стол. Ее свойства и методы можно использовать для управления папками Рабочего стола. Свойство Size можно использовать для определения размера папки (включая подпапки), свойство DateCreated — для определения даты создания папки и т.д. Методы и свойства объекта Folder рассмотрены далее в этой главе.

GetFileName. Этот метод возвращает последний компонент заданного пути, который является именем файла с расширением. Для получения имени файла метод обычно вызывается с объектом типа File в качестве аргумента. Без метода GetFileName пришлось бы разрабатывать специальную функцию для выделения имени файла из полной спецификации пути.

Примечание

Метод GetFileName обрабатывает свой аргумент независимо от того, существует ли заданный путь.

Доступ к полям в объектах

RecordSet
Связанные с данными элементы управления могут отображать поля текущей записи в объекте RecordSet элемента управления Data, но необходимо также обращаться к значениям полей из кода программ. К полям можно обращаться через объект Field набора записей RecordSet. Следующее выражение задает поля (столбцы) набора записей RecordSet.
recordset.Fields
Переменная recordset представляет собой объект RecordSet (это может быть свойство RecordSet элемента Data, например, Data I. RecordSet или переменная с именем RecordSet).
Обращайтесь к отдельным полям по имени поля или его порядковому номеру в таблице Если элемент управления Data с именем Datal связан с таблицей Titles базы данных BIBLIO, то можно обращаться к полю Title текущей записи с помощью любого из следующих операторов.
bookTitle = Datal.Recordset.Fields(0)
bookTitle = Datal.Recordset.Fields ("Title")
Другие два свойства, представляющие интерес - это свойство RecordCount объекта RecordSet (возвращает число записей в RecordSet) и свойство Count объекта Fields (возвращает число полей в строке RecordSet). Эти два свойства фактически являются размерами объекта RecordSet.. Число записей в RecordSet элемента Datal определяет строка
Datal.RecordSet.RecordCount
а число столбцов в этом же RecordSet — следующая строка:
Datal.RecordSet.Fields.Count
VB6 в действии: просмотр RecordSet
Разработаем небольшое приложение, демонстрирующее, как можно просматривать записи в наборе RecordSet и обрабатывать их поля. Обработка довольно тривиальна: помещение строк объекта RecordSet в элемент управления ListBox. Программа демонстрирует, как просматривать RecordSet и извлекать конкретные поля.
Чтобы создать это приложение, выполните следующие действия.
1. Откройте новый проект и поместите элементы управления ListBox и Data на форму (рис. 17.14).
2. Установите свойство Visible элемента управления Data в False. Нельзя использовать элемент управления Data для перемещения по RecordSet после того, как все записи отображены в элементе управления ListBox.

3. Установите свойства DatabaseName и RecordSource элемента управления Data на любую таблицу базы данных BIBLIO или NWIND.



Рис. 17.14. Приложение загружает поля RecordSet в элемент управления ListBox

4. Теперь введите следующий код в событие Load формы.

Private Sub Form_Load()

Dim i As Integer

Data1.Refresh

Data1.Recordset.MoveLast

Data1.Recordset.MoveFirst

For i = 1 To Data1.Recordset.RecordCount

List1.AddItem Data1.Recordset.Fields(1)

Data1.Recordset.MoveNext

Next

End Sub

Совет

При запуске этого приложения элемент управления ListBox заполняется значениями из второго поля таблицы. Этот код предназначен для использования в больших приложениях. В параграфе " Усовершенствованные элементы управления, связанные с данными" рассмотрен связанный с данными элемент управления ListBox, заполняющийся автоматически. Метод Refresh вызывается перед использованием свойств элемента управления Data и заставляет элемент управления Data читать RecordSet из базы данных. Когда объект RecordSet только создан или обновлен, ему не известно, сколько в нем записей. Несомненным является наличие только одной записи — первой. Если пользователь щелкает на кнопке Next, то RecordSet считает, что содержит две записи, потому другие еще не видны. Чтобы узнать общее количество записей, необходимо перейти на последнюю запись с помощью метода MoveLast. После вызова этого метода для определения числа строк в RecordSet используется свойство RecordCount.

Seek. Можно немедленно найти запись в таблице на основании значения индексного поля с помощью метода Seek объекта RecordSet. Этот метод чрезвычайно быстр, потому что использует индекс таблицы и ищет записи в отсортированном списке. Метод имеет следующий синтаксис.

Seek operator, key

     Параметр

operator- одна из следующих операций сравнения:

•   = (равно)

•   > (больше чем)

•   < (меньше чем)

•   >= (больше или равно)

•   <= (меньше или равно)

Параметр

key (ключ) - значение, сравниваемое с ключевым полем индекса. Если индекс создан на основе одного поля, то key —


одиночное значение, если на основе нескольких полей, то параметр key содержит несколько значений, разделенных запятыми.

Например, если таблица Customers проиндексирована по полю State (Штат), то следующий вызов позволяет найти первого заказчика в Калифорнии.

Datal.Recordset.Seek "=" , "СА"

Метод Seek быстрее, чем метод Find, но менее гибкий. Если приходится часто производить поиск записей на основании значения определенного поля, то необходимо по этому полю создать индекс и использовать метод Seek. Для выполнения поиска всех типов, включающих несколько полей и оператор LIKE, можно использовать метод Find, но он выполняется не так быстро, как метод Seek.

VB6 в действии: проект ManyTbIs

Приложение ManyTbIs (проект с несколькими таблицами) демонстрирует использование метода Seek для быстрого поиска записей с помощью первичных ключей (рис. 17.15). Это приложение объединяет все таблицы в базе данных BIBLIO, чтобы отобразить названия книг вместе с именами авторов, издателей и сопутствующей информацией (комментарии и описания).



Рис. 17.15. Приложение ManyTbIs: названия всех книг, имена авторов и издателей содержатся в различных таблицах базе данных BIBLIO

Примечание

Читатели, которые уже знакомы с SQL, поймут, что это приложение может быть реализовано без использования метода Seek. По сути, можно написать единственную строку кода, содержащую SQL-запрос. Этот пример предназначен только для демонстрации использования метода Seek. Далее в этой главе приложение ManyTbIs будет модифицировано, и вы увидите, как его реализовать с помощью одного SQL-запроса.

При перемещении по названиям книг (с помощью соответствующих кнопок элемента управления Data таблицы Titles) программа отображает соответствующий заголовок книги в первом текстовом поле формы и поля Comments и Subject в соответствующих им текстовых полях. Эти текстовые поля непосредственно связаны с элементом управления Data формы.

Чтобы отображать сведения об издателе, приложение использует поле PubID (ID издателя) таблицы Titles, как ключ к таблице Publishers (Издатели), в которой оно находит (с помощью метода Seek) запись с таким же значением PubID.


Для отображения имени автора приложение использует поле ISBN, чтобы найти соответствующую запись в таблице Title Author (Авторы книги). Когда эта запись найдена, для поиска имени автора программа использует поле AuID как ключ к таблице Authors (Авторы).

Код для выполнения этих действий находится в обработчике события Reposition (перемещение) элемента управления Data, которое вызывается каждый раз, когда пользователь нажимает одну из кнопок перемещения для перехода на другую запись в таблице Titles. Приложение использует все четыре таблицы базы данных, следовательно, ему необходимы и четыре объекта RecordSet — по одному на каждую таблицу. Форма приложения во время проектирования содержит четыре элемента управления Data, но только один из них видим во время выполнения приложения (рис. 17.16).



Рис. 17.16. Приложение ManyTbIs в процессе проектирования

Для разработки приложения ManyTbIs выполните следующие действия.

1. Создайте новый проект и поместите элементы управления Label и TextBox так, как изображено на рис. 17.16.

2. Поместите на форму и четыре элемента управления Data: TITLES, PUBLISHERS, AuthorISBN и Authors. Задайте в их свойствах DatabaseName путь к базе данных BIBLIO.

3. Каждый элемент управления Data должен видеть свою таблицу базы данных, так что обязательно установите свойство RecordSource каждого элемента управления Data, как показано в табл. 17.10.

Таблица 17.10. Значения свойства

RecordSource элементов управления Data на форме ManyTbIs

Имя элемента управления Data	Значение свойства RecordSource
TITLES	Titles
PUBLISHERS	Publishers
AUTHORISBN	Title Author
AUTHORS	Authors

4. Теперь свяжите текстовые поля с соответствующими полями элементов управления Data.

•  Свяжите текстовое поле, в котором отображается название книги, с полем Title элемента управления Data с именем TITLES.

•  Свяжите текстовое поле, в котором отображается имя издателя, с полем Publisher элемента управления Data с именем PUBLISHERS.


•  Свяжите текстовое поле, в котором отображается имя автора, с полем Author элемента управления Data с именем AUTHORS.

Свяжите остальные текстовые поля с соответствующими полями элемента управления Data. Можно открыть приложение ManyTbIs в среде разработки Visual Basic и посмотреть, как различные элементы управления, связанные с данными, подключены к элементам управления Data. На этом этапе можно объединять любое название книги с любым автором и любым издателем, потому что все три элемента управления Data не соединены и могут быть размещены как угодно в соответствующих таблицах.

Для соединения элементов управления применим метод

Seek элемента управления Data, поэтому необходимо использовать первичные индексы таблиц. Выполняться это должно при загрузке формы.

5. Введите следующий код в обработчик события Load формы.

Private Sub Form Load ()

PUBLISHERS.Refresh

AUTHORISBN.Refresh

AUTHORS.Refresh

PUBLISHERS.Recordset.Index = "PrimaryKey"

AUTHORISBN.Recordset.Index = "ISBN"

AUTHORS.Recordset.Index = "PrimaryKey"

End Sub

Чтобы открыть индексный файл для таблицы объекта

RecordSet типа Table, необходимо назначить имя индекса свойству Index объекта RecordSet. Когда свойству Index назначено значение, то все вызовы Seek по отношению к RecordSet используют этот индекс

6. Введите следующий код в обработчик события Reposition элемента управления Data с именем TITLES

Private Sub TITLES_Reposition()

PUBLISHERS.Recordset.Seek "=",

TITLES.Recordset.Fields ("PubID")

If PUBLISHERS.Recordset.NoMatch Then

lblPublisher.Caption = "***"

AUTHORISBN.Recordset.Seek "=", _

TITLES.Recordset.Fields ("ISBN")

If AUTHORISBN.Recordset.NoMatch Then

lblAuthor.Caption = "***"

Exit Sub

End If

AUTHORS.Recordset.Seek " ", _

AUTHORISBN.Recordset.Fields ("Au_ID")

End Sub

Каждый раз, когда пользователь изменяет позицию элемента управления Data в объекте RecordSet, программа выполняет следующее.


1. Использует метод Seek для PUBLISHERS RecordSet, чтобы найти запись, у которой поле PubID соответствует полю PubID отображаемого названия книги.

2. Если такой записи нет, то она печатает звездочки в текстовом поле, в котором могло бы быть имя издателя. Если соответствующая запись найдена, программа ничего не выполняет. Метод Seek помещает элемент управления PUBLISHERS Data на строку таблицы Publishers с именем издателя, соответствующим названию книги. Соответствующее текстовое поле, связанное с данными, обновляется автоматически.

3. Затем программа находит запись таблицы Title Author, у которой поле ISBN равно ISBN текущей книги. Если подобная запись не существует - печатаются звездочки и происходит выход из подпрограммы. Если запись найдена, то ее поле AuID становится ключом для последней операции установки, находящей запись в таблице AUTHORS, у которой поле AuID соответствует полю AuID в таблице Title Authors.

Метод Seek быстр поля на форме обновляются немедленно. Даже с большими файлами этот подход работает хорошо и не приводит к значительным задержкам. Обратите внимание можно искать записи в RecordSet на основании более чем одного индекса. Каждый вызов Seek выполняется с определенным индексом, но можно изменять текущий индекс, устанавливая другое значение свойства Index объекта RecordSet.

Формат SQL-операторов

Существуют SQL-операторы для всех типов операций, которые можно выполнять с базой данных. SQL-операторы используются для создания новой базы данных и добавления в нее таблиц и индексов. Можно использовать SQL-операторы для обновления базы данных. SQL - функционально полный язык для управления базами данных, но наиболее часто он используется для выборки данных из базы. Выборка данных из базы называется запросом к базе данных, а SQL-операторы для осуществления запросов к базе данных называются командами выбора (Select-statements), потому что они содержат глагол SELECT (Выбирать).
Общий формат команд выбора следующий. SELECT (список полей) FROM (список таблиц) WHERE (выражение).
Примечание
Ключевые слова SQL в книге печатаются прописными буквами, но SQL не чувствителен к регистру. Использование верхнего регистра — вопрос стиля. Это помогает читателям, которые не знакомы с SQL, находить ключевые слова и лучше понимать его сложные элементы.
(список полей)
Эта часть команды SQL — список полей, разделенных запятыми, которые будут включены в запрос. Если имя элемента (поля или таблицы) содержит пробел, необходимо заключить его в квадратные скобки ([ ]) Например, чтобы включить в запрос поле Customer Name (Имя заказчика), нужно ввести [Customer Name].
Полное имя каждого поля предваряется именем таблицы, которой оно принадлежит Эта запись обеспечивает уникальность имен полей, даже если несколько таблиц имеют поля с одинаковыми именами. Например, полное имя поля Total (Итог) в таблице Customer Orders (Счета заказчика) — [Customer Orders] Total. Если имя поля Total не появляется ни в какой другой таблице, то имя таблицы можно опустить и обратиться к этому полю как Total.
Результат выполнения запроса Select содержит записи таблицы, соответствующие критериям, и строку заголовков. Заголовки — это имена полей, задаваемые при проектировании базы данных. При отображении результатов запроса с помощью связанного с данными элемента управления Grid (Сетка) в качестве заголовков отображаются имена полей. Чтобы изменить заголовки, используйте ключевое слово AS после имени поля. Это удобно, когда для имени поля таблицы возникает неоднозначность в контексте запроса, содержащего несколько таблиц с совпадающими именами в различных таблицах. Например, если имеется поле Total в таблице Customer Orders, то можно отобразить заголовок Order Total этого поля следующим образом.

[Customer Orders].[Total] AS [Order Total]

Чтобы выбрать все поля в таблице, используйте звездочку (*) вместо пере числения имен всех полей. Например, следующая команда выбирает все поля в таблице Orders: SELECT * FROM Orders

(список таблиц)

Эта часть команды — список всех таблиц, на которых основан запрос. Чтобы выбрать поля из нескольких таблиц, разделите имена полей запятыми. Если SQL-запрос основан более чем на одной таблице, было бы неплохо перед именами полей добавить имена таблиц, которым поля принадлежат.

При выборе полей из нескольких таблиц необходимо указать, как связать таблицы. Если вы укажете только имена таблиц, то результат запроса будет содержать все возможные комбинации полей в каждой таблице. Чтобы связать поля в нескольких таблицах, создайте, так называемое, объединение (join), являющееся фундаментальным понятием в командах выбора SQL.

(выражение)

Эта часть команды — логическое выражение, использующееся для отбора данных и возвращающее объект RecordSet. Для формирования этого выражения можно использовать большинство встроенных функции и операторов Visual Basic, а также следующие SQL-операторы.

field_name BETWEEN value1 AND value2

- возвращаются только строки, в которых поле field_name имеет значение в диапазоне от valuel до value2 (пример см в параграфе "#date#")

field_name IN (valuel, value2, ...) - возвращаются только те строки, в которых поле field_name совпадает с одним из значений в круглых скобках. Внутри скобок задается любое число элементов. Следующая команда возвращает записи для заказчиков из определенных городов.

SELECT Customers.CompanyName, Customers.ContactTitle,

Customers.City, Customers.Country FROM Customers WHERE

UCase(customers.city) IN ("BERLIN", "LONDON", "BERN", "PARIS")

ORDER BY Customers.Country

#date# Этот оператор определяет даты внутри выражения по американской системе месяц/день/год. Например, следующая SQL-команда возвращает из базы данных NWIND все заказы, произведенные в 1994 году.


SELECT Orders.ShipName, Orders.OrderDate, Orders.CustomerID

FROM Orders WHERE OrderDate BETWEEN #1/1/94# AND #12/31/94#



LIKE Этот оператор - один из наиболее мощных и сложных в SQL. Он предназначен для выбора строк по шаблону. Для формирования выражения используются специальные символы, перечисленные в табл. 17.11.

Таблица 17.11. Специальные символы, используемые в операторе LIKE

Символ	Пояснение	Пример
*	Любая группа символов	Joh* определяет John, Johnson и John's
?	Любая одиночная буква	?t определяет at и it
#	Любая одиночная цифра	1234#67 определяет 1234167, 1234267, 1234367, 1234467 и т.д.
[]	Один символ из заключенных в скобки	[ai]t определяет at и it, но не bt
[!]	Любой символ не из скобок	[!a]t определяет it, но не at
[-]	Любой символ из диапазона	[i-k]t определяет it, jt, и kt, но не at или st

ORDER BY (field list). Этот оператор упорядочивает строки RecordSet по значениям указанных полей. Следующий SQL-оператор создает RecordSet с именами всех заказчиков из таблицы Customers базы данных NWIND, отсортированными по стране. Имена заказчиков из одной страны сортируются по названиям их городов.

SELECT Customers.CompanyName, Customers.ContactName,

Customers.Country, Customers.City FROM Customers

ORDER BY Customers.Country, Customers.City

(В этой команде можно не указывать имя таблицы перед именами полей.) Результаты работы команды показаны ниже.

Формы и элементы управления

HTML-страницы содержат элементы управления, которые позволяют пользователю вводить информацию. Это обычные элементы управления
Windows:
текстовые поля ввода, переключатели и т.п. Области HTML-страницы, в которых появляются эти элементы управления, называются формами, а сами элементы управления - встроенными (intrinsic) элементами управления. HTML предлагает специальные теги для размещения встроенных элементов управления на форме.
Примечание
Кроме встроенных элементов управления, на формах можно разместить элементы управления ActiveX. Так как элементы управления ActiveX загружаются на компьютер клиента, а большинство пользователей не желает их инсталлировать на своей системе, эта тема подробно не рассматривается.
Прежде чем разместить элементы управления на странице, создайте форму тегом

. Синтаксис его таков:

Все элементы управления помещаются между двумя тегами. Атрибут NAME (не обязательный) — имя формы. Он используется, если страница содержит несколько форм Атрибут ACTION — имя приложения на сервере, вызванного для обработки информации. Атрибут METHOD определяет, как значения элементов управления передаются на сервер. Информация, необходимая броузеру для установления контакта с приложением на сервере, содержится в теге

.
Перечислим элементы управления, поддерживаемые HTML. На рис. 19.7 показана Web-страница с формой, содержащей большинство встроенных элементов управления HTML. HTML-код для этой страницы приведен в параграфе "Web-страница FORM.HTW
Элемент управления TEXT
Элемент управления Text - это поле, в которое пользователь вводит текстовую строку (название, адрес и т.п.). Чтобы вставить элемент управления Text на форму, используется следующий тег.

Атрибут VALUE задает начальное значение. После ввода значения пользователем VALUE будет содержать новую строку. Для редактирования содержимого элемента управления Text используются общие клавиши редактирования (Home, Del, Insert и т д.), но отформатировать текст нельзя.

Для управления размерами элемента и объемом его содержимого используются атрибуты SIZE и MAXLENGTH. Атрибут SIZE устанавливает размер элемента управления на форме как количество символов, атрибут MAXLENGTH - максимальное количество символов, которое пользователь может вводить в элемент управления. Разновидностью элемента управления Text является идентичный ему элемент управления Password, но он не отображает введенные символы в том виде, как они вводятся с клавиатуры. Он отображает звездочки и используется для введения паролей.

Рис. 19.7. Форма, содержащая все встроенные элементы управления HTML

Элемент управления TextArea

Элемент управления TextArea аналогичен элементу управления Text, но позволяет вводить несколько текстовых строк. С элементом управления TextArea работают все обычные клавиши редактирования. Для размещения элемента управления TextArea на форме используется тег .<br><br> <TEXTAREA NAME = "Comments" ROWS = 10 COLS = 30> <br><br> The best editor I've ever used! <br><br>

Поскольку элемент управления TextArea позволяет задать несколько строк исходного текста, он вставляется не обычным тегом , а парой тегов . Атрибуты ROWS и COLS задают размерность элемента управления на странице, указывая количество символов. Следует заметить: символ прерывания строки между двумя тегами <TEXTAREA> сохраняется и при отображении текста в элементе управления. Если включить теги HTML в исходный текст, то они появятся в виде текста в элементе управления.<br><br> <b>Элемент управления CheckBox</b><br><br> Элемент управления CheckBox — флажок работающий как кнопка. Каждый раз когда пользователь на нем щелкает его состояние изменяется. Этот элемент управления используется для задания списка опций из которого пользователь выбирает один или больше элементов. Для добавления на форму элемента управления CheckBox используется следующий тег <INPUT>.<br><br> <INPUT TYPE = CHECKBOX NAME = "Checkl"><br><br> Чтобы начать проверку элемента управления CheckBox, необходимо задать атрибут CHECKED тега <INPUT>. Элемент управления принимает значение 0 или 1 в зависимости от того установлен ли флажок.<br><br> <br> <b>Элемент управления RadioButton</b><br><br> Элемент управления RadioButton  переключатель — используется для задания списка опции подобно элементу управления CheckBox, но при этом может быть выбран только один из элементов списка. Каждый раз когда посетитель выбирает новую опцию, предыдущая отменяется. Чтобы поместить этот элемент управления на форму используется следующее выражение.<br><br> <INPUT TYPE = RADIO NAME = "Radio1"><br><br> Если каждый элемент управления CheckBox имеет уникальное имя, то группа элементов RadioButton должна иметь общее имя. Это позволяет броузеру определить, сколько элементов управления RadioButton входит в одну группу, и какой элемент установлен. Чтобы определить какой из элементов группы будет устанавливаться первым (по умолчанию) используется атрибут CHECKED. Следующие строки помещают на форму группу из четырех элементов управления RadioButton.<br><br> <INPUT TYPE = RADIO NAME = "Level">Beginner<br><br> <INPUT TYPE = RADIO NAME = "Level">Intermediate<BR> <br><br> <INPUT TYPE = RADIO NAME = "Level" CHECKED>Advanced<BR> <br><br> <INPUT TYPE = RADIO NAME = "Level">Expert<br><br> <b>Элемент управления Multiple Selection</b><br><br> Элемент управления Multiple Selection является списком из нескольких пунктов. Пользователь может ничего не выбрать или выбрать один или несколько пунктов из списка. Список ограничен парой тегов <SELECT>. Каждый элемент списка вставляется отдельным тегом <ОРTIOМ>. Для размещения на форме списка Multiple Selection введите следующие строки.<br><br> <SELECT NAME = "MemoryOptions" SIZE = 3 MULTIPLE = multiple> <br><br> <OPTIONAL VALUE = 16> 16 MB </OPTION> <br><br> <OPTIONAL VALUE = 32> 32 MB </OPTION> <br><br> <OPTIONAL VALUE = 64> 64 MB </OPTION> <br><br> <OPTIONAL VALUE = 128> 128 MB </OPTION> <br><br> <OPTIONAL VALUE = 256> 256 MB </OPTION> <br><br> </SELECT><br><br> Атрибут SIZE задает количество видимых строк. Если его пропустить, то список будет представлен одной строкой а посетителю придется использовать клавиши управления курсором, чтобы просмотреть доступные пункты. Если список содержит больше одной строки то вертикальная панель прокрутки автоматически предоставляет помощь посетителю в выборе искомого элемента. Атрибут MULTIPLE указывает, может ли пользователь выбрать несколько пунктов списка, удерживая нажатой клавишу Shift или Ctrl и одновременно щелкая на названиях нужных пунктов. Если пропустить этот атрибут, то при выборе нового элемента предыдущий выбор отменяется.<br><br> <br> У тега <OPTION> есть атрибут VALUE, который задает значение выбранного элемента. Если в предыдущем списке пользователь выбирает пункт 64 MB, то значение 64 передается на сервер. Наконец, для начального выбора одной или более опций задается атрибут SELECTED.<br><br> <OPTION SELECTED VALUE=128> 128 MB</OPTION><br><br> <b>Элемент управления Command Button</b><br><br> Щелчок на этом элементе управления инициирует определенные действия. Без VBScript кнопки Command выполняют только два действия.<br><br> •  Передают данные, введенные в элементах управления, на сервер.<br><br> • Сбрасывают значения элементов управления формы в исходное состояние.<br><br> Используя VBScript, кнопки Command выполняют любые действия, программируемые на страницах. На форме можно разместить кнопки трех типов" Submit (Передача), Reset (Сброс) и General (Общая).<br><br> Наиболее важной кнопкой является Submit. Она пересылает содержимое всех элементов управления формы на сервер (значения обрабатываются приложением, URL которого задается атрибутом ACTION тега <FORM>). Кнопка Reset сбрасывает значения элементов управления формы в исходные. Она не передает никаких значений на сервер. Большинство форм содержит кнопки Submit<br><br> и Reset, которые вставляются следующим образом.<br><br> <INPUT TYPE =<br><br> SUBMIT VALUE = "Send data"> <br><br> <INPUT TYPE = RESET VALUE = "Reset Values"><br><br> Атрибут VALUE задает надпись, которая появится на кнопке. Кнопка Submit считывает имя приложения на сервере, с которым необходимо установить связь (атрибут ACTION тега <FORM>), применяет значения элементов управления к этому URL и выполняет передачу на сервер.<br><br> Третья кнопка — общего типа, ее тип — просто BUTTON, а функции такие же, как и у других кнопок интерфейса Windows. Нажатие этой кнопки инициирует событие, использующееся для выполнения некоторого VBScript-кода. Чтобы поместить этот элемент управления на форму, используется тег <INPUT>.<br><br> <INPUT TYPE = BUTTON NAME = "ShowDate"><br><br> После каждого нажатия этой кнопки на выполнение запускается обработчик события ShowDate_onClick. Его код приведен ниже.<br><br> <br> Sub ShowDate_on Click()<br><br> MsgBox "The date is "& Date () <br><br> End Sub<br><br> Совет<br><br> He следует использовать кнопку Submit для проверки допустимости данных на компьютере клиента, потому что при ее нажатии данные просто передаются на сервер. Вместо этого для запуска подпрограммы проверки допустимости данных используется элемент управления Button. Затем с помощью метода Submit они передаются на сервер.<br><br> Обычно кнопка Command проверяет допустимость введенных пользователем данных, а потом передает содержимое формы в ASP-приложение на сервер. Это кнопка общего типа, она создается и размещается на форме следующим образом.<br><br> <INPUT TYPE = BUTTON NAME = SendData VALUE = "Register Now"><br><br> <b>Программа 19.1.</b> Обработчик события Click кнопки SendData<br><br> <SCRIPT LANGUAGE = VBScript> <br><br> Sub SendData_onClick()<br><br> If Instr("@", Email.Value)=0 Then<br><br> MsgBox "Invalid e-mail address. "& chr(13)& _<br><br>   "Please enter a string like_ <br><br> yourname@yourserver.com" <br><br> Else If RealName.Value = " " Then<br><br> MsgBox "You can't register without a name" <br><br> Else<br><br> RegistrationForm.Submit <br><br> End If <br><br> End Sub <br><br> </SCRIPT><br><br> Этот сценарий запускается при нажатии кнопки<br><br> SendData. Сначала он проверяет содержимое элемента управления EMail. Если адрес задан не в форме name@server.com, то пользователю предлагается ввести правильный e-mail адрес. Затем проверяется значение элемента управления RealName.<br><br> Если пользователь не ввел имя, выдается приглашение на ввод. Если обе проверки в структуре If завершаются неудачно, то сценарий пересылает данные других элементов управления (форма содержит другие элементы управления) с помощью метода Submit. Метод Submit формы эквивалентен кнопке Submit. В обоих случаях броузер устанавливает связь с приложением заданным атрибутом ACTION тега <FORM> и передает ему значения элементов управления как параметры. Например, такую строку:<br><br> http://www.servername.com/Register.asp?EMail=EP@SYBEX.COM&Name=Evangelos+P<br><br>EMail и Name — это имена параметров, ожидаемых приложением Register.asp на сервере (далее показано, как написать приложение, которое извлекает данные, переданные клиентом, и обрабатывает их на сервере). Значения этих параметров могут быть любыми. Обратите внимание: строка не заключается в кавычки, а пробелы заменены знаком "+".<br><br><br> <h1>Формы и окна</h1> В этом параграфе описываются 32-х разрядные API-функции Windows, расширяющие возможности Visual Basic при создании форм, окон и меню Используя эти функции, можно создавать элементы меню, содержащие растровые изображения и динамически изменять объекты меню. Вы узнаете, как отслеживать перемещение мыши и манипулировать окнами других активных приложении, размещенных на рабочем столе.<br><br> <br><br> <h1>Функции доступа к системной базе данных</h1> Registry<br> Registry Windows 95/98 - это иерархическая база данных (часто называемая реестром),<br> содержащая информацию об установках Windows. В нее входит информация о пользователях, о конфигурации аппаратных средств системы и прикладных программах. Registry заменила INI-файлы (использовавшиеся в предыдущих версиях Windows), которые предназначались для хранения информации в перерывах между сеансами работы.<br> Для доступа к Registry воспользуйтесь программой Regedit. Для ее запуска выполните следующие действия.<br> 1. Выберите команду Run в меню Start (команда Выполнить в меню Пуск).<br> 2. В окне Run (Пуск) наберите regedit и нажмите клавишу Enter, чтобы открыть окно Registry Editor, показанное на рис. 13.9.<br> Если выполнить двойной щелчок на одном из объектов в главном окне Regedit, то данные, записанные в Registry, появятся на экране в виде древовидной структуры. Объект самого верхнего уровня обычно называют Registry key<br> (раздел базы данных), а находящиеся в нем объекты нижнего уровня - подразделами Registry включает следующие разделы.<br> <b>• HKEY_CLASSES_ROOT</b> хранит информацию о зарегистрированных расширениях и файловых ассоциациях, данные OLE.<br> <b>• HKEY_CURRENT_USER</b> относится к текущему пользователю Если он единственный, то содержание этого раздела полностью совпадает с подразделом HKEY_USERS.<br> <b>• HKEY_LOCAL_MACHINE</b> хранит информацию о конфигурации аппаратных средств, установленных на компьютере Подразделы HKEY_LOCAL_MACHINE.<br> <b>• HKEY_USERS</b> содержит информацию о конфигурации рабочего стола, параметры сети и другие сведения об отдельных пользователях, которые могут регистрироваться на данном компьютере<br> <b>• HKEY_CURRENT_CONFIG</b> содержит информацию об установленных шрифтах и принтерах.<br> <b>• HKEY_DYN_DATA</b> хранит сведения о производительности компьютера. После старта системы они загружаются в оперативную память и могут там динамически изменяться.<br> <div style="text-align:center;"><img src="image/funkcii-dostupa-k-sistemnoj-baze-dannyh_1.gif" alt="Функции доступа к системной базе данных"></div><br> <b>Рис. 13.9.</b> Главное окно Registry Editor<br> Предупреждение<br> Следует предельно аккуратно обращаться с информацией, расположенной в реестре. Повреждение нескольких объектов, находящихся в нем, может привести к прекращению работы системы вплоть до невозможности загрузки. Прежде чем выполнять какие-либо действия с содержимым реестра, пользуясь средствами Visual Basic, убедитесь, что сделаны резервные копии файлов SYSTEM.DAT и USER.DAT. С их помощью всегда можно восстановить исходное состояние базы данных Registry. Прежде чем выполнять с ним какие-либо действия, следует обратиться к Windows по вопросам процедур резервного копирования и восстановления. Лучше всего начинать с использования функций, встроенных в Visual Basic, которые являются вполне "безопасными" (они описаны в Приложении А на компакт-диске), а затем переходить к использованию API-функции.<br> <br> Можно воспользоваться Regedit, чтобы выяснить, какого типа информация требуется определенным приложениям. Относительно безопасно использовать Registry для хранения информации о приложении. Например, можно сохранить информацию об инициализации приложения, чтобы при следующем запуске можно было просмотреть информацию об установках предыдущего сеанса работы. Список недавно открывавшихся файлов, которые можно найти почти в каждом приложении Windows, хранится в Registry. Манипулируя содержимым реестра, следует внимательно следить за тем, чтобы не изменить информацию о других приложениях. Изменяйте информацию, имеющую отношение только к вашим собственным приложениям.<br><br> Работа с реестром заслуживает того, чтобы надолго на ней остановиться. В этом параграфе будет рассмотрена процедура создания новой ветви в базе данных Registry для сохранения информации, которую приложение считывает. Это несложная процедура, полезная для всех, кто работает с Registry.<br><br> <b>VB6 в действии: проект Registry</b><br><br> Приложение Registry позволяет продемонстрировать процесс создания разделов в реестре Windows (Registry), записи соответствующих значений и получения данных из него. В приложении создаются три подраздела HKEY_LOCAL_ MACHINE, в которых хранятся размеры формы, запущенной при предыдущем сеансе работы:<br><br> •  \Sybex\Mastering<b> </b>VB 6.0<br><br> • Window Width (Ширина Окна)<br><br> • Window Height (Высота Окна)<br><br> В программе (рис. 13.10) используются подразделы<br><br> Window Width (Ширина Окна) и Window Height (Высота Окна) для хранения ширины и высоты окна (данные записываются приложением Registry).<br><br> <div style="text-align:center;"><img src="image/funkcii-dostupa-k-sistemnoj-baze-dannyh_2.gif" alt="Функции доступа к системной базе данных"></div><br><br> <b>Рис. 13.10.</b> Программа Registry запоминает размеры формы, установленные во время предыдущего сеанса работы<br><br> Когда программа запускается, она пытается получить значения, хранящиеся в подразделах Window Width и Window Height с помощью функции RegQueryValue Ex(). Если эти подразделы содержат значения, то программа просто получает их и устанавливает, соответственно, ширину и высоту окна. Если эти подразделы не содержат значений, значит, в Registry нет соответствующих элементов. Затем программа устанавливает высоту и ширину текущего окна и сохраняет эту информацию в реестре с помощью функции RegSet Value Ех(). Функция RegCreateKeyO позволяет создать определенный элемент реестра. Если такой элемент существует, то функция открывает к нему доступ.<br><br> <br> Если размеры окна изменяются пользователем, программа сохраняет новые значения высоты и ширины окна в реестре с помощью метода<br><br> QueryUnload. При последующем запуске программы окно будет иметь именно эти размеры. Таким образом, можно организовать сохранение установок инициализации программы в реестре, а затем получать их при запуске приложения. Чтобы проверить проект Registry, закройте форму щелчком на кнопке Close. Если работа приложения завершена с помощью команды End меню Run (команда Закончить в меню Выполнить) в IDE-среде Visual Basic, то событие QueryUnload не вызывается.<br><br> Ниже приводится текст программы Registry.<br><br> <b>Программа 13.11.</b> Программа Registry<br><br> Option Explicit<br><br> Private Declare Function RegCreateKey Lib "advapi32.dll" _<br><br> Alias "RegCreateKeyA" (ByVal hKey As Long, _<br><br> ByVal IpSubKey As String, phkResult As Long) As Long <br><br> Private Declare Function RegDeleteKey Lib "advapi32.dll"<br><br> Alias "RegDeleteKeyA" (ByVal hKey As Long,<br><br> ByVal IpSubKey As String) As Long <br><br> Private Declare Function RegDeleteValue Lib "advapi32.dll" _<br><br> Alias "RegDeleteValueA" (ByVal hKey As Long, _<br><br> ByVal IpValueName As String) As Long <br><br> Private Declare Function RegQueryValueEx Lib "advapi32.dll" _<br><br> Alias "RegQueryValueExA" (ByVal hKey As Long,<br><br> ByVal IpValueName As String, ByVal IpReserved As Long, _<br><br> IpType As Long, IpData As Any, IpcbData As Long) As Long <br><br> Private Declare Function RegSetValueEx Lib "advapi32.dll" _<br><br> Alias "RegSetValueExA" (ByVal hKey As Long, _<br><br> ByVal IpValueName As String, ByVal Reserved As Long,<br><br> _<br><br> ByVal dwType As Long, IpData As Any, _<br><br> ByVal cbData As Long) As Long<br><br> Const ERROR_SUCCESS = 0& <br><br> Const ERROR_BADDB = 1009& <br><br> Const ERROR_BADKEY = 1010& <br><br> Const ERROR_CANTOPEN = 1011& <br><br> Const ERROR_CANTREAD = 1012& <br><br> Const ERROR_CANTWRITE = 1013& <br><br> Const ERROR_REGISTRY_RECOVERED = 1014 & <br><br> Const ERROR_REGISTRY_CORRUPT = 1015& <br><br> Const ERROR_REGISTRY_IO_FAILED = 1016& <br><br> <br> Const HKEY CLASSES ROOT = &H80000000<br><br> Const HKEY_CURRENT_USER = &H80000001 <br><br> Const HKEY_LOCAL_MACHINE = &H80000002 <br><br> Const REG_SZ = 1<br><br> ‘ Dim regKey As String <br><br> Const regKey = "\Sybex\Mastering VB 6.0"<br><br> Private Sub ForraLoad() <br><br> Dim retValue As Long, result As Long <br><br> Dim keyID As Long, keyValue As String <br><br> Dim subKey As String <br><br> Dim bufSize As Long<br><br> Label 6.Caption = regKey <br><br> ‘ Создание раздела<br><br> retValue = RegCreateKey(HKEY_LOCAL_MACHINE, regKey, keyID) <br><br> If retValue = 0 Then<br><br> ‘ Сохранение значения ширины<br><br> subKey = "Window Width"<br><br> retValue = RegQueryValueEx(keyID, subKey, 0&, _<br><br> REG_SZ, OS, bufSize)<br><br> ‘ Если значение не задано, установить его <br><br> If bufSize < 2 Then <br><br>    keyValue = Me.Width <br><br>    retValue = RegSetValueEx(keyID, subKey, 0&, _<br><br> REG_SZ, ByVal keyValue, Len(keyValue) + 1) <br><br> Else<br><br>    keyValue = String(bufSize + 1, " ") <br><br>    retValue = RegQueryValueEx(keyID, subKey, _<br><br>            0&, REG_SZ, ByVal keyValue, bufSize) <br><br>    keyValue = Left$(keyValue, bufSize - 1) <br><br>    Me.Width = keyValue <br><br> End If<br><br> ‘ Установка значений для формы<br><br> Label4.Caption = subKey<br><br> Label5.Caption = Me.Width<br><br> ‘ Запись значения высоты<br><br> subKey = "Window Height"<br><br> retValue = RegQueryValueEx(keyID, subKey, 0&,<br><br> _<br><br> REG_SZ, 0&, bufSize) <br><br> If bufSize < 2 Then<br><br>    keyValue = Me.Height<br><br>    retValue = RegSetValueEx(keyID, subKey, 0&, _<br><br> REG_SZ, ByVal keyValue, Len(keyValue) + 1) <br><br> Else<br><br>    keyValue = String(bufSize + 1, " ")<br><br>    retValue = RegQueryValueEx(keyID, subKey, 0&, REG_SZ, _ <br><br> ByVal keyValue, bufSize)<br><br>    keyValue = Left$(keyValue, bufSize - 1)<br><br>    Me.Height = keyValue <br><br> End If<br><br> ‘ Установка значений для формы <br><br> Label8.Caption = subKey <br><br> Label7.Caption = Me.Height<br><br>    End If <br><br> End Sub<br><br> Private Sub Form_QueryUnload(Cancel As Integer, _<br><br> UnloadMode As Integer) <br><br> Dim keyValue As String <br><br> Dim retValue As Long, keyID As Long<br><br>    retValue = RegCreateKey(HKEY_LOCAL_MACHINE, regKey,     keyID)<br><br>    keyValue = Me.Width<br><br>    retValue = RegSetValueEx(keyID, "Window Width", 0&,<br><br>   REG_SZ, ByVal keyValue, Len(keyValue) + 1) <br><br>    keyValue = Me.Height<br><br>    retValue = RegSetValueEx(keyID, "Window Height", 0&, _<br><br>    REG_SZ, ByVal keyValue, Len(keyValue) + 1) <br><br> End Sub<br><br> Приложение Registry успешно работает в Windows 95/98 (но не в Windows NT 4).<br><br><br> <h1>Функции рисования</h1> Visual Basic предоставляет несколько методов для рисования на формах элементов управления PictureBox (см. гл. 6). Этих методов немного, но разнообразие их параметров делает эти методы достаточно гибкими. Однако они работают не так быстро, как их "двойники" из набора API-функций. Система Windows содержит много графических объектов и достаточное количество API-функций для рисования<br> и заливки изображений. В этом параграфе рассмотрены некоторые API-функции, которые помогут повысить быстродействие приложений, создаваемых в Visual Basic (рассмотрение всех API-функций для работы с графикой выходит за пределы этой книги). В последнем параграфе главы рассмотрены основные положения графических API-функций Windows, контекстов устройств и растровых структур. Эти методы помогут написать быстродействующие программы, позволяющие организовать вывод графических изображений и манипулировать отдельными пикселями.<br> Примечание<br> Обратите внимание: значительная часть данной главы посвящена графическим функциям и методам вывода растровых изображений. Графические операции являются самыми медленными в Windows, поэтому Visual Basic с благодарность примет от вас любую помощь. Примеры, приведенные в данном параграфе, помогут вам ускорить выполнение графических операций.<br> <b>Вывод линий и окружностей</b><br> Двумя основными API-функциями являются функции LineTo() и Ellipse(), позволяющие выводить прямые линии и эллипсы (окружности). Объявление функции LineTo() приведено ниже.<br> Public Declare Function LineTo Lib "gdi32" Alias ''LineTo" _<br> (ByVal hdc As Long, ByVal x As Long, ByVal у As Long) As Long<br> Функция LineTo() позволяет нарисовать отрезок прямой, соединяющий текущую точку и точку с координатами (X, Y) в указанном контексте устройства. Чтобы определить текущую точку, воспользуйтесь функцией MoveToEx():<br> Private Declare Function MoveToEx Lib "gdi32" Alias "MoveToEx" _ <br> (ByVal hdc As Long, ByVal x As Long, ByVal у As Long, <br> IpPoint As POINTAPI) As Long<br> <br> Параметры х и у функции MoveToEx() являются координатами новой текущей точки. Последний параметр - структура POINTAPI - содержит координаты текущей точки перед их изменением данной функцией. Структура POINTAPI рассматривалась ранее в параграфе "Объявление 32-х разрядных функций и структур" этой главы.<br><br> Координаты точек в обеих функциях (как и во всех графических API-функциях) задаются в пикселях. Если возникает необходимость в совместном использовании графических методов Visual Basic и API-функций, то необходимо установить значение соответствующего свойства элемента управления равным 3 (пиксели). Чтобы в окне формы Form1 нарисовать отрезок прямой линии от точки с координатами (10,10) до точки (85,130), используется следующий набор операторов.<br><br> Dim point As POINTAPI<br><br> MoveToEx Forml.hDC, 10, 10, point<br><br> LineTo Forml.hDC, 85, 130<br><br> Функция Ellipse(), объявленная ниже, предназначена для вывода эллипсов и кругов.<br><br> Public Declare Function Ellipse Lib "gdi32" Alias "Ellipse" _<br><br> (ByVal hdc As Long, ByVal XI As Long, ByVal Yl As Long, _ <br><br> ByVal X2 As Long, ByVal Y2 As Long) As Long<br><br> Эта функция позволяет нарисовать эллипс в контексте устройства, определенном дескриптором hdc.<br><br> Эллипс вписан в прямоугольник, определенный координатами противоположных вершин (XI, Y1) и (X2,Y2). Чтобы нарисовать квадрат, нужно задать прямоугольник с одинаковыми сторонами.<br><br> Если эти команды используются для создания изображений на формах или элементах управления PictureBox, то цвет линии определяется значением свойства ForeColor формы или PictureBox, а ширина - значением их свойства DrawWidth. Можно изменить значения свойств либо воспользоваться API-функцией CreatePen().<br><br> Public Declare Function CreatePen Lib "gdi32" Alias "CreatePen" _ <br><br> (ByVal nPenStyle As Long, ByVal nWidth As Long, _ <br><br> ByVal crColor As Long) As Long<br><br> Параметр<br><br> nPenStyle — целое число, которое может принимать любое из значений, приведенных в табл. 13.8. Указанные значения соответствуют значениям свойства DrawMode.<br><br> <br> <b>Таблица 13.8.</b> Значения параметра nPenStyle функции CreatePenQ<br><br><table border=1> <tr> <td> Константа<br><br> </td> <td> Значение<br><br> </td> </tr> <tr> <td> PS_SOLID<br><br> </td> <td> 0<br><br> </td> </tr> <tr> <td> PS_DASH<br><br> </td> <td> 1<br><br> </td> </tr> <tr> <td> PS_DOT<br><br> </td> <td> 2<br><br> </td> </tr> <tr> <td> PS_DASHDOT<br><br> </td> <td> 3<br><br> </td> </tr> <tr> <td> PS_NULL<br><br> </td> <td> 5<br><br> </td> </tr> <tr> <td> PS_DASHDOTDOT<br><br> </td> <td> 4<br><br> </td> </tr> <tr> <td> PS_JNSIDEFRAME<br><br> </td> <td> 6<br><br> </td> </tr> </table> Для создания сплошного пера красного цвета шириной два пикселя необходимо вызвать функцию CreatePen() со следующими параметрами:<br><br> myPen = CreatePen (0, 2, RGB (255, 0, 0))<br><br> Создание объекта Pen не означает, что данный объект будет автоматически использоваться в последующих операциях вывода графики. Чтобы использовать новое перо в дальнейшем, "свяжите" объект Pen с контекстом устройства, в котором он применяется. Вызовите для этого функцию Select0bject().<br><br> Public Declare Function Select0bject Lib "gdi32" Alias _<br><br> "SelectObject" (ByVal hdc As Long, ByVal h0bject As _ <br><br> Long) As Long<br><br> Первый параметр — дескриптор контекста устройства, в котором будет выполняться процедура рисования, а второй параметр — дескриптор объекта Pen. Чтобы указать, что объект myPen будет использоваться в последующих операциях, вызовите такую функцию:<br><br> Select0bject Forml.hDC, myPen<br><br> После того как этот оператор выполнится, функции<br><br> Line() и Ellipse() смогут использовать перо myPen при выводе изображений в контекст устройства. Аналогичным объекту Pen является объект Brush, который используется для заливки областей (эта процедура будет рассмотрена позже). Воспользуемся функцией CreateSolidBrush()<br><br> для создания объекта Brush.<br><br> Public Declare Function CreateSolidBrush Lib "gdi32" Alias _ <br><br> "CreateSolidBrush" (ByVal crColor As Long) As Long<br><br> Цвет кисти задается функцией RGB() или свойством Color в диалоговом окне Color. Чтобы использовать объект Brush в дальнейших операциях, выберите его в контексте устройства с помощью функции SelectObject().<br><br> <b>VB6 в действии: проект APIDraw</b><br><br> В проекте APIDraw показана работа графических API-функций, рассмотренных в предыдущем параграфе. APIDraw - достаточно простое приложение, которое рисует круг, эллипс и описанные вокруг них (ограничивающие) прямоугольники (рис. 13.11). В следующем параграфе рассмотрена процедура заливки созданных изображений.<br><br> <br> <div style="text-align:center;"><img src="image/funkcii-risovanija_1.gif" alt="Функции рисования"></div><br><br> <b>Рис. 13.11.</b> Приложение APIDraw: круг и эллипс, созданные с помощью API-функции Ellipse()<br><br> В начале программы объявляются API-функции.<br><br> Private Declare Function LineTo Lib "gdi32" (ByVal hdc As Long,<br><br> ByVal x As Long, ByVal у As Long) As Long <br><br> Private Declare Function Ellipse Lib "gdi32" (ByVal hdc As Long,<br><br> ByVal XI As Long, ByVal Yl As Long, ByVal X2 As Long, _<br><br> ByVal Y2 As Long) As Long <br><br> Private Declare Function MoveToEx Lib "gdi32" (ByVal hdc As Long, _<br><br> ByVal x As Long, ByVal у As Long, IpPoint As POINTAPI) _<br><br> As Long <br><br> Private Declare Function CreateSolidBrush Lib "gdi32" _<br><br> (ByVal crColor As Long) As Long <br><br> Private Declare Function ExtFloodFill Lib "gdi32" (ByVal hdc _<br><br> As Long, ByVal x As Long, ByVal у As Long, ByVal crColor _<br><br> As Long, ByVal wFillType As Long) As Long<br><br> Private    Declare Function SelectObject Lib "gdi32" _<br><br>      (ByVal hdc As Long, ByVal hObject As Long) As Long <br><br> Private Declare Function DeleteObject Lib "gdi32" _<br><br> (ByVal hObject As Long) As Long<br><br> Фрагмент программы, обрабатывающий щелчок на клавише Draw Now (см. рис. 13.11) содержит функции MoveToEx() и LmeTo(), позволяющие нарисовать ограничивающие прямоугольники, и функцию Ellipse() для вывода эллипса. Первый эллипс ограничен прямоугольником, противоположные вершины которого расположены в точках с координатами (10, 10) и (500, 300), а второй - ограничен прямоугольником, который простирается из точки (10, 10) в точку (300, 300). Так как второй прямоугольник является квадратом, второй эллипс является окружностью. Фрагмент программы, обрабатывающий нажатие кнопки Draw Now, приведен ниже<br><br> <b>Программа 13.12</b>. Вывод эллипсов<br><br> Private Sub Commandl Click() <br><br> Dim point As POINTAPI<br><br> Forml.CIs<br><br> Forml.ForeColor = RGB(255, О, О)<br><br> MoveToEx Forml.hdc, 10, 10, point<br><br> LineTo Forml.hdc, 500, 10<br><br> LineTo Forml.hdc, 500, 300<br><br> LineTo Forml.hdc, 10, 300<br><br> LineTo Forml.hdc, 10, 10<br><br> Ellipse Forml.hdc, 10, 10, 500, 300<br><br> Forml.ForeColor = RGB(0, 0, 255) <br><br> <br> MoveToEx Forml.hdc, 10, 10, point <br><br> LineTo Forml.hdc, 300, 10 <br><br> LineTo Forml.hdc, 300, 300 <br><br> LineTo Forml.hdc, 10, 300 <br><br> LineTo Forml.hdc, 10, 10 <br><br> Ellipse Forml.hdc, 10, 10, 300, 300 <br><br> End Sub<br><br> <b>Заливка замкнутых фигур</b><br><br> Очень полезным режимом (отсутствующим в Visual Basic) является режим заливки замкнутых фигур (областей). Можно легко нарисовать окружность и прямоугольник, залитые определенным цветом, но как быть с фигурами, контуры которых определяются пересечением базовых фигур (см. рис. 13.11)? Для заливки фигур неправильной формы необходимо использовать API-функцию ExtFloodFill().<br><br> Public Declare Function ExtFloodFill Lib "gdi32" _<br><br> Alias "ExtFloodFill" (ByVal hdc As Long, ByVal x As Long, _ <br><br> ByVal у As Long, ByVal crColor As Long, ByVal _ <br><br> wFillType As Long) As Long<br><br> Эта функция позволяет залить сплошную область, начинающуюся в точке с координатами (x, у) цветом, определенным параметром crColor.<br><br> Последний параметр (wFillType)<br><br> определяет тип заливки и может принимать одно из следующих значений.<br><br> •   FLOODFILLBORDER (0) - функция выполняет заливку области цветом crColor. Точка (х, у) должна находиться в пределах закрашиваемой области.<br><br> •   FLOODFILLSURFACE (1) - параметр cIColor определяет только цвет обрамления.<br><br> Поскольку область заливается с помощью кисти, сначала необходимо создать объект Brush, затем выбрать его в контекст устройства и вызвать функцию ExtFloodFill(). Фигуры, появляющиеся на экране после щелчка на кнопке Draw Now (приложения Ellipse), содержат весьма причудливые области, для заливки которых применяется функция ExtFloodFill(). К этой программе добавлен небольшой фрагмент, позволяющий заливать замкнутые области цветом, выбранным пользователем в диалоговом окне Color. Чтобы заполнить область, щелкните на кнопке Fill Color (в общем диалоговом окне Color) и выберите цвет заливки, а затем щелкните на точке, расположенной в пределах области, которую вы хотите залить. Заливка выполняется в обработчике события MouseUp, текст которого приведен ниже.<br><br><b>Программа 13.13.</b> Заливка замкнутой области<br><br> Private Sub Form MouseUp(Button As Integer, Shift As Integer, _ <br><br> x As Single, у As Single)<br><br> brush = CreateSolidBrushe(CommonDialogI.Color)<br><br> SelectObject Me.hdc, brush<br><br> ExtFloodFill Me.hdc,<b><br><br> x,</b> y, Me.point(x, y), FLOODFILLSURFACE<br><br> DeleteObject brush <br><br> End Sub<br><br> Программа извлекает информацию о выбранном цвете из элемента управления CommonDialogI и использует ее для создания сплошной кисти. Затем кисть выбирается в контекст устройства формы и вызывается функция ExtFloodFill(), с помощью которой выполняется заливка требуемой области.<br><br><br> <h1>Функции вывода пикселей</h1> В большинстве случаев можно не беспокоиться о быстродействии приложений, в которых выводится всего несколько линий (даже если этот процесс занимает пару миллисекунд), за исключением, быть может, отдельных случаев, связанных с выводом сложных с математической точки зрения кривых. Но даже тогда, вероятно, нет смысла возиться с использованием API-функций. Если вспомнить о приложении Image (см. гл. 7), в котором в процессе обработки изображения необходимо было устанавливать значения цвета примерно для миллиона пикселей, то там все выглядит иначе: каждая лишняя миллисекунда, затраченная на обработку одного пикселя, будет приводить к значительной задержке всего цикла в целом. В гл. 12 рассматривались функции GetPixelV() и SetPixelV(), которые работают значительно быстрее, чем их аналоги в Visual Basic (методы Point и PSet соответственно) для чтения и установки значения пикселя.<br> Функция GetPixelV() возвращает значения пикселя в координатах (х, у) в контексте устройства, определенном параметром hdc, следующим образом.<br> Public Declare Function GetPixel Lib "gdi32" Alias "GetPixel" _ <br> (ByVal hdc As Long, ByVal x As Long, ByVal y As Long) _ <br> As Long<br> Значение пикселя возвращается как тип Long так же, как это сделал бы метод Point. Первый параметр функции GetPixel() - значение свойства hDC формы, элемента управления PictureBox или любого другого элемента управления, в который можно осуществить вывод графики.<br> Объявим функцию SetPixel().<br> Public Declare Function SetPixel Lib "gdi32" Alias "SetPixel" _<br> (ByVal hdc As Long, ByVal x As Long, ByVal у As Long, _ <br> ByVal crColor As Long) As Long<br> Здесь<br> hdc - дескриптор контекста устройства управления, x и у - координаты пикселя, а crColor — его цвет.<br> На рис 13.12 приведено окно приложения CopyPix, которое выполняет копирование пикселей из левого PictureBox в правый с помощью программы, использующей операторы Visual Basic (кнопка Сору VB), или API-функции GetPixelV() и SetPixelV() (кнопка Сору API). Запустите приложение, чтобы увидеть, насколько быстрее работают API-функции по сравнению с их эквивалентами в Visual Basic. При этом можно не засекать время, требуемое для выполнения этих операций — разница будет заметна даже "на глаз". Не забудьте, что значение свойства AutoRedraw второго элемента PictureBox должно иметь значение False, чтобы можно было заметить разницу в скорости выполнения операций копирования.<br> <br> Проект CopyPix необходимо запускать на системе, способной отображать более 256 цветов. Если система поддерживает только 256 цветов, необходимо удостовериться, что цвет, выбранный для заливки области, является цветом из палитры, а не псевдоцветом. Если цвет является псевдоцветом, то область будет заполнена с помощью шаблона, состоящего из точек разного цвета. Если снова попытаться залить эту же область, то программа выполнит заливку только одного пикселя, поскольку функция ExtFloodFill() позволяет выполнить заливку области, имеющей сплошной цвет, а не псевдоцвет.<br><br> <div style="text-align:center;"><img src="image/index-image012.gif" alt="Функции вывода пикселей"></div><br><br> Рис. 13.12. В проекте CopyPix демонстрируется различие в быстродействии между методами Visual Basic и эквивалентными API-функциями<br><br> Текст программы настолько прост, что здесь приводится только фрагмент, обслуживающий кнопку Copy API. В программе выполняется просмотр каждого пикселя исходного (левого) изображения (с помощью двойного цикла), считывается<br><br> значение цвета пикселя, а затем это значение присваивается пикселю с теми же координатами в правом PictureBox. Фрагмент программы приведен ниже.<br><br> <b>Программа 13.14.</b><br><br> Копирование пикселей с помощью API-функций<br><br> Private Sub Conmiand2_Click () <br><br> Dim i As Integer, 3 As Integer <br><br> Dim cIrValue As Long<br><br> For i = 0 To Picturel.ScaleWidth - 1<br><br> For j = 0 To Picturel.ScaleHeight - 1<br><br>    SetPixel Picture2.hdc, i, ~j, GetPixel(Picturel.hdc, i, j) <br><br> Next <br><br> ' DoEvents <br><br> Next <br><br> End Sub<br><br> Чтобы копировать изображение из окна одного элемента управления в другое, можно использовать либо метод PaintPicture, либо API-функцию BitBlt(). Они работают одинаково быстро. Если же возникает необходимость обработать отдельные пиксели, то использование двух API-функций, рассмотренных ранее, позволит значительно ускорить процесс обработки. В гл. 12 рассматривалось использование соответствующих функций для оптимизации быстродействия приложения Image, в котором большая часть времени уходила на чтение и установку значений пикселей.<br><br><br> <h1>Функция</h1> BitBlt()<br> Функция<br> BitBlt() используется для выполнения операции копирования отдельных битов из области-источника изображения в область-получатель. Функция позволяет передавать прямоугольную область из контекста устройства-источника в контекст устройства-получателя. Ранее в этой главе (приложение MenuBMP) приводился пример использования функции BitBlt(). Рассмотрим эту функцию более подробно и сравним ее с методом PaintPicture, встроенным в Visual Basic.<br> Функция BitBlt() объявляется следующим образом.<br> Declare Function BitBIt Lib "gdi32" Alias "BitBIt" (ByVal _ <br> hDestDC As Long, ByVal x As Long, ByVal у As Long, _ <br> ByVal nWidth As Long, ByVal nHeight As Long, ByVal _ <br> hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, _ <br> ByVal dwRop As Long) As Long<br> В отличие от метода PaintPicture, для вызова функции BitBlt() требуется указать все параметры. Необходимо указать начальные координаты Х и Y получателя, высоту и ширину передаваемого изображения, а также начальные координаты источника.<br> Прежде чем вызвать функцию BitBlt(), необходимо создать контекст устройства для объекта-источника и объекта-получателя с помощью функций CreateCompatibleDC() и CompatibleBitmapO. Если планируется использовать функцию BitBlt() для копирования содержимого элемента управления PictureBox, то контекстом устройства элемента управления является значение его свойства hWnd. Функцию BitBlt() можно использовать с любым контекстом устройства, даже с контекстом устройства растрового изображения, загруженного в память.<br> За исключением дескрипторов hDestDC<br> и hSrcDC, параметры функции BitBlt() такие, как и у метода PaintPicture. Они определяют координаты области-источника, содержимое которой будет скопировано (параметры источника), и координаты и размеры области-получателя, куда должны быть скопированы пиксели, образующие изображение (параметры получателя). Размеры областей источника и получателя должны быть одинаковыми. В табл. 13.7. приведены значения кодов растровых операций для параметра dwRop. Эти коды определяют, каким образом пиксели из области-источника объединяются с пикселями в области-получателе.<br> <br> StretchBlt()<br> Для обработки растровых изображений можно воспользоваться функцией StretchBlt(). С помощью этой функции можно выполнять масштабирование (сжимать или растягивать) растровых изображений в процессе копирования. Функция StretchBlt() объявляется следующим образом.<br> Declare Function StretchBIt Lib "gdi32" Alias "StretchBIt" _ <br> (ByVal hdc As Long, ByVal x As Long, ByVal у As Long, _<br> ByVal nWidth As Long, ByVal nHeight As Long, ByVal _ <br> hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, _<br> ByVal nSrcWidth As Long, ByVal nSrcHeight As Long, _<br> ByVal dwRop As Long) As Long<br> Функция StretchBlt() имеет те же параметры, что и функция BitBlt(), плюс два дополнительных параметра, которые определяют размер области-источника. С помощью функции Stretch Bit() изображение можно сжимать, растягивать и даже выворачивать наизнанку, задавая параметры с разными знаками. Коды растровых операций, содержащиеся в табл. 13.7, определяют способ объединения цветов пикселей области-источника и области-получателя.<br> Эти коды рассматривались в гл. 7. Можно запустить приложение PaintPic, рассмотренное там же, чтобы поэкспериментировать с различными кодами растровых операции. В приложении PaintPic используется метод PaintPicture, но растровые операции выполняют аналогичные преобразования.<br> <b>Таблица 13.7.</b> Коды растровых операций функций BitBlt() и StretchBlt()<br><table border=1><br> <tr> <td>Значение<br> <td> <td>Описание<br> <td> </tr> <tr> <td>BLACKNESS<br> <td> <td>Заполняет область-получатель черным цветом<br> <td> </tr> <tr> <td>DSTINVERT<br> <td> <td>Инвертирует область-получатель<br> <td> </tr> <tr> <td>MERGECOPY<br> <td> <td>Изображение определяется результатом выполнения операции побитового И над копируемым изображением и шаблоном<br> <td> </tr> <tr> <td>MERGEPAINT<br> <td> <td>Результирующее изображение определяется результатом выполнения операции побитового ИЛИ над инвертированным копируемым и областью-получателем<br> <td> </tr> <tr> <td>NOTSRCCOPY<br> <td> <td>Изображение определяется инвертированным исходным изображением<br> <td> </tr> <tr> <td>NOTSRCERASE<br> <td> <td>Результирующее изображение определяется результатом выполнения операции побитового ИЛИ над областью-источником и областью-получаталем с последующим инвертированием цвета<br> <td> </tr> <tr> <td>PATCOPY<br> <td> <td>Шаблон копируется в область получатель<br> <td> </tr> <tr> <td>PATINVERT<br> <td> <td>Изображение определяется результатом выполнения операции побитового исключающего ИЛИ над шаблоном и областью-получателем<br> <td> </tr> <tr> <td>PATPAINT<br> <td> <td>Изображение определяется результатом выполнения операции побитового ИЛИ над областью-источником и шаблоном с последующим объединением операцией ИЛИ с областью-получателем<br> <td> </tr> <tr> <td>SRCAND<br> <td> <td>Изображение определяется результатом выполнения операции побитового И над областью-источником и областью-получателем<br> <td> </tr> <tr> <td>SRCCOPY<br> <td> <td>Область-источник копируется в область-получатель без изменений<br> <td> </tr> <tr> <td>SRCERASE<br> <td> <td>Изображение определяется результатом выполнения операции побитового И над областью-источником и инвертированной областью-получателем<br> <td> </tr> <tr> <td>SRCINVERT<br> <td> <td>Изображение определяется результатом выполнения операции побитового исключающего ИЛИ над областью-источником и областью-получателем<br> <td> </tr> <tr> <td>SRCPAINT<br> <td> <td>Изображение определяется результатом выполнения операции побитового ИЛИ над областью-источником и областью-получателем<br> <td> </tr> <tr> <td>WHITNESS<br> <td> <td>Область-получатель заливается белым цветом<br> <td> </tr> </table><br><br> <br><br> <h1>Гиперссылки</h1> Тег, "оживляющий" страницы HTML — это тег <А>. Он предназначен для вставки в документ гиперссылки. Гиперссылка — это строка, по цвету отличающаяся от остального текста. Когда указатель мыши находится на гиперссылке, он принимает форму руки (некоторые броузеры отображают другие указатели, но ясно, что текст под указателем является гиперссылкой). После щелчка кнопкой мыши на гиперссылке броузер запрашивает и выводит на дисплей другой документ (который находится на этом или другом сервере).<br> Теги <А> и </А> задают границы текста, который будет выделен как гипер-ссылка. Дополнительно необходимо задать URL документа-источника гиперссылки. Например, URL начальной страницы Sybex.<br> http://www.sybex.corn<br> URL, на который выполняется переход, задается атрибутом HREF тега <А>. Чтобы показать на экране строку "Visit the SYBEX home page" (Посещение SYBEX домашней страницы), слово SYBEX используется как гиперссылка и в документ вводится следующее.<br> Visit the <A HREF="http://www.sybex.com">SYBEX</A> home page<br> Эта строка вставляет гиперссылку в документ. Когда пользователь щелкнет на гиперссылке SYBEX, броузер покажет главную страницу заданного URL.<br> Примечание<br> Не нужно задавать имя документа в гиперссылке. Сервер предлагает страницу по умолчанию, так называемую домашнюю (home) страницу. Домашняя страница, как правило, является входом для заданного узла и содержиг гиперссылки на другие страницы, входящие в узел.<br> Чтобы сразу перейти на страницу, заданную на Web узле используют гиперссылки, подобные следующей.<br> View a document on<A HREF = "http://www.sybex.com/HTMLTutorial.htm"> <br> HTML programming</A> on the Sybex site.<br> Большинство гиперссылок обычно указывает на другие документы, находящиеся на том же сервере. Эти гиперссылки содержат относительные<br> ссылки на документы. Для определения гиперссылки на документ Images htm, находящийся в одной папке с текущей страницей, используется следующий тег<br> Click <A HREF=".\Images.htm">here</A> to view the images.<br> Если файл Images.htm находится в подпапке Bitmaps текущей папки, используется следующая команда.<br> Click <A HREF "..\Bitmaps\ Images.htm">here</A> to view the images<br><br> <br><br> <h1>HTML-страницы</h1> Простейшим компонентом Web является HTML. Это простой язык форматирования документов, отображаемых в Web-броузере. Важнейшая задача, выполняемая броузером — это воспроизведение документов в соответствии с HTML-тегами и отображение документов на экране.<br> Используя редакторы HTML и инструменты WYSIWYG (What You See Is What You Get — что видите, то и получите), можно печатать информацию в форме, пригодной для просмотра в броузере. Компания может печатать свои внутренние документы в HTML-формате и делать их доступными только в локальной сети. Преимуществ у такого подхода много, кстати. Office 97 поддерживает печать в HTML-формате. Любой документ, создаваемый в приложении Office 97, можно преобразовать в HTML-формат и передать на Web-сервер, в Internet или корпоративную Intranet. Можно определить место нахождения информации, осуществляя поиск по соответствующим гиперссылкам. Кроме того, информация обновляется настолько часто, насколько часто ее изменяют.<br> HTML состоит из тегов, форматирующих текст, которые располагаются в парах угловых скобок Теги, как правило, тоже используются парами. Первый тег подключает признак форматирования, а комплементарный ему — отключает. Например, чтобы выделить нескольких слов полужирным шрифтом, их заключают в теги <В> и </В> следующим образом.<br> Some<B>words</B>in the sentence are formatted in <B>bold</B>.<br> Конечно, не все теги столь просты. Тег <TABLE>, например, который используется для форматирования таблиц, нуждается в дополнительных тегах, таких как тег <TR>, который задает границы новой строки в таблице, и тег <TD>, который задает границы новой ячейки в строке. Теги также сопровождаются атрибутами - ключевыми словами с определенными значениями в пределах специфического тега. Тег <А> используется для выделения гиперссылки в документе, он распознает атрибут HREF Гиперссылка с домашней Web-страницей Microsoft задается так.<br> This <A HREF="http: //www.microsoft.com">link</A> will take you to <br> Microsoft's home page.<br> Текст между тегами <А> и </А> отмечен как гиперссылка (отображается на дисплее другим цветом и подчеркиванием). Атрибут HREF в теге <А> задает URL или адрес, на который следует переключиться при вызове этой гиперссылки.<br> Далее в главе приведено краткое введение в HTML (параграф "Учебник по HTML (для начинающих)").<br> В нем рассказывается об элементах языка, используемого в примерах следующих глав. Эта информация предназначена для программистов на VB Для полной справки по HTML, включая все теги, распознаваемые Internet Explorer, и их атрибуты, посетите следующий сайт:<br> http://www.microsоft.com/workshop/author/newhtml<br><br> <br><br> <h1>Индексы</h1> Индексы — это структуры, которые определяют порядок записей в таблице. Обычно данные в таблице не упорядочены. На практике, тем не менее, возникает необходимость обращаться к ним в определенном порядке. Когда печатается список имен заказчиков, необходимо печатать их в алфавитном порядке. Если печатаются почтовые этикетки, то, вероятно, необходимо печатать их в порядке почтового индекса. Тип обработки, выполняемой над базой, определяет порядок, в<br> котором должны быть расположены строки таблицы. Это главное для таблицы, которая будет по-разному использоваться в различных операциях.<br> Если запрос обуславливает различный порядок строк в таблице, то их придется реорганизовать. Но для этого требуется слишком много времени. Решение проблемы состоит в том, чтобы поддерживать маленькие таблицы, называемые индексами, которые определяют последовательность чтения записей из таблицы. Индексный файл не содержит информацию, которая появлялась бы в таблице непосредственно: только числа, определяющие порядок записей.<br> Предположим, пятая запись в таблице должна появиться первой, когда строки таблицы запрошены в алфавитном порядке. Первый элемент индексного файла содержит значение 5. Значит, когда из базы данных будут извлекаться строки заданной таблицы, сначала будет извлечен пятый элемент.<br> Примечание<br> В гл. 5 рассматривалось приложение, в котором использовалось свойство ItemData списка для поддержания отсортированных данных с помощью элемента управления ListBox. Индексные файлы подобны элементам свойства ItemData.<br> Таблица может иметь более одного индекса. Индексы всех таблиц в базе данных поддерживаются механизмом JET. Единственное, что нужно выполнить — это задать поля, на которых будет основан индекс.<br> <b>В каких случаях индексация не нужна?</b><br> Когда запись модифицируется, индексы также должны модифицироваться. Это заметно увеличивает время модифицирования записи. Индексы также увеличивают занимаемый объем памяти и, следовательно, время и ресурсы, необходимые для обычного резервирования.<br> Поддержание множественных индексов для каждой таблицы на всякий случай — хорошая идея, однако за индексные файлы нужно платить. Вводить дополнительные индексы надо только в том случае, если они необходимы для соответствующей операции над базой данных. Слишком много индексов, особенно для очень больших таблиц, которые часто изменяются, замедлят их обработку.<br><br> <br><br> <h1>Инициализация элемента управления и его свойств</h1> Для этих целей можно использовать два события -<br> Initialize и InitProperties. Событие InitProperties предназначено для задания свойствам начальных значений.<br> До сих пор за нас это делал мастер интерфейса пользователя ActiveX. Событие Initialize может использоваться для выполнения кода инициализации, который не использует свойства. Если попытаться задать значение свойства или выполнить какое-либо действие на элементе управления (например, вывести Title на элементе управления оператором UserControl. Print "Control"), то будет выдано следующее сообщение об ошибке:<br> Object Required <br> Объект UserControl еще не существует. Именно поэтому оператор:<br> UserControl.Print "Control"<br> работает только тогда, когда находится внутри других событий, но не внутри события Initialize.<br> Что же можно сделать из кода этого события? Очень немного. Можно присвоить начальные значения закрытым переменным элемента управления, но нельзя обращаться к свойствам элемента управления и даже к объекту Ambient.<br> Больший интерес представляет событие InitProperties, которое Происходит после того, как создан элемент управления. Следует только помнить, событие Initialize имеет место каждый раз, когда происходит переключение между режимом конструирования и выполнения, но событие InitProperties за ним не следует.<br> Совет<br> Событие InitProperties происходит тогда, когда элемент управления создается и помещается на контейнер первый раз. После этого роль события InitProperties в цикле жизни элемента управления берет на себя событие ReadProperties. При изменении значения некоторых свойств элемента управления для Visual Basic бессмысленно сбрасывать эти свойства в их начальные значения. Вместо этого, он считывает их из Property Bag при вызове события ReadProperties.<br> В событии InitProperties можно вставить код инициализации, который управляет внешним видом "новорожденного" элемента управления. Например, можно определить, что случится, если пользователь помещает элемент управления на форму с помощью двойного щелчка на пиктограмме вместо перетягивания элемента управления на форму. Когда Visual Basic помещает экземпляр элемента управления на форму, он уже имеет некоторый размер (который одинаков для всех элементов управления). Если элемент управления содержит длинный заголовок, геометрическую фигуру или любой другой элемент, который должен быть виден полностью, можно откорректировать начальный размер элемента управления с помощью нескольких операторов:<br> <br> UserControl.Width = 2400 <br><br> UserControl.Height = 1200<br><br> При помещении элемента управления на форму с помощью двойного щелчка на его пиктограмме его начальный размер будет равен 2400 на 1200 твипов.<br><br> Объекты Extender и Ambient также доступны из процедуры InitProperties. Заголовок на элементе управления можно отобразить тем же шрифтом, что и у контейнера, следующим образом.<br><br> Set Font = Ambient.Font <br><br> UserControl.Print "FabControl"<br><br> Эти две строки отображают строку<br><br> "FabControl" шрифтом контейнера в верхнем левом углу элемента управления. Кроме того, шрифт элемента управления также будет первоначально установлен равным шрифту формы.<br><br> Примечание<br><br> Заголовок "FabControl" появится на новом экземпляре элемента управления только в том случае, если свойство AutoRedraw установлено в True. Элемент управления создается "за кулисами" и реально отображается только после того, как весь код инициализации будет выполнен. Если свойство AutoRedraw элемента управления равно False, строка будет первоначально напечатана на элементе управления, но когда элемент управления отображается, эта строка не является частью растрового изображения (вспомните гл. 6) и не будет перерисовываться.<br><br><br> <h1>Инициирование событий из кода класса</h1> Это достаточно сложная тема и ее можно было бы благополучно пропустить. Инициирование событий из кода класса — не очень распространенная практика. Так как классы не имеют видимого интерфейса пользователя, то не существует внешних событий, реагируя на которые можно вызывать их обработчики. В следующей главе описано, как генерировать ошибки из кода элементов управления ActiveX. Элементы управления ActiveX имеют видимый интерфейс и должны реагировать на многие внешние события, такие как события мыши и клавиатуры. Как станет ясно, инициировать события из элементов управления ActiveX достаточно просто.<br> Совсем другая ситуация с ActiveX DLL. Классы инициируют события, основанные на внутренних событиях, таких как лимит времени. Модифицируем класс CTimer так, чтобы он вызывал события Minute и Hour каждый раз, когда минута или час прошли. Доработанный проект CTimer вместе с его тестовым проектом находится в папке EVNTimer в папке этой главы на компакт-диске.<br> Так как класс CTimer не может отслеживать время непрерывно, необходимо ему помочь, воспользовавшись элементом управления Timer. Но модуль класса не имеет формы, и как тогда можно использовать элемент управления Timer? Мы добавим форму к проекту, но отображаться она не будет. Это будет скрытая форма с элементом управления Timer. Модуль класса будет иметь доступ к элементу Timer на форме и перехватывать его событие Timer. Это один из способов использования элемента управления ActiveX в модуле класса.<br> <b>1</b>. В окне Project Explorer выберите компонент CTimer и переименуйте его на EventTimer, как показано на рис. 15.3. Затем откройте меню Project, выберите команду Add Form (Добавить форму) и добавьте новую форму в проект модуля класса.<br> Примечание<br> Убедитесь, что новая форма появилась под компонентом<br> EventTimer, а не TestProject. Если форма добавилась к тестовому проекту, удалите ее и повторите процесс.<br> <b>2</b>. Откроите форму Form1 в режиме конструирования и поместите на нее экземпляр элемента управления Timer. Установите его свойство Enabled в True, а его свой ство Interval в 10000. Это значение соответствует 10 секундам. Не нужно, чтобы TimerClass тратил слишком много компьютерного времени на обработку событий Timer, так что установите большой промежуток времени ожидания.<br> <br> На рис 15.3 показан проект EventTimer в среде разработки Visual Basic. Обратите внимание на компоненты в окне Project, на Form1 в окне Design и на окно Code класса. Новый класс называется EventTimerClass, а проект называется EventTimer. Открывая этот пример проекта, не забудьте выбрать проект теста и добавить ссылку на EventTimer к нему.<br><br> Наша задача - перехватить событие Timer от элемента управления. Timer внутри модуля класса и использовать его для генерирования событий Minute и Hour. Событие Minute первый раз происходит через 60 секунд после запуска таймера и каждые 60 секунд после этого. Аналогично, событие Hour происходит первый раз через 60 минут после начала работы класса и через каждые 60 минут после этого.<br><br> <div style="text-align:center;"><img src="image/iniciirovanie-sobytij-iz-koda-klassa_1.gif" alt="Инициирование событий из кода класса"></div><br><br> <b>Рис. 15.3.</b> Проект EventTimer подобен проекту CTimer, но он использует внутренний таймер для отсчета времени<br><br> <b>3</b>. Чтобы обеспечить доступ к элементу управления на другой форме, необходимо создать переменную формы в самом классе. Вставьте следующие объявления в окно программного кода класса.<br><br> Dim cFrrn As Formi <br><br> Dim WithEvents eTimer As Timer<br><br> Ключевое слово WithEvents<br><br> сообщает Visual Basic, что элемент управления должен содержать свойства, методы и события (вот почему он назван eTimer). Эти переменные оживут, если им поставить в соответствие объекты. Это должно произойти внутри события инициализации класса.<br><br> <b>4</b>. Вставьте следующие строки в событие Class_Initialize:<br><br> Private Sub Class_Initialize ()<br><br> Set cFrm = New Form1<br><br> Load cFrm<br><br> Set eTimer = cFrm.Timer1 <br><br> End Sub<br><br> Первый оператор связывает новый экземпляр объекта Formi с переменной cFrm. Затем загружается новая форма. С этого времени реализуется доступ к элементам управления, размещенным на форме. Последняя строка делает переменную eTimer<br><br> эквивалентной элементу управления Timer1 на форме Form1. Теперь класс может иметь доступ к элементу управления Timeri на форме Formi с помощью имени eTimer, также как и Form1 имеет доступ к нему с помощью имени Timer1. Два выражения эквивалентны, но нельзя получить доступ к элементу управления Timer как Form1.Timer1 из модуля класса. <br><br> <br> Если открыть раскрывающийся список объектов в окне программного кода модуля класса, то можно увидеть объект eTimer. Так как объектная переменная eTimer объявлена с использованием ключевого слова WithEvents,<br><br> то есть возможность программировать его события. Вот почему его имя появилось в списке объектов. Выберите объект eTimer<br><br> в списке объектов и затем откройте список событий в окне Code. Появится имя события Timer. Выберите его, после чего можете программировать событие eTimer_Timer(), что эквивалентно программированию события Timer1_Timer.<br><br> <b>5</b>. Добавьте строки программного кода 15.5 в обработчик события eTimer_Timer. <br><br> <b>Программа 15.5.</b> Инициирование событий из кода класса<br><br> Private Sub eTimer_Timer()<br><br> Static seconds As Long<br><br> Static minutes As Long<br><br> Static hours As Long<br><br> Dim RaiseMinutes As Boolean, RaiseHours As Boolean<br><br> If Not Counting Then Exit Sub <br><br> RaiseMinutes = False <br><br> RaiseHours = False<br><br> seconds = seconds + eTimer.Interval / 1000 <br><br> If seconds = 60 Then<br><br> minutes = minutes + 1 <br><br> seconds = 0 <br><br> RaiseMinutes = True <br><br> If minutes = 60 Then <br><br> hours = hours + 1 <br><br> minutes = 0 <br><br> RaiseHours = True <br><br> End If <br><br> End If <br><br> If RaiseHours Then <br><br> RaiseEvent Hour<br><br> Elself RaiseMinutes Then<br><br> RaiseEvent Minute <br><br> End If<br><br> End Sub<br><br> Булева переменная Counting<br><br> объявлена в секции объявлений формы и служит признаком работы таймера. Если таймер остановлен, то не нужно обрабатывать событие Timer. Эта переменная устанавливается в True внутри метода StartCounting и устанавливается в False внутри метода StopCounting.<br><br> Эта подпрограмма вызывается каждые 10 секунд и увеличивает число прошедших секунд,<br><br> прибавляя к ним 10. Каждые 60 секунд она увеличивает число минут на 1, и каждые 60 минут она увеличивает число часов на 1. Если переменная minutes равна 0 (это значит, что она достигла значения 60 и сброшена в 0), должно быть инициировано событие Hour. Если это не так, то проверяется значение переменной seconds.<br><br> Если она равна 0, то должно быть инициировано событие Minute. В результате этого инициируются 59 последовательных событий Minute, затем событие Hour, после чего процесс повторяется. Так как нельзя выдать сразу два события, то событие Minute пропускается, когда инициируется событие Hour. Ясно, что событие Hour означает наличие и события Minute.<br><br> <br> <b>6</b>. Для того чтобы надлежащим образом инициировать события, необходимо объявить их имена. Добавьте следующие строки в окно кода модуля класса (вне любой процедуры):<br><br> Event Minute () <br><br> Event Hour ()<br><br> Полный программный код EventTimerClass показан ниже. Обратите внимание на сходство и отличия с простым классом CTimer. Процедура Property Get и метод класса не изменились. Добавлен только код для доступа к элементу управления Timer на невидимой форме и запрограммировано событие Timer элемента Timer для инициирования соответствующих событий.<br><br> <b>Программа 15.6.</b> Листинг EventTimerClass<br><br> Dim cFrm As Formi<br><br> Dim WithEvents eTimer As Timer<br><br> Dim totallnterval As Double<br><br> Dim Tl As Double<br><br> Dim Counting As Boolean<br><br> Event Minute() <br><br> Event Hour()<br><br> Public Sub StartCounting ()<br><br> Tl = Time<br><br> Counting = True <br><br> End Sub<br><br> Public Sub StopCounting()<br><br> totallnterval = totallnterval + Time - Tl<br><br> Counting = False <br><br> End Sub<br><br> Property Get ElapsedTime() As Double<br><br> ElapsedTime = totallnterval <br><br> End Property<br><br> Public Sub ResetTimer()<br><br> totallnterval = 0 <br><br> End Sub<br><br> Private Sub Class_Initialize ()<br><br> Set cFrm = New Formi<br><br> Load cFrm<br><br> Set eTimer = cFrm.Timer1 <br><br> End Sub<br><br> Private Sub eTimer_Timer()<br><br> Static seconds As Long<br><br> Static minutes As Long<br><br> Static hours As Long<br><br> Dim RaiseMinutes As Boolean, RaiseHours As Boolean<br><br> If Not Counting Then Exit Sub <br><br> RaiseMinutes = False <br><br> RaiseHours = False<br><br> seconds = seconds + eTimer.Interval / 1000 <br><br> If seconds = 60 Then<br><br> minutes = minutes + 1<br><br> seconds = 0<br><br> RaiseMinutes = True<br><br> If minutes = 60 Then <br><br> hours = hours + 1 <br><br> minutes = 0<br><br> RaiseHours = True<br><br> End If <br><br> End If <br><br> If RaiseHours Then<br><br> RaiseEvent Hour <br><br> Elself RaiseMinutes Then<br><br> RaiseEvent Minute <br><br> End If <br><br> End Sub<br><br><br> <h1>Internet и Web-протоколы</h1> Internet — это глобальная распределенная компьютерная сеть с общим протоколом связи TCP/IP (Transmission Control Protocol/Internet Protocol). TCP/IP - универсальный протокол, одинаково выполняющийся на всех компьютерах и операционных системах. Глубокие знания о нем для пользователя Internet необязательны.<br> Каждый компьютер в сети имеет уникальный адрес, например, 193.25.84.100. Каждое число, разделенное точкой — это значение в диапазоне от 0 до 255. Из этого следует, что Internet не может иметь подключенными более 4 миллиардов компьютеров (256*256*256*256). Это количество не так велико, как может показаться, потому что большая часть допустимых значений зарезервирована. Другие — переданы организациям, которые могут использовать или не использовать предоставленные адреса по своему усмотрению. Для предоставления большего количества адресов провайдеры Internet-служб используют область адресов (т.к. не все пользователи связываются одновременно, то те же 256 адресов позволяют обслуживать более 1000 пользователей). К сожалению, невозможно, чтобы все пользователи имели уникальные IP-адреса, подобно адресам E-mail. Каждый раз при связи с провайдером конкретному компьютеру присваиваются различные IP-адреса.<br> Если TCP/IP предоставляет возможность любым двум компьютерам связываться между собой с помощью Internet, то зачем нужен другой протокол? HTTP является протоколом Web. В то время как TCP/IP позволяет двум компьютерам связываться на аппаратном уровне, HTTP же является языком серверов и клиентов и используется для обмена информацией. HTTP оптимизирован для запрашивания и предоставления документов HTML. Например, при обмене файлами по Internet используется FTP (File Transfer Protocol - протокол передачи файлов). Используемый протокол зависит от типа передаваемой информации. Тем не менее, все эти протоколы произошли от TCP/IP.<br> В следующем параграфе вы подробнее узнаете о компонентах Web и об эволюции Web-документов.<br><br> <br><br> <h1>Исходный текст приложения</h1> Messages<br> В обработчике события Load (Загрузка) формы создаются две объектные пере менные — OLApp, которая указывает на приложение Outlook, и mNameSpace,<br> которая указывает на папки Outlook. Эти переменные объявлены в разделе декларации формы:<br> Dim OLApp As Application <br> Dim mNameSpace As NameSpace<br> Затем в программе объявляется переменная AllContacts, которая указывает на элементы (объекты) в папке Contacts.<br> Dim AllContacts As Items<br> Программа просматривает все объекты в семействе AllContacts и добавляет имена контактов (свойство FullName) в окно элемента управления Combo 1. Значение свойства Sorted элемента управления Combol устанавливается равным True, и программа удаляет любые повторяющиеся элементы (которые могут появиться в последовательных позициях списка). Ниже приведена программа, которая обращается к Outlook и устанавливает значение объектной переменной AllContacts.<br> <b>Программа 14.22.</b><br> Инициализация проекта Messages<br> Private Sub Form_Load() <br> On Error GoTo OutlookNotStarted<br> Set OLApp - CreateObject ("Outlook Application")<br> On Error GoTo NoMAPINameSpace<br> Set mNameSpace = OLApp.GetNamespace("MAPI") <br> Set AllMessages = _<br> mNameSpace.GetDefaultFolder(olFolderInbox).Items <br> Set AllContacts = _<br> mNameSpace.GetDefaultFolder(olFolderContacts).Items <br> Combo1.Clear <br> For Each mcontact In AllContacts<br> Combo1.Addltem mcontact.FullName<br> If Combo1.List(Combo1.NewIndex)= _<br> Combo1.List(Combo1.NewIndex + 1) Then _ <br> Combo1.RemoveItern Combo1.NewIndex <br> Next<br> Combo1.ListIndex = 0 <br> Exit Sub<br> OutlookNotStarted:<br> MsgBox "Could not start Outlook"<br> ' (He удалось запустить Outlook) <br> Exit Sub <br> NoMAPINameSpace:<br> MsgBox "Could not get MAPI NameSpace"<br> ' (He удалось получить место расположения MAPI) <br> Exit Sub<br> End Sub<br> <b>Фильтрация сообщений</b><br> Пользователь может выбирать имя и (или) диапазон дат для сужения области поиска. Если флажки "From this Sender (От данного отправителя)" и "Between this dates (Между этими датами)" сброшены, то щелчок на кнопке Show Selected Messages приведет к выводу в окно элемента управления List Box информации обо всех сообщениях, находящихся в папке InBox. Если установить один или оба флажка, то программа выведет информацию только о тех сообщениях, которые соответствуют указанным критериям.<br> <br> Чтобы отфильтровать сообщения, следует воспользоваться методами Find и FindNext объектной переменной AllMessages. Переменная AllMessages объявлена как переменная типа Item. Объект Item поддерживает эти два метода для получения выбранных сообщений. Синтаксис метода Find имеет вид:<br><br> Items.Find(filterstring)<br><br> где filterstring — это выражение, которое задает критерий фильтрации. Метод Find возвращает объект, тип которого зависит от типа семейства Items. Если метод Find применяется к папке InBox, то будет возвращен объект Mailltem, если же этот метод применяется к папке Contacts, то будет возвращен объект Contactltem. После того как найден первый соответствующий критерию объект, оставшиеся могут быть получены вызовом метода FindNext, причем, без указания параметров.<br><br> Параметр filterstring — это строковое выражение, в котором объединены имена полей, логические операции и константы. Чтобы получить информацию о сообщениях, отправленных из Site Builder Network, необходимо набрать следующую строку:<br><br> "[SenderName] = "Site Builder Network"<br><br> Чтобы получить список всех сообщений, отправленных в октябре 1998 года, следует набрать следующую строку:<br><br> "[SentOn] >= ""10/01/98"" And [SentOn] <=""10/31/98""<br><br> (Последовательно набранные двойные кавычки указывают на внедренные двойные кавычки, которые вставлены в строку с помощью выражения Chr(34).)<br><br> Количество объединяемых критериев поиска зависит только от запросов пользователя. Имена полей для каждого типа объекта могут быть найдены в Object Browser. Выбрав желаемый объект (например, Mailltem или Contactltem), можно просмотреть список его свойств на Панели Members.<br><br> В проекте Messages при построении строки-фильтра используются значения различных элементов управления формы. Сначала проверяются значения введенных дат, а затем формируется строка фильтра:<br><br> If chkCompany.Value And Combo1.ListIndex >= 0 <br><br> Then ContactName = Combo1.Text<br><br> filterString = "[SenderName] = """ & ContactName S """" <br><br> <br> End If <br><br> If chkDate.Value Then<br><br> If filterString = "" Then<br><br> filterString = "[SentOn] >"""&_ <br><br> DateFrom.Text & """ And [SentOn] <"""&_ <br><br> DateTo.Text & """" <br><br> Else<br><br> filterString = filterString & " and _<br><br> [SentOn] > """ & DateFrom.Text & """ _ <br><br> And [SentOn] < """ & DateTo.Text & """" <br><br> End If <br><br> End If <br><br> If filterString = "" Then<br><br> filterString = "[SentOn] > ""01/01/1980""" <br><br> End If<br><br> Обратите внимание на обилие кавычек в выражениях. Два символа двойных кавычек необходимы для вставки символа кавычки в строку. Если значение переменной ContactName равно "Sybex" то выражение:<br><br> "[SenderName] = """ & ContactName & """" <br><br> приведет к появлению следующей строки:<br><br> [SenderName] = "Sybex"<br><br> Переменная<br><br> filterstring<br><br> формируется медленно, в соответствии со значениями, введенными пользователем в окне формы. Если пользователь определяет имя, то оно присваивается свойству SenderName. Если пользователь определяет даты, то они присваиваются соответственно свойству SentOn.<br><br> Затем переменная filterstring<br><br> передается методу Find объекта AllMessages. Программа просматривает в цикле отфильтрованные сообщения, вызывая метод FindNext. После каждой итерации в окне элемента управления ListBox отображается отправитель очередного сообщения и тема. В это же самое время выбранные сообщения присоединяются к семейству Selectee/Messages:<br><br> Set thismessage = AllMessages.Find(filterString) <br><br> If thismessage Is Nothing Then<br><br> MsgBox "No messages sent in the specified interval"<br><br> ' (В указанном интервале сообщений не было) <br><br> Else<br><br> List1.Clear <br><br> While Not thismessage Is Nothing<br><br> List1.AddItem thismessage.SenderName & _<br><br> Chr(9) & thismessage.Subject <br><br> SelectedMessages.Add thismessage <br><br> Set thismessage = AllMessages.FindNext <br><br> <br> Wend<br><br> End If<br><br> Остальная часть программы проста. Если выполнить щелчок на объекте, находящемся в окне элемента управления ListBox, программа повторно вызывает из семейства SelectedMessages выбранный объект и отображает его основные поля в окне соответствующего элемента управления Label в нижней части экрана и, собственно, текст сообщения - в окне элемента управления TextBox (при этом его свойству Locked должно быть присвоено значение True, чтобы предотвратить редактирование сообщения). Ниже приведен текст программы обработчика события Click элемента управления ListBox.<br><br> <b>Программа 14.23.</b> Просмотр объекта<br><br> Message<br><br> Private Sub List1_Click() <br><br> Dim thismessage As Object <br><br> Dim MessageAttachments As Attachments<br><br> selectedEntry = Listl.Listlndex + 1 <br><br> If selectedEntry < 1 Then Exit Sub <br><br> Set thismessage = SelectedMessages.Item(selectedEntry) <br><br> lblSender.Caption = " " & thismessage.SenderName <br><br> lblSent.Caption = " " & thismessage.SentOn <br><br> lblRecvd.Caption = " " & thismessage.ReceivedTime <br><br> txtBody.Text = " " & thismessage.Body<br><br> Set MessageAttachments = thismessage.Attachments <br><br> If MessageAttachments.Count = 0 Then<br><br> Command4.Enabled = False <br><br> Else<br><br> Command4.Enabled = True <br><br> End If<br><br> End Sub<br><br> Откройте проект Messages в Visual Basic, чтобы исследовать текст программы и ознакомиться с тем, как программа объединяет объекты папки Contacts и использует их для получения информации о E-mail-объектах из папки InBox. Теперь можно изменять программу с целью добавления большего количества критериев выбора или обеспечения возможности работы с различными папками (например, папкой OutBox или подпапками в папке InBox).<br><br> Предупреждение<br><br> В проекте Messages для отображения имен возможных отправителей почтового сообщения используется свойство контактов FullName. Если имена, использованные в папке Contacts, не соответствуют именам отправителей во входящих сообщениях, то программа не будет выбирать все сообщения, которые ожидались. Имеется много методов установления соответствия контактов и сообщений, но они требуют дополнительных затрат. Например, можно использовать адрес электронной почты каждого контакта, поскольку это общий признак, имеющийся у документа, находящегося как в папке Contacts, так и папке InBox. Но контакт может иметь несколько адресов электронной почты, поэтому следует удостовериться, что поиск выполняется по всем адресам электронной почты выбранного контакта.<br><br> <br> <b>VB6 в действии</b>: проект AutoMssg<br><br> Приложение AutoMssg демонстрирует процесс создания сообщения электронной почты с помощью VB-приложения и рассылки его с помощью Outlook. Кроме того, в нем демонстрируется альтернативный способ получения информации о контактах и организации хранения этой информации. Сначала приложение отыскивает только названия компаний и отображает их в списке Companies. Пользователь может выбрать компанию и просмотреть ее контакты, используя список Contacts. Чтобы добавить новые имена в список получателей, пользователь должен выполнить двойной щелчок в окне списка Contacts. Список получателей отсортирован, но допускает повторяющиеся пункты. Это связано с тем, что человека с фамилией, например, Смит, можно обнаружить почти в каждой второй компании, поэтому удаление повторяющихся элементов на основании информации о фамилиях получателей — не самая удачная идея Вывод дополнительной информации, делающей каждый пункт списка уникальным, привел бы к загромождению экрана. Поэтому в данном проекте используется сортируемый элемент управления ListBox, в котором содержатся повторяющиеся имена, а пользователю предоставлена возможность выбора.<br><br> Программа проекта AutoMssg достаточно проста и здесь не приводится. Можно открыть проект в Visual Basic и ознакомиться с тем, как выполняется обработка сообщения.<br><br><br> <h1>Использование гиперссылок в приложениях</h1> Visual Basic<br> Одна из наиболее привлекательных возможностей Web-страниц — гиперссылки, позволяющие соединять страницы, находящиеся в World Wide Web. Ниже приведен пример использования гиперссылок, как части интерфейса пользователя приложения Visual Basic.<br> <b>VB6 в действии: проект DemoPage</b><br> Приложение DemoPage показано на рис. 21.5 и находится на прилагаемом компакт-диске. Оно состоит из двух форм:<br> • VBForm;<br> • WebForm.<br> Основная форма - VBForm - используется для построения простых фигур методами Visual Basic WebForm воспроизводит HTML-документ, который содержит команды Visual Basic (методы для рисования). HTML-документ содержит команды и несколько гиперссылок. При активизации гиперссылки новый документ не воспроизводится. Вместо этого рисуется фигура на первой форме.<br> Разработаем две формы (см. рис. 21.5). Основная форма содержит вверху элемент управления Label, на котором отображается команда. Вторая форма (WebForm) -элемент управления WebBrowser, на котором воспроизводится страница Demo.htm.<br> После загрузки первая форма загружает вторую и воспроизводит HTML-документ на элементе управления WebBrowser. Весь код формы VBForm размещен в событии Load.<br> <b>Программа 21.5.</b> Событие Load<br> Private Sub Form_Load() <br> Dim target<br> target = App.Path & "\Demo.htm"<br> WEBForm.WebBrowser1.Navigate.target<br> WEBForm.Show <br> End Sub<br> <div style="text-align:center;"><img src="image/index-image160.gif" alt="Использование гиперссылок в приложениях"></div><br> <b>Рис. 21.5.</b> Две формы приложения DemoPage<br> Чтобы избежать абсолютных ссылок, предполагается, что HTML-документ (файл Demo.htm) сохранен в папке проекта. Полная страница Demo htm показана на рис. 21.6.<br> <div style="text-align:center;"><img src="image/index-image161.gif" alt="Использование гиперссылок в приложениях"></div><br> <b>Рис. 21.6.</b> Страница Demo htm в Internet Explorer<br> <b>Программа 21.6.</b> Приложение Demo Page<br> <HTML> <br> <TITLE>Demo Page</TITLE><br> <BODY><br> <CENTER><br> <Hl>Graphics Demo Page</Hl><br> </CENTER><br> The hyperlinks on this page contact the VBForm  and draw various shapes on it.<br> <b><</b>P<b>> </b><br> <H3>Circles</H3><br> The Visual Basic method for drawing circles on a     Form or <br> PictureBox control is called Circle and its syntax is:<br><br><br> <CODE>Circle(X, Y), R</CODE> <br><br><br> X and Y are the center's coordinates and R is the circle's <br><br> radius. <br><br><br> <A HREF="http://127.0.0.1./demo.htm#circle">Draw A Circle</A><br><br> <H3>Squares</H3><br><br> To draw squares use the Line method, whose syntax is:<br><br><br> <CODE>Line(X1, Yl) - Step(X, Y)</CODE><br><br><br> X1 and Y1 are the coordinates of the upper left corner of the <br><br> square and X and Y are the square's dimension.<br><br><br> <A HREF="http://127.0.0.1./demo.htm#box">Draw A Square</A><br><br> </BODY> <br><br> </HTML><br><br> Приложение использует событие BeforeNavigate2 для определения активизированной гиперссылки, затем отменяет переход к этой ссылке и выполняет некоторое действие на первой форме (отображает команду на элементе управления Label и рисует фигуру). Гиперссылки могут быть неверными. Однако событие BeforeNavigate2 не наступает до тех пор, пока гиперссылка не укажет на допустимый URL.<br><br> Далее показано определение двух гиперсвязей. Адреса гиперссылок содержат информацию о виде отображаемой формы.<br><br> <A HREF="http: //127.0.0.1/demo.htm#circle">Draw A Circle</A> <br><br> <А HREF="http: //127.0.0.1/demo.htm#box">Draw A Square</A><br><br> HTML-документ не содержит никаких указаний на имена "circle" и "box", но они и не нужны. Элемент управления WebBrowser генерирует сообщение об ошибке, но все, что действительно нужно получить - это имя точки привязки. Адрес сервера – это IP-адрес локальной машины (127.0.0.1), который является допустимым именем сервера. Посмотрим, как код события BeforeNavigate2 вызывает действия, происходящие на другой форме.<br><br> <b>Программа 21.7.</b> Событие BeforeNavigate2<br><br> Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object,_ <br><br>  URL As Variant, Flags As Variant, _<br><br> TargetFrameName As Variant, PostData As Variant, _<br><br> Headers As Variant, Cancel As Boolean) <br><br> Dim Position As Integer, Shape As String <br><br> <br> On Error Resume Next<br><br> If UCase(Right$(URL,8)) <> "DEMO.HTM" Then Cancel = True<br><br> Position = InStr(URL, "#") <br><br> Shape = Mid$(URL, Position + 1) <br><br> If Shape = "circle" Then<br><br> VBForm.CIs<br><br> VBForm.Circle(VBForm.Width / 2, VBForm.Height / 2), _<br><br> VBForm.Height / 3<br><br> VBForm.Label1.Caption = "Circle(Width / 2, Height / 2),  <br><br>   _<br><br>    Height / 3" <br><br> End If<br><br> If Shape = "box" Then <br><br> VBForm.Cls<br><br> VBForm.Line(VBForm.Width / 4, VBForm.Height / 4) _<br><br>  -Step(VBForm.Width /<b> 2,</b> VBForm.Height / 2), , В VBForm.Label1.Caption = "Line(Width / 4, Height / 4) _<br><br>  -Step(Width / 4, Height / 4), , В" <br><br> End If <br><br> End Sub<br><br> Первый оператор отслеживает ошибку и указывает Visual Basic проигнорировать ошибки и продолжать выполнение со следующего оператора. Понятно, что ошибка непременно произойдет, так как обе привязки гиперссылок неправильные. Поэтому установка значения параметра Cancel в True отменяет передвижение. Условный оператор If проверяет, что другие (возможно допустимые) гиперссылки не отменены. Затем программа исследует последнюю часть адреса URL (правее символа #). Если это строка - "circle", то программа рисует окружность на форме VBForm и воспроизводит команду для рисования окружности на элементе управления Label. Если строка - "box", то рисует квадрат на форме и воспроизводит соответствующую команду на Labell.<br><br> Можно изменить приложение, добавив другие возможности, поместив подробную справочную информацию в HTML-документ и включив демонстрацию примеров. Описанный подход нельзя считать элегантным, поскольку гиперссылки не стали частью интерфейса Visual Basic. Приложение, тем не менее, показывает, как включить функциональные возможности гиперссылок в приложения Visual Basic.<br><br><br> <h1>Использование элемента управления</h1> Script<br> Элемент управления Script работает очень просто: запоминает процедуры и выполняет их в любое время. Также он вычисляет произвольные выражения и возвращает результат. Напишем несколько простых программ, в которых используется этот элемент управления<br> Чтобы использовать элемент управления Script в проекте, необходимо добавить его на панель элементов управления. Для этого выполните следующие действия.<br> <b>1</b>. Откройте новый проект.<br> <b>2</b>. Щелкните правой кнопкой мыши на панели элементов управления и из контекстного меню выберите команду Components для открытия соответствующего диалогового окна.<br> <b>3</b>. Установите флажок Microsof Script Control 1.0 (или более новую версию, если она доступна) и щелкните на кнопке ОК.<br> <b>4</b>. Как только элемент будет добавлен на панель элементов управления, поместите его экземпляр на форму.<br> Перечислим наиболее важные компоненты элемента управления<br> Script, которые используются в наших примерах.<br> <b>Метод ExecuteStatement</b><br> Этот метод выполняет один оператор и возвращает результат Он принимает единственный аргумент - оператор, который будет выполняться. Имеется оператор VBScript.<br> MsgBox "Programmers of the world unite!"<br> '(Программисты всех стран, объединяйтесь!)<br> Чтобы выполнить его (и вывести сообщение на экран), в метод ExecuteStatement передается строка statement, задающая этот оператор.<br> statement =<br> "MsgBox " & Chr(34) &<br> "Программисты всех стран, объединяйтесь!" & Chr(34)<br> ScriptControll.ExecuteStatement statement<br> Выражение Chr(34) добавляет двойные кавычки в строковую переменную. Другой подход — использовать две двойные кавычки подряд и объединить два оператора в один.<br> ScriptControll.ExecuteStatement _<br> "MsgBox "" Welcome to VBScript!"""<br> Возможности метода ExecuteStatement<br> не ограничиваются вызовом одной функции. VBScript позволяет поместить несколько операторов в одну строку, разделяя их двоеточием. Вот небольшой код на VBScript (пригодный для VB).<br> X=InputBox ("Enter a value from 0 to 5")<br> <br> WebBrowser<br> Элемент управления WebBrowser предназначен для создания собственных броузеров, так как он обладает всеми функциональными возможностями просмотра, присущими Internet Explorer. Можно задействовать кнопки Back и Forward, управлять доступом пользователя к узлам и многое другое.<br> Конечно же, элемент управления WebBrowser не обладает всеми возможностями Internet Explorer. Наиболее значительное ограничение — невозможность доступа к воспроизводимому документу и сохранение HTML-документа из кода программы. Хотя пользователь может открыть контекстное меню документа и выбрать View Source.<br> Рассмотрим два приложения, которые демонстрируют использование элемента управления WebBrowser в приложениях Visual Basic. Первое приложение является Web-броузером, во втором приложении показано, как использовать HTML-документ в приложениях Visual Basic и добавлять гипертекстовые ссылки.<br> <b>VB6 в действии: пользовательский Web-броузер</b><br> На рис. 21.4 продемонстрирован интересный подход к построению броузеров. Форма содержит элемент управления TabStrip с несколькими страницами, отображающими различные URL - локальные файлы или страницы с удаленных серверов. Можно использовать локальные файлы подсказки для вашего приложения или подсоединить пользователей приложения к Web-серверу для обеспечения их оперативной информацией.<br> Чтобы создать приложение SuperBrowser, выполните следующие действия.<br> <b>1</b>. Откройте новый Standart ЕХЕ-проект и добавьте элемент управления TabStrip к форме. Увеличьте размер формы, и растяните элемент управления TabStrip, чтобы он занял как можно большую часть формы. Можно оставить немного места для нескольких кнопок, например, Back и Forward (которые в этом примере не используются).<br> <b>2</b>. Если панель элементов управления не содержит значок WebBrowser, то добавьте его, используя диалоговое окно Components (выберите элемент управления Internet Controls из списка доступных элементов управления). Придется также добавить элемент управления TabStrip к панели элементов управления, используя диалоговое окно Component.<br><br> <br> Rates<br> Перед исследованием кода элемента управления, рассмотрим его использование в тестовом проекте. Тестовый проект состоит из одиночной формы, которая содержит образец элемента управления Rates и кнопку Get Rates. Когда кнопка нажата, элемент управления связывается с Web-сервером и запрашивает курсы обмена различных валют. Код обработчика щелчка на кнопке Get Rates вызывает метод DownLoadRates, передавая URL текстового файла в качестве параметра.<br> Private Sub bttnGetRates_Click()<br> RateControll.DownloadRates ("http://127.0.0.I/rates.txt") <br> End Sub<br> Файл Rates.txt, используемый в этом примере, находится в корневой папке Web-сервера, который установлен на компьютере. Если на используемом компьютере или другом компьютере в локальной вычислительной сети установлен Internet Information Server или Personal Web Server, то необходимо поместить туда файл Rates.txt и соединится с сервером для его загрузки. Адрес 127.0.0.1 является адресом локальной машины. Если Web-сервер отсутствует, то чтобы узнать, как записать файл на сервер провайдера интернета смотрите инструкции, приведенные в параграфе " Тестирование элемента управления Rates".<br> Примечание<br> Не пытайтесь пока проверять проект Rates. Этот элемент управления должен найти информацию на HTTP-сервере: необходимо обеспечить наличие URL для метода DownloadRates. В параграфе " Тестирование элемента управления Rates"<br> в конце главы показано, как поместить файл Rates.txt на сервере. Выполните инструкции, приведенные в этом параграфе, а затем запустите проект Rates.<br><br> <br><br> <h1>Использование элементов управления</h1> ActiveX в других проектах<br> Добавляя тестовый проект в проект элемента управления, можно конструировать и испытывать элемент управления в одной и той же среде. Это, действительно, очень удобно, однако в таком виде элемент управления не может использоваться в других проектах. После запуска другого экземпляра Visual Basic и попытки добавить созданный элемент управления в панель элементов управления, элемент FLEXLabel в диалоговом окне Component просто не виден. Обычный проект видит только те компоненты, которые были зарегистрированы в системе.<br> Чтобы зарегистрировать созданный элемент управления, необходимо создать соответствующий ОСХ-файл. Выберите команду Make FIxLabel ocx меню File ОСХ-файл - это все, что необходимо, чтобы включать элемент управления в другие проекты ОСХ-файлы могут быть расположены в любом месте на диске, но чаще всего находятся в подпапке System папки Windows. Можно создать ОСХ-файл в той же самой папке, в которой находится проект. При создании ОСХ-файла Visual Basic регистрирует его в системном реестре. Следовательно, не следует в дальнейшем перемещать созданный ОСХ-файл. Для того чтобы получить возможность использования элемента управления в новых проектах, выполните следующие действия.<br> <b>1</b>. Откройте новый Standard ЕХЕ-проект и добавьте новый элемент управления в панель элементов управления.<br> <b>2</b>. Щелкните правой кнопкой на панели элементов управления и выберите из появившегося меню пункт Components для вывода одноименного диалогового окна.<br> <div style="text-align:center;"><img src="image/ispolzovanie-jelementov-upravlenija_1.gif" alt="Использование элементов управления"></div><br> <b>3</b>. Отметьте флажок FLEXLABEL и щелкните на кнопке ОК. На панели элементов управления появится пиктограмма специального элемента управления. Обратите внимание, что имя элемента управления то же, что и имя проекта.<br> Если, используя эту пиктограмму, поместить элемент управления FLEXLabel на форму. Visual Basic автоматически назовет его Label3Dl (если это первый элемент управления на форме; второй будет назван Label3D2 и т. д.).<br> Созданный элемент управления был зарегистрирован в системном реестре на данном компьютере, но как быть с другими компьютерами? При распространении приложения, которое использует элемент управления, он должен быть установлен на компьютере до того, как приложение сможет его использовать. Для инсталляции элементов управления на других компьютерах можно использовать утилиту Regsvr32, передавая ей имя ОСХ-файла в качестве параметра. Предполагается, что файл FLXLABEL.OCX скопирован в подпапку System папки Windows. Используйте следующую DOS-команду для установки элемента управления на компьютер:<br> REGSVR32 FLXLABEL.OCX<br> Если ОСХ-файл располагается в иной папке, перейдите в эту папку и выполните следующую команду:<br> С:\WINDOWS\SYSTEM\REGSVR32 FLXLABEL.OCX<br> Чтобы удалить элемент управления из реестра Windows, используйте утилиту REGSVR32 с ключом /U. Следующая команда удаляет элемент управления FLXLabel из реестра:<br> С:\WINDOWS\SYSTEM\REGSVR32 FLXLABEL.OCX /U<br><br> <br><br> <h1>Использование конструктора</h1> ActiveX DataReport<br> Имеется еще одна важная операция, выполняемая при создании приложений для работы с базами данных - генерация отчетов. Генерация иерархических отчетов с вычислением итогов (например, отчетов для данных, возвращаемых иерархией объектов Command, созданных в предыдущем параграфе) и их распечатка - одна из основных задач разработчика. Понятно, что хотелось бы работать с утилитой, которая генерирует для нас отчеты только с помощью мыши и позволяет корректно их распечатывать. Второй конструктор ActiveX в Visual Basic 6 — DataReport Designer — предназначен именно для этого. Посмотрим, как конструктор DataReport создает отчет, основанный на иерархии объектов Command. Выполните следующие действия.<br> <b>1</b>. Сделайте активным проект Report и дважды щелкните на DataReport Designer в окне проводника проекта, чтобы открыть его. На экране появится шаблон отчета, который не соответствует созданной структуре иерархии объектов Command.<br> <b>2</b>. Откройте окно DataReport, чтобы подключить объект DataReport к объекту Command 1.<br> <b>3</b>. В окне Properties найдите свойства DataSource и DataMember и установите их в DataEnvironment 1 и Command-1 соответственно.<br> <b>4</b>. Щелкните правой кнопкой на объекте DataReport 1 и из контекстного меню выберите команду Retrieve Structure.<br> Структура иерархии объектов Command отобразится на объекте DataReport (рис. 18.11).<br> <div style="text-align:center;"><img src="image/index-image119.gif" alt="Использование конструктора"></div><br> <b>Рис. 18.11.</b> Объект DataReport после чтения структуры объектов Commandl<br> Полученный шаблон содержит отчет и заголовок страницы. Затем следуют заголовки двух групп для объектов Command 1 и Command2. Как видно, деталями отчета являются поля объекта Commands. После секции Detail следуют соответствующие нижние колонтитулы.<br> Оставьте заголовок отчета (Report header) пустым (позже можно поместить в него любые строки) и выполните следующие действия.<br> <b>1</b>. Чтобы удалить место, в котором обычно размещается Report header (даже если он пуст), щелкните на серой панели под секцией Report header (панель Page header), чтобы выделить ее.<br> <b>2</b>. Перемещайте указатель у верхней части панели, пока он не примет форму двойной стрелки.<br> <br> <b>3</b>. Нажмите кнопку мыши и переместите панель Page header вверх, чтобы удалить зазор между панелями.<br><br> Примечание<br><br> Секция Page header содержит номера страниц (и, возможно, другие пункты).<br><br> <b>4</b>. Чтобы показать в этом заголовке номер текущей страницы, щелкните правой кнопкой мыши в области Page header (пустое место под панелью с заголовком "Page Header").<br><br> <b>5</b>. Из контекстного меню выберите пункт Insert Control, чтобы открыть следующее подменю (рис. 18.12).<br><br> <div style="text-align:center;"><img src="image/ispolzovanie-konstruktora_1.gif" alt="Использование конструктора"></div><br><br> <b>Рис. 18.12.</b> Элементы управления, добавляемые в объект Report<br><br> <b>6</b>. Добавьте элемент управления Label, а затем - элемент управления Current Page Number.<br><br> На рис. 18.13 показан объект Report на последней стадии разработки. Можете использовать этот рисунок в качестве руководства в процессе конструирования вашего отчета.<br><br> Элемент управления Label, добавленный в отчет, напоминает стандартный элемент управления Label. Называется он rptLabel,<br><br> и у него не так много свойств, как у обычного элемента управления Label. Но их достаточно для того, чтобы определить его внешний вид в отчете. Можно перемещать его с помощью мыши, изменять размер и задавать основные свойства (Font и Caption), используя окно Properties. Это справедливо и для элемента управления Current Page Number. Можно задавать его свойства Font, ForeColor и Caption. По умолчанию Caption установлен в %р — специальное значение, указывающее Visual Basic подставить номер текущей страницы.<br><br> <div style="text-align:center;"><img src="image/ispolzovanie-konstruktora_2.gif" alt="Использование конструктора"></div><br><br> <b>Рис. 18.13.</b> Проектирование отчета с помощью конструктора DataReport (окончательный вид отчета показан на рис. 18.14)<br><br> Первый заголовок группы (Group Header), соответствует полям объекта Command 1. Очевидно, что здесь необходимо поместить название компании (контактное имя и номер телефона) или другое поле, уникальное для каждого заказчика. Здесь же находятся итоговые поля TotalOrders и CustomerTotal.<br><br> Выполните следующие действия.<br><br> <b>1</b>. Поместите два больших элемента управления Label в область первого заголовка группы и установите их заголовки соответственно в<b> Total Orders </b>и<b> Customer Total.</b><br><br> <br> <b>2</b>. Откройте конструктор DataEnvironment1 и перетащите поля TotalOrders и CustomerTotal, расположенные под объектом Command 1, к двум элементам Label на первом заголовке группы. Выберите подходящий шрифт и выровняйте их.<br><br> Следующий заголовок соответствует объекту Command2. Этот объект содержит идентификаторы счетов (поле OrderID) и их итоги (поле OrderTotal). Разместите эти два поля в области второго заголовка группы. Переместите соответствующие поля под объектом Command2 в конструкторе DataEnvironmentI в область второго заголовка.<br><br> Если хотите печатать заголовки столбцов для этих двух полей, то поместите их в предыдущий заголовок группы (иначе они будут появляться перед каждым счетом). Разместите два других элемента управления Label и установите их заголовки соответственно в "Order ID" и "Order Total" (см. рис. 18.13).<br><br> Перейдем к секции Detail (Детали). Здесь должны быть поля объекта Command3 (этот объект использовался для вычисления итогов), но пока поля объекта Commands нас не интересуют. Поэтому в нашем отчете не будет секции Detail. Второй заголовок группы представляет собой суть секции Detail отчета (эта ситуация достаточно типична при разработке отчетов). Чтобы поэкспериментировать с секцией Detail, поместите в нее подробные сведения о счетах.<br><br> Установите высоту секции Detail в 0, передвинув разделитель этой секции вверх. В этом примере мы не используем нижние колонтитулы, но их можно настроить так же, как и заголовки. Вообще, можно поместить любой элемент управления, используя меню Insert, и манипулировать его свойствами с помощью окна Properties.<br><br> Чтобы вывести отчет на экран, вызовите метод Show объекта DataReportl. Разместите на форме командную кнопку, назовите ее<b> Report</b><br><br> и введите код обработчика ее события Click.<br><br> Private Sub Command1_Click()<br><br> DataReport1.Show <br><br> End Sub<br><br> Запустите проект снова, нажмите кнопку Report и вы увидите разработанный отчет в отдельном окне на экране (рис. 18.14). Две кнопки вверху окна DataReport позволяют распечатать его на любом принтере или экспортировать его в текстовый формат или формат HTML. Практически, конструктор DataReport сделал всю работу. Наиболее важный аспект этого процесса состоит в том, что распечатка отчета создавалась без написания какого-либо кода.<br><br><div style="text-align:center;"><img src="image/ispolzovanie-konstruktora_3.gif" alt="Использование конструктора"></div><br><br> <b>Рис. 18.14.</b> Окончательный вид отчета сгенерирован конструктором ActiveX DataReport<br><br><br> <h1>Использование мастера страницы свойств</h1> Для использования мастера страницы свойств выполните следующие действия.<br> <b>1</b>. Откройте проект FLEXLabel, если он еще не активен.<br> <b>2</b>. Выберите команду Property Page Wizard в меню Add-Ins, чтобы открыть диалоговое окно Add Property Page.<br> <b>3</b>. Выберите VB Property Page Wizard.<br> Мастер страницы свойств поможет по шагам создать страницы свойств элемента управления.<br> <b>Введение</b><br> Это вводное окно, которое, в дальнейшем, можно пропускать, отметив флажок Skip This Screen in Future.<br> <b>Выбор страниц свойств</b><br> <div style="text-align:center;"><img src="image/index-image063.gif" alt="Использование мастера страницы свойств"></div><br> В этом окне можно выбрать, какие из стандартных страниц свойств нужны конструируемому элементу управления. Сюда входят следующие страницы.<br> <b>•  StandardFont.</b> Позволяет устанавливать шрифт.<br> <b>•  StandardPicture.</b> Позволяет устанавливать свойства изображения.<br> <b>•  StandardColor.</b> Позволяет устанавливать цвет.<br> Для нашего элемента управления нужна страница<br> StandardColor, плюс специальная страница, которую можно добавить, нажав кнопку Add. Мастер при этом запрашивает имя новой страницы. Введите TextProperties и нажмите кнопку Next.<br> Понятно, почему мастер выбрал страницу StandardColor? Элемент управления имеет свойства Backcolor и ForeColor, которые устанавливаются через страницу свойств StandardColor. Если страница свойств для этих свойств не нужна, очистите флажок, который стоит перед именем страницы свойств. Но нам она нужна для установки цвета, поэтому оставьте эту страницу отмеченной. Кроме того, можно также переименовывать страницы свойств с помощью кнопки Rename.<br> <b>Связывание свойств со страницами свойств</b><br> <div style="text-align:center;"><img src="image/ispolzovanie-mastera-stranicy-svojstv_1.gif" alt="Использование мастера страницы свойств"></div><br> В этом окне задаются свойства, которые необходимо отобразить на каждой странице свойств. Мастер уже связал свойства цвета со страницей StandardColor, свойства шрифтов со страницей StandardFont, а свойство Picture со страницей StandardPicture. Но специальные свойства не были связаны ни с одной страницей, потому что мастер не знает, кому они принадлежат. Добавить свойство Caption к странице Text можно следующим образом.<br> <b>1</b>. Выберите вкладку Text.<br> <b>2</b>. Выберите свойство Caption из списка слева и нажмите кнопку с одиночной стрелкой вправо, чтобы добавить свойство к странице свойств Text<br> <br> <b>3</b>. Щелкните на кнопке Next, чтобы перейти на последнюю страницу мастера, и затем щелкните на кнопке Finish.<br><br> При более тщательном рассмотрении этого окна мастера можно обратить внимание на некоторую странность. В списке доступных свойств появились не все специальные свойства. Вместо этого появились имена других свойств. Мастер не может обрабатывать свойства нестандартного типа. TextAlignment и Effect — специальные (пользовательские) типы данных (перечислимые типы AJign и Effects, которые определены в коде), поэтому они пропущены. Если нужна страница свойств, на которой разработчик может задавать вид элемента управления, нужно добавить свойства TextAlignment и Effect на страницу Text. К сожалению, нет возможности добавить эти свойства посредством мастера. Придется сделать это вручную.<br><br> Но сначала давайте посмотрим, что сделал для нас мастер. Выполните следующие действия.<br><br> <b>1</b>. Переключитесь на тестовую форму и щелкните правой кнопкой мыши на элементе управления FLEXLabel.<br><br> <b>2</b>. Из меню выберите Properties (Свойства), чтобы просмотреть две страницы свойств, показанные на рис. 16.10 и 16.11.<br><br> <div style="text-align:center;"><img src="image/index-image065.gif" alt="Использование мастера страницы свойств"></div><br><br> <b>Рис. 16.10.</b> Страница свойства Color элемента управления FLEXLabel<br><br> <div style="text-align:center;"><img src="image/ispolzovanie-mastera-stranicy-svojstv_2.gif" alt="Использование мастера страницы свойств"></div><br><br> <b>Рис. 16.11.</b> Страница свойства Text Properties элемента управления FLEXLabel<br><br> Страница Color выглядит хорошо, а вот страница Text Properties нуждается в улучшении. Мастер только поместил на страницу элемент Label и элемент TextBox, a теперь необходимо помимо настройки этих элементов написать соответствующий код.<br><br> Вкладка Color имеет список свойств, который содержит имена свойств, связанных с цветом. Если создать еще несколько таких свойств, то они появятся на этой же странице. Чтобы назначить новое значение свойству, сделайте одно из двух:<br><br> •  выберите свойство, а затем выберите стандартный цвет из палитры Windows, или<br><br> •  создайте свой цвет нажатием кнопки Edit Custom Color.<br><br> Новый цвет появляется перед именем свойства в списке. При нажатии кнопки Apply соответствующая часть элемента управления будет перерисована в соответствии с новой установкой. Страница Text Properties позволяет определять значение свойства Caption, вводя значение в элемент управления TextBox. Поэкспериментируйте с другими вкладками страниц свойств, чтобы посмотреть, как они себя ведут.<br><br> <br> В окно Project мастер добавил другую папку - Property Pages. Эта новая папка содержит файл свойств Caption. Выполните на ней двойной щелчок и страницы откроются в режиме конструирования. Обратите внимание, что кнопки OK, Cancel и Apply не являются частью формы. Они принадлежат элементу управления TabStrip, который отображает страницы свойств во время выполнения (этот элемент управления не доступен и не может быть даже настроен). Кроме того, нет формы для свойств Font, Color и Picture. Это стандартные страницы свойств и они управляются Visual Basic. Модифицировать страницы, сгенерированные мастером, нельзя, однако можно создать свою страницу для выбора цвета, если уж не нравится имеющаяся.<br><br> Итак, исследуем код, созданный мастером для страницы свойств CaptionProperties.<br><br> <b>Программа 16.10.</b> Станица свойств CaptionProperties<br><br> Private Sub txtCaption_Change()<br><br> Changed =<br><br> True <br><br> End Sub<br><br> Private Sub PropertyPage_ApplyChanges ()<br><br> SelectedControls(0).Caption = txtCaption.Text <br><br> End Sub<br><br> Private Sub PropertyPage_SelectionChanged ()<br><br> txtCaption.Text = SelectedControls(0).Caption <br><br> End Sub<br><br> Подпрограмма txtCaption_Change() вызывается каждый раз, когда пользователь что-либо печатает в поле txtCaption. Устанавливая переменную Changed в Тruе, код разблокирует кнопку Apply (которая заблокирована до тех пор, пока свойство Caption не изменится). Visual Basic использует свойство Changed для определения момента разблокирования кнопки Apply.<br><br> Конечно, новые установки не применяются к элементу управления автоматически. Код, который фактически производит изменения, должен быть вставлен в обработчик события PropertyPages_ApplyChanges, которое вызывается каждый раз, когда нажимается кнопка Apply. Это событие и модифицирует свойства элемента управления. Поскольку страница свойств является отдельной формой, она не может знать, какой элемент управления выбран в данный момент (поскольку на форме может присутствовать несколько экземпляров одного элемента управления). Из-за этого для доступа к выбранному элементу управления код использует объект SelectedControls() - семейство, которое представляет собой все выбранные элементы управления на форме. Заметим, что элемент семейства с индексом 0 является первым выбранным элементом управления.<br><br>И, наконец, событие PropertyPage_SelectionChanged() вызывается всякий раз, когда пользователь выбирает другую вкладку страницы свойств. Это хорошее место для размещения кода инициализации. Код обработчика процедуры PropertyPage_SelectionChanged() присваивает текущие установки свойству Caption выбранного элемента управления элементу TextBox, в котором пользователю предлагается ввести новое значение свойства.<br><br><br> <h1>Использование метода</h1> HitTest<br> Для работы с различными элементами управления можно использовать метод HitTest, который позволяет обнаруживать объект, заданный координатами точки. Этот метод использовался в проекте LVWDemo (см. гл. 8). Сейчас же рассмотрим метод HitTest подробнее, чтобы увидеть, как он использован совместно с функцией GetCursorPos().<br> Метод HitTest применяется только по отношению к некоторым элементам управления, являющимся контейнерами. Например, объект<br> ListView может содержать несколько объектов Listltem. Когда пользователь выполняет двойной щелчок в окне объекта ListView, вызывается событие DblClick,<br> но с его помощью нельзя определить место, где был выполнен щелчок. Чтобы выяснять, на каком именно объекте был выполнен двойной щелчок, следует использовать функцию GetCursorPos(). Она позволяет определить координаты указателя и передать их методу HitTest, который возвратит ссылку на объект, расположенный в указанном месте.<br> Вернемся к проекту LVWDemo и рассмотрим обработчик события DblClick в объекте ListView. Окно объекта ListView заполнено названиями компаний и связанными с ними данными. Поскольку эти объекты отображаются в виде значков (рис. 13.6), то нужно определить, на каком именно значке был выполнен щелчок (или двойной щелчок). Об отслеживании одиночного щелчка "беспокоится" обработчик события ItemClick,<br> генерирующий соответствующее сообщение. Обработчик события ItemClick объявляется следующим образом.<br> Private Sub ListViewl_ItemClick(ByVal Item As ComctLib.Listltem)<br> Однако обработчик события ItemDblClick отсутствует, вместо него объявлен обработчик события DblClick.<br> Private Sub ListViewl_DblClick()<br> Хотя обработчик события DblClick не позволяет получить сообщение об объекте, на котором он выполнен, обычной практикой является использование элемента управления ListView для реакции на двойной щелчок. При этом программа может косвенно обнаруживать объект, на котором выполнен двойной щелчок с помощью функции GetCursorPos() и метода HitTest. Чтобы определить координаты точки, в которой был выполнен двойной щелчок, выполните следующее.<br> <br> <div style="text-align:center;"><img src="image/ispolzovanie-metoda_1.gif" alt="Использование метода"></div><br><br> <b>Рис. 13.6.</b> Приложение LVWDemo использование функции GetCursorPos() для получения информации об объекте, на котором выполнен щелчок.<br><br> Сначала объявите в модуле функцию GetCursorPos() и структуру данных POINTAPI.<br><br> Type POINTAPI<br><br> х As Long<br><br> у As Long <br><br> End Type<br><br> Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" _ <br><br> (IpPoint As POINTAPI) As Long<br><br> В обработчике события DblClick необходимо организовать вызов функции GetCursorPosQ, чтобы выяснить координаты указателя в момент выполнения двойного щелчка.<br><br> GetCursorPos dPoint<br><br> Членами структуры dPoint являются координаты Х и Y указателя мыши, выраженные в пикселях в системе координат экрана. Другими словами, если функция GetCursorPosQ вызывается из обработчика события DblClick элемента управления ListView, то в результате она возвращает пару координат. Если после этого пользователь переместит форму (приложение) в другое место экрана, а затем выполнит двойной щелчок на том же значке, то координаты точки, в которой выполняется щелчок, изменятся. Следовательно, необходимо предусмотреть процедуру преобразования координат экрана в координаты окна приложения. Для этого нужно вычесть значения свойств Left и Тор окна приложения и элемента управления ListView в этом окне из значений соответствующих координат, возвращаемых функцией GetCursorPos().<br><br> X = dPoint.X - Me.Left – ListViewl.Left <br><br> Y = dPoint Y - Me.Top – ListViewl.Top<br><br> Однако данные действия не вполне корректны, поскольку координаты dPoint. Х и dPoint.Y заданы в пикселях, а все остальные координаты - в твипах (twips). Перед нахождением разности все координаты необходимо преобразовать в пиксели с помощью методов ScaleX и ScaleY. Ниже приведены выражения, позволяющие преобразовать экранные координаты во внутренние координаты элемента управления ListView<br><br> Х = dPoint.X - ScaleX(Me.Left + ListViewl.Left,<br><br> vbTwips, vbPixels) Y = dPoint.<br><br> Y = ScaleY(Me.Top + ListViewl.Top, _<br><br> vbTwips, vbPixels)<br><br> где Х и Y - координаты указателя в пикселях в момент выполнения двойного щелчка. Координаты (0, 0) соответствуют левому верхнему углу окна приложения. Значения переменных Х и Y должны быть переданы методу HitTest, возвращающему ссылку на объект, на котором выполнен двойной щелчок. Однако для обращения к методу HitTest требуется, чтобы координаты были определены в твипах. Вызов метода HitTest показан ниже.<br><br> <br> Set LItem = ListViewl.HitTest(ScaleX(X, vbPixels, vbTwips), <br><br> ScaleY(Y, vbPixels, vbTwips))<br><br> Значения переменных Х и Y сначала преобразуются в твипы, а затем передаются методу HitTest. В результате возвращается хранящаяся в переменной LItem ссылка на объект, на котором выполнен двойной щелчок. Эта переменная объявляется как Listitem.<br><br> Dim LItem As Listltem<br><br> Используя переменную LItem, можно получить доступ к свойствам объекта, на котором был выполнен двойной щелчок. Например, можно организовать подсветку этого элемента непосредственно из программы<br><br> LItem.Selected = True <br><br> или организовать чтение элементов нижнего уровня как членов семейства.<br><br> LItem.ListSubItems<br><br> Если двойной щелчок выполнен в пределах элемента управления ListView в месте, не содержащем объектов, то переменная LItem получит значение Nothing. В этом случае попытка обратиться к свойствам элемента управления приведет к ошибке выполнения. Чтобы избежать этого, используйте оператор<br><br> On Error Resume Next <br><br> и организуйте проверку значения переменной LItem.<br><br> On Error Resume Next <br><br> Set LItem = ListViewl.HitTest(ScaleX(X, vbPixels, vbTwips), _<br><br> ScaleY(Y, vbPixels, vbTwips)) <br><br> If LItem Is Nothing Then Exit Sub <br><br> (набор операторов, обеспечивающих доступ к значениям свойств LItem)<br><br> Ниже приведен текст программы обработчика события<br><br> DblClick элемента управления ListView. Этот фрагмент программы (без операторов, с помощью которых выполняется обработка членов переменной LItem} можно использовать непосредственно в пользовательской программе, если требуется организовать реагирование программы на двойной щелчок на ListView.<br><br> Программа 13.8. Обработчик события DblClick элемента управления ListView<br><br> Private Sub ListViewl_DblClick() <br><br> Dim dPoint As POINTAPI <br><br> Dim LItem As Listltem<br><br> GetCursorPos dPoint <br><br> X = dPoint.X - ScaleX(Me.Left + ListViewl.Left, vbTwips,<br><br> vbPixels)<br><br> Y = dPoint.Y - ScaleY(Me.Top + ListViewl.Top, vbTwips, vbPixels)<br><br> On Error Resume Next<br><br> Set LItem = ListViewl.HitTest(ScaleX(X, vbPixels, vbTwips),     _<br><br> <br> ScaleY(Y, vbPixels, vbTwips)) <br><br> If LItem Is Nothing Then Exit Sub<br><br> If ListViewl.View = Ivwicon Or ListViewl.View = IvwSmalllcon Then <br><br> LItem.Selected = True <br><br> msg = LItem.Text & vbCrLf <br><br> For i = 1 To LItem.ListSubItems.Count<br><br> msg = msg & "   " & LItem.ListSubItems(i).Text & vbCrLf <br><br> Next <br><br> MsgBox msg <br><br> End If <br><br> End Sub<br><br> Приведенный пример — не единственный способ использования метода HitTest (и даже не самый типичный). Впрочем, этот пример нетривиален, именно поэтому он столь подробно рассматривался. Этот метод был разработан в основном для обработки события DragDrop. Обработчик события DragDrop сообщает координаты точки, в которую помещен объект. Если объект операции перенести-и-оставить (drag-and-drop) находится в окнах элементов управления типа ListView или TreeView, то требуется знать элемент управления, на который был перемещен объект Ниже приведено объявление обработчика события DragDrop.<br><br> Private Sub TreeViewl _ DragDrop(Source As Control, x As Single,_ <br><br> у As Single)<br><br> Поскольку координаты точки, в которую перенесен объект, известны, их можно передать в метод HitTest. чтобы выяснить, на какой из элементов управления был перенесен объект. Заметьте: при этом не требуется преобразовывать или пересчитывать значения координат, поскольку обработчик события DragDrop возвращает их значения, выраженные во внутренней системе координат (в твипах).<br><br><br> <h1>Использование модуля класса</h1> Реализуем этот же проект, но с использованием модуля класса. Модуль класса полностью скрывает детали реализации. Он предоставляет через свой интерфейс некоторые функциональные возможности, и разработчику больше не нужно просматривать или редактировать его исходный программный код.<br> Предупреждение<br> При попытке открыть проекты примеров с компакт-диска (или из папки диска, куда они были скопированы), появится сообщение об ошибке, означающее, что проект ссылается на компонент, который недоступен. Каждый проект из этой главы создает новый класс, который неизвестен системе. Проигнорируйте это сообщение, откройте проект и добавьте к нему ссылку на класс.<br> Сохраните существующий проект и начните новый (это будет проект CTIMER из папки для этой главы на компакт-диске). Чтобы создать новый класс сделайте следующее:<br> <b>1</b>. В диалоговом окне New Project выберите ActiveX DLL. Visual Basic добавит папку Class Modules в окно Project Explorer, а в нее - модуль класса. Модуль класса называется по умолчанию Class 1. Проект ActiveX DLL не имеет форм.<br> <b>2</b>.  Измените свойство Name модуля класса на<b> CTimer.</b><br> <b>3</b>.  Для нового компонента будет отображено окно Code, так как модуль класса не        имеет визуального интерфейса.<br> <b>4</b>. Введите строки программного кода 15.3 в окно Code модуля классов. <br> <b>Программа 15.3.</b> Код класса CTimer<br> Dim totallnterval As Double <br> Dim Tl As Double<br> Public Sub StartCounting ()<br> Tl = Time <br> End Sub<br> Public Sub StopCounting()<br> totallnterval = totallnterval + Time - Tl <br> End Sub<br> Property Get ElapsedTime () As Double<br> ElapsedTime = totallnterval <br> End Property<br> Public Sub ResetTimer()<br> totallnterval - 0 <br> End Sub<br> Содержимое модуля классов очень напоминает содержимое обычного модуля, но не имеет общедоступных переменных. Переменная totallnterval не должна быть доступной из какой-либо процедуры за пределами модуля класса. Ее значение может быть прочитано только с использованием процедуры ElapsedTime(). Необходимо отметить, что это специальный тип процедуры, называемый Property Get (Получить свойство). Каждый раз, когда приложение пытается прочитать значение переменной totallnterval, вызывается процедура ElapsedTime(). Ее код считывает значение локальной переменной totallnterval<br> <br> и назначает его процедуре ElapsedTime(). Затем это значение передается в вызывающее приложение.<br><br> Когда приложение пытается установить значение свойства, вызывается похожая процедура<br><br> Property Let (Установить свойство).<br><br> Рассматриваемый класс не имеет свойств, которые можно установить таким образом, и в нем нет процедур Property Let. Обе процедуры (Property Let и Property Get) обсуждаются далее после рассмотрения небольшого примера. Они действуют подобно буферам обмена между классом и приложением, которое его использует. Поэтому приложение не может установить значение свойства непосредственно.<br><br> Примечание<br><br> Класс CTimer не предоставляет процедуру Property Let для свойства totallnterval. Как результат, это свойство доступно только для чтения.<br><br> Методы модуля класса идентичны методам модуля. Добавление метода к классу является таким же простым, как объявление общедоступной функции или процедуры. Любая процедура может стать методом класса, если она определена в модуле класса и объявлена как Public.<br><br> Примечание<br><br> Некоторые члены класса могут быть реализованы как методы или как свойства, и не всегда легко сказать, какой путь выбрать. К счастью, это не является настолько важным. Необходимо пытаться придерживаться парадигмы встроенных элементов управления или элементов управления "от третьего лица". Например, если класс является элементом управления ActiveX, то член, который хотелось бы видеть в окне Properties, должен быть реализован как свойство (обратное верно не всегда). Методы должны соответствовать действиям, а свойства — атрибутам. Схема наименований также важна. Имя, имеющее вид GetElapsedTime, наводит на мысль о методе, а имя ElapsedTime - ближе к свойству.<br><br><br> <h1>Использование набора записей</h1> В ASP-приложениях Recordset (Набор записей) используется для извлечения и отображения информации, а не изменения содержимого базы данных. Объект Recordset имеет два важных свойства:<br> <b>• CursorType,</b> указывающий на тип курсора (cursor), используемого с данным объектом;<br> <b>• LockType,</b> задающий тип блокировки при редактировании набора записей.<br> Описание этих свойств смотрите в гл. 18. Для перемещения по набору записей используются методы MoveNext (Перейти к следующей), MovePrevious (Перейти к предыдущей), MoveFirst (Перейти к первой), MoveLast (Перейти к последней). Можно создавать закладки для определенных записей, чтобы обращаться к ним незамедлительно. Для отображения всех записей данного набора используется следующий цикл.<br> <% <br> Do While Not SelRecords.EOF<br> {обработка полей}<br> SelRecords.MoveNext Loop <br> %><br> Чтобы получить доступ к полям Recordset, используйте имя набора и поля или порядковый номер поля в наборе. Например, для доступа к полю ProductName набора записей SelRecords используется такое выражение.<br> SelRecords ("ProductName")<br> Если поле ProductName является первым (это определяется предложением SELECT SQL-оператора), то используйте следующее выражение.<br> SelRecords(1)<br> Информации, предлагаемой в этой главе, достаточно для построения интерактивных ASP-приложений, которым доступны базы данных на сервере и отображающих выбранные записи. Далее мы покажем, как использовать эти объекты при построении активных серверных страниц. В наших примерах используется база данных NWIND и предполагается, что источник данных для нее настроен надлежащим образом.<br><br> <br><br> <h1>Использование операций перетащить-и-опустить в</h1> OLE<br> В гл. 4 рассматривалось программирование операций перетащить-и-опустить. С их помощью пользователь может "взять" элемент управления в форме и "положить" его в окно другого элемента управления (находящегося на той же или другой форме). Объект-получатель "знает", когда на него опушен другой объект, а его реакция на событие программируется. И все же разработчику необходимо добавить несколько строк в обработчик события Drag Drop.<br> Во многих приложениях допускается перетаскивание не только элементов управления, но и документов или их частей. Например, можно выделить блок ячеек рабочего листа Excel и перенести его в документ Word. Если для этой операции используется правая кнопка мыши, то можно выполнить связывание данных, содержащихся в документе-источнике, с документом-получателем. Эта операция называется OLE-операцией, так как она выполнима только между приложениями, поддерживающими OLE.<br> Чтобы добавить возможности OLE-переноса к некоторым элементам управления, размещенным на форме, необходимо установить значения следующих свойств элементов управления.<br> <b>• OLEDragMode.</b> Определяет, может ли элемент управления инициализировать операцию перетащить-и-опустить (подобно свойству DragMode). Может иметь значения 0 — Manual (Вручную) (элемент управления перемещается только под управлением программы) или 1 — Automatic (Автоматически) (элемент управления перемещается автоматически).<br> <b>•  OLEDropMode.</b> Свойство эквивалентное свойству DropMode Определяет, может ли элемент управления выступать в качестве адресата OLE-операции перетащить-и-опустить. Принимает следующие значения: 0 - None (Нет) (элемент управления не может быть адресатом), 1 - Manual (Вручную) (элемент управления должен быть запрограммирован для реагирования на OLE-операции перетащить-и-опустить) или 2 — Automatic (Автоматически) (элемент управления автоматически становится адресатом).<br> Простейший способ включения операции перетащить и-опустить в прило жение - это установка значения 1 (Automatic) для свойства OLEDragMode и значения 2 (Automatic) для свойства OLEDropMode.<br> <br> На рис. 14. 13 показано окно проекта OLEDDAUTO (см. папку Oledd на компакт-диске). Главная форма проекта содержит элементы управления RichTextBox, TextBox и PictureBox. Щелкните на кнопке Load Image, чтобы загрузить изображение в окно элемента PictureBox, и введите какой нибудь текст в окна элементов RichTextBox и TextBox. Можете открыть текстовый файл в окне элемента управления TextBox, щелкнув на кнопке Load Text File.<br><br> <div style="text-align:center;"><img src="image/ispolzovanie-operacij-peretashhit-i-opustit-v_1.gif" alt="Использование операций перетащить-и-опустить в"></div><br><br> <b>Рис. 14.13.</b> Проект OLEDDAUTO автоматическое выполнение OLE-перетаскивания<br><br> Если изображение переносится в окно элемента управления RichTextBox, то оно будет вставлено в текст в позиции расположения курсора. Можно взять часть текста из окна элемента TextBox и поместить его в окно RichTextBox: он также будет вставлен в место расположения курсора. Таким образом, используя установки Automatic для значений свойств OLEDragMode и OLEDropMode, можно вставить OLE операции перетащить и опустить непосредственно в приложение, не написав при этом ни одной строки кода.<br><br> Объект получатель OLE-операции должен быть в состоянии определять и отображать разнообразную информацию. С этой точки зрения, использование элемента управления RichTextBox представляется оправданным. В данном приложении также демонстрируется очень важное свойство элемента управления RichTextBox – OLEObjects. Свойство OLEObjects элемента управления RichTextBox является семейством, в которое входят все объекты данного элемента управления, кроме текста. Перетащите одно или два изображения в окно элемента управления RichTextBox приложения OLEDDAUTO. Затем перетащите несколько файлов с рабочего стола или из любой папки. Проверьте, что приложение и окно папки, содержащее требуемый файл, отображается на экране, а затем перетащите значок файла в окно элемента управления RichTextBox. Чтобы поместить текст в окно элемента управления TextBox, выделите его с помощью мыши и перетащите в окно элемента управления RichTextBox.<br><br> После того как объекты помещены в окно элемента управления RichTextBox, щелкните на кнопке List All Object Files. Вы увидите описание каждого объекта, находящегося в окне элемента управления. Программа обслуживания командной кнопки просматривает семейство OLEObjects и выводит в окне проверки значение свойства Class каждого элемента. Для растровых изображений значением свойства Class является StaticDIB.<br><br>Элементы семейства OLEObjects имеют и другие свойства, например, свойство DisplayType<br><br> (определяет, в каком виде объект отображается в окне элемента управления — в виде значка или содержимого) и семейство ObjectVerbs (содержащий все команды-глаголы, распознаваемые объектом). Чтобы узнать, какие действия может выполнять встроенный объект, вызовите метод Fetch Verbs.<br><br> Set AllVerbs = RichTextBoxl.OLEObjects (1).FetchVerbs <br><br> For i = 1 to AliVerbs.Count<br><br> {перечисление всех команд}<br><br> (на каждой итерации выводится значение AllVerbs(i)} <br><br> Next<br><br> Следующий оператор используется для выполнения специфического действия (например, Play для мультимедиа-файла) над одним объектом.<br><br> RichTextBoxl.OLEObjects(1).DoVerb("Play")<br><br><br> <h1>Использование сценариев</h1> Поначалу роль броузера сводилась к воспроизведению Web-страницы на компьютере клиента. Web-страницы — это простые текстовые файлы с текстом и информацией о том, как текст появляется в окне броузера. HTML — это такой же язык форматирования документов, как и RTF (Rich Text Format — расширенный текстовый формат). Он не является языком программирования. Отображение на экране Web-страницы в окне броузера напоминает воспроизведение RTF файла в элементе управления RichTextBox. Нельзя использовать HTML для выполнения даже простых вычислений, например, для сложения или отображения названия дня недели в окне броузера.<br> Большинство клиентских компьютеров обладает мощностью гораздо большей, чем требуется для простого отображения документов на экране. Для использования вычислительной мощности клиентов были введены языки написания сценариев, наиболее простым из которых является VBScript. Написание сценариев позволяет Web-разработчикам создавать динамические структуры, вставляя исполняемый сценарий прямо в HTML-страницу. Можно использовать VBScript для программирования элементов Web-страницы так же, как и приложения сервера (используя Сервер активных страниц (CGI)). Позже мы расскажем, как Web-страница может взаимодействовать с броузером, используя сценарии, и как некоторые вычисления, обычно выполняющиеся на сервере, выполняются клиентом.<br><br> <br><br> <h1>Использование SQL-операторов</h1> Теперь, когда основные SQL-операторы известны, извлечем данные из баз, используя приложение SQLExec (см. параграф " VB6 в действии: проект SQLExec" этой главы). Как использовать SQL-операторы в собственном приложении?<br> SQL операторы — это определения объектов RecordSet. Свойство RecordSet элемента управления Data не обязательно должно быть именем таблицы. Как правило, оно содержит только определенные строки таблицы или объединяет данные более чем одной таблицы. Набор записей, который выбирает SQL-оператор из базы данных, назначается элементу управления Data. Рассмотрим простой пример.<br> Приложение Data1, рассмотренное ранее в главе, отображает несколько полей из таблицы Customers базы данных NWIND. Свойство RecordSource элемента управления Data установлено на имени таблицы Customers, выбранном из раскрывающегося списка. Список рядом с именем свойства RecordSource в окне Properties — комбинированный список. В него можно вводить данные.<br> Предположим, необходимо, чтобы приложение Datal отобразило имена заказчиков только из Германии. Чтобы выбрать часть таблицы, задайте SQL-оператор, который создаст соответствующий RecordSet в свойстве RecordSource. Выполните следующие действия.<br> <b>1</b>. Откройте приложение Datal и выберите элемент управления Data.<br> <b>2</b>. В окне Properties найдите свойство RecordSource и введите следующий SQL-оператор (рис. 17.17).<br> SELECT * FROM Customers WHERE Country = "Germany"<br> <b>3</b>. Запустите приложение и используйте кнопки элемента управления Data для перемещения по именам заказчиков из Германии.<br> <div style="text-align:center;"><img src="image/ispolzovanie-sql-operatorov_1.gif" alt="Использование SQL-операторов"></div><br> <b>Рис. 17.17.</b> Чтобы получить RecordSet (часть таблицы или объединение нескольких таблиц), присвоите свойству RecordSource SOL-оператор<br> Так как SQL-операторы распространены при работе с базами данных, допускается их непосредственное включение в базы данных. Если открыть список свойства RecordSource элемента управления Data, соединенного с базой данных NWIND, то видно, что он содержит не только имена таблиц. Он содержит имена SQL операторов, сохраненных непосредственно в базе данных. Например, элемент Category Sales for 1995 (категории товаров, проданных в 1995г.) не является именем таблицы. Это — имя запроса, который возвращает уровень продаж за 1995 год, сгруппированный по категории изделия. Если назначить этот объект свойству RecordSource, то поля результирующего RecordSet появятся в списке свойства DataField элемента управления, связанного с данными. В запросе Category Sales for 1995 имена полей, отображаемых в связанных с данными элементах управления — это CategoryName и CategorySales.<br><br> <br><br> <h1>Использование связанного с данными элемента управления</h1> List<br> Элемент управления List связан с определенным столбцом RecordSet и используется как поисковая таблица. Он может использоваться как таблица просмотра для упрощения передвижения по RecordSet (рис. 17.21).<br> <div style="text-align:center;"><img src="image/ispolzovanie-svjazannogo-s-dannymi-jelementa_1.gif" alt="Использование связанного с данными элемента управления"></div><br> <b>Рис. 17.21.</b> Приложение DBList: элемент управления List используется для просмотра<br> Этот список содержит имена всех товаров в списке<br> Products базы данных NWIND, загруженных во время запуска программы. Каждый раз, когда выбирается новый элемент, программа обновляет связанные с данными элементы управления, размещенные на форме, чтобы отобразить поля выбранной записи.<br> Элемент управления List отличается от элементов управления, связанных с данными, которые были рассмотрены ранее: его можно подсоединить к двум элементам управления Data. Он имеет стандартные свойства DataSource/DataField, которые используются как любой другой элемент управления, связанный с данными, и свойства RowSource и List Field, которые определяют, как заполняется элемент управления.<br> <b>• RowSource</b> задает источник (RecordSet или элемент управления Data) для начальной загрузки списка.<br> <b>•  ListFieId</b> задает поле, которое используется для заполнения списка.<br> <b>VB6 в действии: проект DBList</b><br> Приложение DBList демонстрирует использование связанного с данными элемента управления List в качестве инструмента перемещения. Форма, показанная на рис. 17.21, содержит ряд полей из таблицы Products базы данных NWIND. Создайте ее, связывая различные текстовые поля с соответствующими полями таблицы элементом управления Data, будто вы собираетесь перемещаться по списку товаров с помощью кнопок перемещения, размещенных на элементе управления Data.<br> Проблема с элементом управления Data состоит в том, что невозможно реально использовать его для перемещения по RecordSet, даже если он проиндексирован, потому что в каждый момент видима только одна запись. Если бы было можно помещать ключевые значения в элемент управления ListBox и использовать его как инструмент перемещения, то пользовательский интерфейс стал бы удобнее.<br> <br> ComboBox<br> Элемент управления ComboBox используется как поисковая таблица (см. приложение Data Entry, рассмотренное ранее в этой главе). Чтобы заполнить список элемента управления ComboBox, необходимо установить свойство RowSource на элемент управления Data, соединенный с базой данных и таблицей, из которой выбираются данные.<br> Приложение Data Entry (папка DEntry на компакт-диске) содержит скрытый элемент управления Data (называемый Data2), который соединен с таблицей Publishers базы данных BIBLIO. Свойство ListField элемента управления ComboBox — это имя поля, использующееся для заполнения списка. В приложении Data Entry это свойство установлено на поле Name таблицы Publishers. При запуске программы элемент управления ComboBox автоматически заполняется именами издателей из базы данных (рис. 17.22).<br> <div style="text-align:center;"><img src="image/ispolzovanie-svjazannogo-s-dannymi-jelementa_2.gif" alt="Использование связанного с данными элемента управления"></div><br> <b>Рис. 17.22.</b> Элемент управления ComboBox на форме приложения Data Entry содержит имена всех издателей из базы данных<br> Элемент управления ComboBox имеет обычные свойства DataSource и Data Field, как и другие элементы управления, связанные с данными. Необходимо, чтобы в приложении Data Entry элемент управления ComboBox функционировал следующим образом.<br> <b>1</b>. При запуске программы элемент управления заполняется именами всех издателей.<br> <b>2</b>. При перемещении по таблице Titles элемент управления ComboBox извлекает идентификаторы издателей из таблицы Titles, ищет это значение в таблице Publishers и отображает значение поля Name соответствующей записи в окне редактирования.<br> <b>3</b>. При добавлении новой записи пользователь определяет издателя книги, выбирая имя в элементе управления ComboBox, а элемент управления сообщает соответствующий идентификатор первому элементу управления Data.<br> Это выглядит сложно, но все это встроено в элемент управления ComboBox. Уже известно, как реализовать первый пункт с помощью свойств RowSource и ListField. Два других пункта типичны для элементов управления, связанных с данными. Необходимо использовать окно редактирования элемента управления ComboBox как обычное текстовое поле, связанное с полем PubID таблицы Titles. Для этого выполните следующие действия.<br><br> <br> Grid<br> Элемент управления Grid - один из наиболее гибких и мощных элементов управления Visual Basic. Пользователи Microsoft Access знакомы с этим элементом управления. Связываемый с данными элемент управления Grid похож на элемент управления MSFlexGrid (см. гл.9), но имеет два отличия:<br> •   заполняется автоматически из RecordSet,<br> •   имеет встроенные механизмы ввода данных, с помощью которых можно редактировать RecordSet (если он может модифицироваться).<br> Все, что нужно сделать для заполнения элемента Grid из RecordSet — это установить его свойство DataSource на элемент управления Data. Сетка будет заполнена строками из RecordSet. Ввиду двумерного расположения данных в элементе управления Grid можно увидеть реальную структуру и содержание всего RecordSet. Этот элемент управления использовался для отображения RecordSet на некоторых рисунках в начале главы. Также он использовался для отображения результатов SQL-операторов в приложении SQLExec (которое мы сейчас рассмотрим).<br> <b>VB6 в действии: проект SQLExec</b><br> Ранее в этой главе для экспериментов с SQL-операторами использовалось приложение SQLExec. Создадим это приложение. Для этого выполните следующие действия.<br> <b>1</b>. Откройте новый Standard EXE проект.<br> <b>2</b>. Чтобы добавить связанный с данными элемент управления Grid на панель Toolbox, выполните щелчок правой кнопкой мыши на Toolbox и выберите команду Components.<br> <b>3</b>. В диалоговом окне Components установите переключатель Microsoft Data Bound Grid Control. В этом проекте используется элемент управления Common Dialogs, поэтому установите переключатель Microsoft Common Dialogs Control 5.0 и щелкните на кнопке Close.<br> <b>4</b>. Создайте элементы управления (рис. 17.23). Кроме видимых элементов управления, на форме расположен элемент управления Common Dialogs (невидимый во время выполнения) и элемент управления Datal, у которого свойство Visible установлено в False<br> <div style="text-align:center;"><img src="image/ispolzovanie-svjazannogo-s-dannymi-jelementa_3.gif" alt="Использование связанного с данными элемента управления"></div><br> <b>Рис. 17.23.</b> Приложение SQLExec запросы к базе данных с помощью SQL-операторов и отображение результатов в элементе управления Grid.<br><br> <br> Поместите элемент управления List на форму и установите его свойство RowSource на имя элемента управления Datal, а свойство ListFieId — на имя поля, которое необходимо отобразить в списке. Для приложения DBList - это поле ProductName. Свойства DataSource и DataField элемента управления List пусты.<br><br> Если запустить приложение сейчас, то ничего не случится, потому что не определено, как элемент управления List реагирует на событие Click. Обработчик события должен переместить элемент управления Data на строку RecordSet, которая содержит в поле ProductName то, же значение, что и строка элемента управления List, на которой выполнен щелчок. Для этого добавьте следующий код в обработчик события Click элемента управления List.<br><br> Private Sub DBListl_Click()<br><br> Datal.Recordset.Bookmark = DBList1.SelectedItem <br><br> End Sub<br><br> Свойство Bookmark определяет строку в RecordSet. Установка значения этого свойства вынуждает элемент управления Data размещаться на определенной строке. Свойство Selectedltem (Выбранный пункт) элемента управления - это не текст, отображаемый в окне редактирования элемента управления, а закладка записи, которой принадлежит выбранное поле. Этот код позиционирует элемент управления Data в RecordSet и обновляет связанные с данными метки на форме. Учитывая размер этого приложения, можно сказать, что оно действительно выполняет очень много.<br><br> <br> <b>1</b>. Выберите элемент управления ComboBox и установите его свойство DataSource на Datal (элемент управления Data, связанный с таблицей Titles).<br><br> <b>2</b>. Установите свойство DataField на имя поля, которое необходимо обновить в базе данных. Это поле - PubID.<br><br> Поле PubID отображается в элементе управления<br><br> ComboBox. Но пользователь видит в ComboBox идентификаторы, а не имена.<br><br> Связанный с данными элемент управления ComboBox имеет еще одно свойство — BoundColumn, которое является именем поля в его собственном RowSource и связывает поле, отображаемое в списке, с фактическим полем. Значение свойства BoundColumn должно быть индексным полем, чтобы механизм JET мог быстро его найти. Установите свойство BoundColumn на поле PubID и выполните приложение снова На этот раз в ComboBox появится имя издателя текущей книги. Если выбрать в списке имя другого издателя, то в текущей записи сохранится идентификатор нового издателя.<br><br> С помощью свойств DataSource, DataField и BoundColumn можно использовать элемент управления ComboBox как поисковую таблицу. Это позволяет выбрать значения содержательных полей и сохранить значения ключей в базе данных. И все это без единой строки кода! Обратите внимание: имена издателей не отсортированы. Связанный с данными элемент управления ComboBox не имеет свойства Sorted для автоматической сортировки элементов. В случае необходимости сортировки нужно создать новый (соответственно, отсортированный) RecordSet и использовать его для заполнения элемента управления ComboBox.<br><br> <br> <b>5. </b>Элемент управления TextBox, с помощью которого вводятся SQL-операторы, называется txtSQL. Установите его свойство MultiLine в True, а свойство Scrollbars - в 2-Vertical<br><br> <b>6. </b>Запрограммируем кнопки. Код кнопки Open Database открывает стандартное диалоговое окно File Open (напомню, мы используем элемент управления Common Dialogs), в котором можно выбрать базу данных. Имя базы отображается на элементе управления Label рядом с кнопкой Command.<br><br> <b>Программа 17.13.</b> Кнопка Open Database<br><br> Private Sub DBOpen_Click() <br><br> On Error GoTo NoDatabase <br><br> CommonDialog1.CancelError = True <br><br> CommonDialog1.Filter = "Databases | *.MDB" <br><br> CommonDialogI.ShowOpen<br><br> Data1.DatabaseName = CommonDialog1.FileName <br><br> Data1.Refresh<br><br> If Err = 0 Then<br><br> Label1.Caption = CommonDialog1.FileName <br><br> Else<br><br> MsgBox Err.Description <br><br> End If<br><br> NoDatabase:<br><br> On Error GoTo 0 <br><br> End Sub<br><br> <b>7. </b>Кнопка Execute SQL (выполнить запрос) выбирает SQL-оператор из текстового поля txtSQL и присваивает его свойству RecordSource элемента управления Datal.<br><br> Private Sub ExecuteSQL_Click() <br><br> On Error GoTo SQLError<br><br> Data1.RecordSource = txtSQL <br><br> Data1.Refresh <br><br> Exit Sub<br><br> SQLError:<br><br> MsgBox Err.Description<br><br> End Sub<br><br> Оператор ОnЕггог определяет любую ошибку при выполнении SQL-оператора и отображает информацию о ней в окне сообщений. Присваивание нового значения свойству RecordSource элемента управления не модифицирует его содержимое. Чтобы прочитать новые данные из базы данных и принудительно выполнить модификацию, вызывается метод Refresh элемента управления Data.<br><br><br> <h1>Использование</h1> Excel для вычисления математических выражений<br> В одном из предыдущих параграфов ("Проверка орфографии документов") рассматривался способ заимствования функций проверки орфографии " из Word. Теперь нечто подобное будет проделано с Excel. Excel — превосходное средство для выполнения математических операций. В то же время Visual Basic не содержит функций и методов, позволяющих выполнять вычисления математических выражений (заданных в виде строки — прим. ред.). Если Excel установлен на хост-компьютере, можно обратиться к нему непосредственно из приложения Visual Basic и использовать его для вычисления сложного математического выражения.<br> Самый простой способ вычисления математического выражения заключается в вызове метода Evaluate объекта Excel.Application. Пусть имеется инициализированная объектная переменная ExcelApp, тогда можно, например, вычислить математическое выражение:<br> 1/cos(0.335) * cos(12.45)<br> Для этого следует вызвать метод Evaluate объекта ExcelApp и передать ему это выражение в виде параметра (строки):<br> у = ExcelApp.Evaluate "1/cos(0.335) * cos(12.45)"<br> Именно это происходит при выполнении щелчка на кнопке<br> Calculate Expression (Вычислить выражение) в форме ExcelVBA. Ниже приводится текст программы обработчика команды Calculate Expression.<br> <b>Программа 14.17.</b> Команда Calculate Expression<br> Private Sub bttnCalculate_Click() <br> Dim wSheet As Worksheet <br> Dim wBook As Workbook <br> Dim expression<br> StartExcel<br> expression = InputBox ("Enter math expression to evaluate _ <br> i.e., 1/cos(3.45) * log (19.004)")<br> '(Введите вычисляемое выражение, например...) <br> On Error GoTo CalcError<br> If Trim(expression)<b><br> <></b> "" Then<br> MsgBox AppExcel.Evaluate(expression)<br> End If<br> GoTo Terminate<br> Exit Sub<br> CalcError:<br> MsgBox "Excel returned the following error" &   vbCrLf & _<br> Err.Description <br> ' (Excel возвратил сообщение об ошибке...)<br> Terminate:<br> AppExcel.Quit <br> Set AppExcel = Nothing<br> End Sub<br> Программа предлагает пользователю ввести любое математическое выражение. Организовать вычисление произвольных математических выражений, используя программные средства Visual Basic затруднительно. В гл. 20 "Объекты, используемые в сценариях" будет рассматриваться использование элемента управления Script, позволяющего реализовывать вычисление математических выражений.<br> <br> Visual Data Manager<br> Visual Data Manager (Визуальный диспетчер баз данных) - инструмент Visual Basic для проектирования баз данных. С некоторыми издержками можно использовать Visual Data Manager для модификации таблиц, обеспечения безопасности данных и экспериментов с SQL. Когда открывается существующая база данных, Visual Data Manager отображает окно базы данных со списком таблиц и свойств этой базы. На рис. 17.7 показано окно Visual Data Manager с базой данных BIBLIO, открытой в режиме разработки. Мы рассмотрим структуру базы данных BIBLIO, но сначала исследуем основные операции приложения Visual Data Manager.<br> Щелкните правой кнопкой мыши в окне базы данных, чтобы открыть контекстное меню, и выберите пункт New Table. В появившемся диалоговом окне Table Structure задайте необходимые поля.<br> <div style="text-align:center;"><img src="image/ispolzovanie_1.gif" alt="Использование"></div><br> <b>Рис. 17.7.</b> Visual Data Manager: изменение структуры базы данных<br> Когда вы добавляете новое поле к таблице щелчком на кнопке Add Field, открывается диалоговое окно Add Field (рис. 17.8).<br> <div style="text-align:center;"><img src="image/ispolzovanie_2.gif" alt="Использование"></div><br> <b>Рис. 17.8.</b> Visual Data Manager: добавление таблиц в базу данных и полей в таблицы<br> Опции диалогового окна Add Field приведены в табл. 17.5. На рисунке некоторые из опций заблокированы — их нельзя прочесть. Откройте диалоговое окно Add Field и просмотрите его опции.<br> <b>Таблица 17.5.</b> Опции в диалоговом окне Add Field<br><table border=1><br> <tr> <td>Опция<br> <td> <td>Описание<br> <td> </tr> <tr> <td>Name<br> <td> <td>Имя поля<br> <td> </tr> <tr> <td>OrdinalPosition<br> <td> <td>Позиция поля в пределах списка полей<br> <td> </tr> <tr> <td>Type<br> <td> <td>Тип поля. Поле может иметь любой стандартный тип VB и два дополнительных: Binary и Memo. Поля типа Binary хранят двоичные данные — звуки и изображения. Поля Memo хранят длинные сегменты текста. Размер полей Memo не могут быть определены на этапе разработки базы данных. (Текстовые поля имеют только определенную длину )<br> <td> </tr> <tr> <td>ValidationText<br> <td> <td>Текст, отображаемый при попытке ввода недопустимых данных<br> <td> </tr> <tr> <td>Size<br> <td> <td>Размер поля в байтах<br> <td> </tr> <tr> <td>FixedField<br> <td> <td>Поле имеет фиксированную длину<br> <td> </tr> <tr> <td>VariableField<br> <td> <td>Поле имеет переменную длину<br> <td> </tr> <tr> <td>ValidationRule<br> <td> <td>Простые правила, используемые для проверки правильности вводимых значений<br> <td> </tr> <tr> <td>DefaultValue <br> <td> <td>Начальное значение, присваиваемое при создании записи<br> <td> </tr> <tr> <td>AutoIncrField<br> <td> <td>Если поле используется в качестве ключа, то нужно установить для него тип Long и проверить поле. При каждом добавлении в таблицу новой записи полю присваивается значение, на единицу больше значения последней записи<br> <td> </tr> <tr> <td>AllowZero Length<br> <td> <td>Выберите эту опцию, если пустая строка является допустимым значением<br> <td> </tr> <tr> <td>Required<br> <td> <td>Выберите эту опцию, если поле не может быть опущено. В таблице со счетами, например, идентификатор заказчика ID так же, как и дата, является необходимым полем<br> <td> </tr> </table><br><br> <br> конструктора DataEnvironment при работе с элементом управления DataGrid<br> Использование конструктора DataEnvironment упрощает подключение к базе данных и создание иерархии объектов Command, сводя их к технологии "укажи и щелкни". Записи, возвращаемые объектом Command можно переместить на форму и подключить к элементам управления связанным с данными. Если переместить по несколько полей из каждого объекта Command на форму, то останется лишь написать код для перемещения по записям объекта Command 1. Каждый раз при перемещении к другому заказчику поля дочернего объекта Command будет обновляться, отражая, таким образом, итоги для выбранного заказчика.<br> В этом параграфе показано, как добавить поля в элемент управления DataGrid. Новая форма показана на рис. 18.9. Эта форма не является частью проекта, поэтому перечислим действия, необходимые для создания новой формы.<br> <div style="text-align:center;"><img src="image/ispolzovanie_3.gif" alt="Использование"></div><br> <b>Рис. 18.9.</b> Отображение полей иерархии объектов Command в элементе управления DataGrid<br> <b>1</b>. Откройте проект Report (в папке данной главы на компакт диске) и из меню Project выберите команду Add Form, чтобы добавить в проект новую форму Если вы не изменяли имя первой формы, то имя второй формы — Form2.<br> <b>2</b>. Снова откройте меню Project, выберите команду Project Properties и сделайте добавленную форму стартовой.<br> <b>3</b>. При открытых окне DataEnvironment 1 и форме Form2 щелкните правой кнопкой на объекте Command 1 и перенесите его на новую форму. После отпускания кнопки мыши появится контекстное меню с приглашением выбрать размещение полей объекта Command 1 на форме. Выберите один из вариантов.<br> <b>• DataGrid</b> - выбранные поля размещаются в элементе управления DataGnd,<br> <b>•  Hierarchical FlexGrid</b> - поля размещаются в элементе MSHFlexGrid,<br> <b>•  Bound Controls</b> - поля размещаются в отдельных элементах управления, связанных с данными (тип этих элементов определяется в поле type).<br> <b>4</b>. В открытом меню выберите элемент управления DataGrid и поместите его на форму. По умолчанию DataGrid имеет только два столбца.<br> <b>5</b>. Щелкните правой кнопкой на элементе управления DataGrid и выберите команду Edit для выполнения необходимых настроек.<br><br> <br> конструктора DataEnvironment при работе с элементом управления MSHFIexGrid<br> Один из новых и самых интересных элементов управления<br> Visual Basic 6 -элемент управления FlexGrid (или MSHFlexGnd) Он похож на элемент управления MSFlexGnd (см гл 9), но предназначен для использования с иерархическими объектами ADO. Каждый объект автоматически размещается в своей собственной группе, причем можно развернуть и свернуть строки иерархического элемента управления FlexGrid, как узлы элемента управления TreeView. В параграфе "Проектирование иерархии объектов Command" были показаны записи, возвращенные иерархией объектов (см. рис. 18.2). Обратите внимание: имя каждой компании, отображенное в первой колонке, имеет перед собой знак "+" или "-" Этот знак показывает, что подробности о соответствующих компаниях можно показать или скрыть.<br> Построим форму, показанную ранее на рис. 18.2. Для этого выполните следующие действия.<br> <b>1</b>. Переименуйте форму проекта в DetailsForm и сделайте ее достаточно широкой, чтобы поместились все столбцы.<br> <b>2</b>. Откройте окно DataEnvironmentI и убедитесь, что оба окна видимы на экране.<br> Элемент управления MSHFlexGrid по умолчанию на панели элементов управления проекта отсутствует. Он появляется при создании проекта Data. Если значок объекта MsHFlexGrid не виден, то откройте диалоговое окно Components и добавьте компонент Microsoft Hierarchical FlexGrid Control 6.0 (OLEDB). Поместите экземпляр этого компонента на форму.<br> <b>3</b>. Выберите элемент управления MSHFlexGrid и найдите его свойство DataSource в окне Properties.<br> <b>4</b>. Установите свойство DataSource в DataEnvironmentI (выберите его из раскрывающегося списка), а свойство DataMember в Command 1 (подключив, таким образом, иерархию элементов управления из окна DataEnvironmentI к элементу Command I).<br> <b>5</b>. Щелкните правой кнопкой мыши и выберите из контекстного меню команду Retrieve Structure (Получить структуру). Все поля, перечисленные в окне DataEnvironmentI, добавятся к элементу управления в качестве заголовков. Понятно, что нет надобности отображать все поля определите, какие поля появятся в столбцах и как они будут выглядеть.<br><br> <br> ADO<br> Одним из важнейших компонентов ASP является Database (База данных), представляющий собой ADO-компонент. Использование компонента Database позволяет разработать более сложные и близкие к реальным приложениям сценарии. Хотя для доступа к базам данных на сервере можно использовать и другие компоненты, большинство Web-разработчиков использует ADO-компонент.<br> ADO является простейшим объектом для доступа к базам данных (см. гл. 18). Его объектная модель много проще, чем у DAO или даже RDO. При этом ADO является мощным инструментом и наиболее часто применяется при создании Web-узлов, использующих активные серверные страницы. Разумеется, вы можете<br> использовать для этих целей компонент DAO или свои собственные компоненты ActiveX. Но целесообразнее при создании нового Web-узла использовать ADO. Этот компонент работает быстрее упомянутых выше и потребляет меньше ресурсов сервера (что важно для серверов, работающих с большой нагрузкой).<br><br> <br><br> <h1>Элемент управления</h1> OLE Container<br> Рассмотрим, как OLE-технология используется в VB-приложениях. Чтобы включить функциональные возможности OLE в VB-приложения, необходим элемент управления OLE Container, позволяющий вставлять в программу объекты из других приложений. В элемент управления OLE Container можно поместить только один объект. На форму можно поместить несколько элементов OLE Container, каждый из которых может содержать собственный объект.<br> Элемент управления OLE Container — это доступ к различным объектам операционной системы, которые Visual Basic не в состоянии использовать самостоятельно (например, документы Word, звуковые файлы, растровые изображения или электронные таблицы Excel). Элемент управления OLE Container может содержать любой из объектов, перечисленных в диалоговом окне Insert Object (Вставка объекта), и сделать вашу программу на Visual Basic приложением-контейнером. Преимуществом использования OLE Container является то, что он скрывает сложности, связанные с применение OLE. Встраивать объекты в OLE Container можно как при разработке приложения, так и при выполнении.<br> <br> FLEXLabel<br> Начнем наше исследование элементов управления ActiveX с простого примера. Первый элемент, который будет сконструирован в этой главе — это элемент управления FLEXLabel (улучшенный элемент управления Label), показанный на рис. 16.1. Он реализует все возможности элемента управления Label плюс несколько весьма интересных особенностей, таких как выравнивание текста во всех возможных направлениях и трехмерное изображение.<br> <div style="text-align:center;"><img src="image/jelement-upravlenija_1.gif" alt="Элемент управления"></div><br> <b>Рис. 16.1.</b> Элемент управления FLEXLabel является улучшенным вариантом элемента управления Label, который может отображать трехмерный текст и выравнивать его по вертикали и горизонтали.<br> Для построения элемента управления FLEXLabel следует выполнить следующие действия.<br> <b>1</b>. Включить все компоненты стандартного элемента управления Label.<br> <b>2</b>. Добавить дополнительные члены и написать код для их реализации.<br> <b>3</b>. Испытать элемент на форме.<br> Сейчас, скорее всего, стоит задуматься о программе, которая выравнивает текст и выводит его в виде вдавленного или выпуклого изображения. Начнем со стандартного проекта, который отображает строку на форме и выравнивает ее всеми возможными способами. Элемент управления — это приложение, созданное таким образом, что позволяет ему отображаться на форме, а не на рабочем столе. В большинстве случаев такой элемент может быть реализован с помощью обычной формы. На рис. 16.2 показана форма проекта FLabel, которая делает в точности то же, что должен делать элемент управления FLEXLabel. Этот проект находится в папке с одноименным названием на компакт-диске. Откройте его и посмотрите, как он работает.<br> <div style="text-align:center;"><img src="image/index-image047.gif" alt="Элемент управления"></div><br> <b>Рис. 16.2.</b> Проект FLabel отображает строку в трехмерном представлении, выравнивая ее по вертикали и горизонтали, подобно элементу управления FLEXLabel.<br> В общем случае, создавать элемент управления как<br> Standard ЕХЕ-приложение не следует, но, для начала, это, возможно, может помочь. Получив код, управляющий видимым интерфейсом разрабатываемого элемента управления, можно сосредоточиться на процедурах, специфичных для разработки элементов управления ActiveX. Есть еще одна веская причина, по которой выбран этот подход, а именно, возможность сопоставления подходов к конструированию обычных приложений и элементов управления ActiveX.<br><br> <br> Data<br> Наборы RecordSet являются основой программирования баз данных. Рассмотрим пример, который поможет представить, что такое набор RecordSet, и исследовать элемент управления Data Приложение Datal (рис 17 3) — это интерфейс для доступа к таблице в базе данных.<br> <div style="text-align:center;"><img src="image/jelement-upravlenija_2.gif" alt="Элемент управления"></div><br> <b>Рис. 17.3.</b> Приложение Datal позволяет просматривать строки таблицы без написания строк кода<br> <b>VB6 в действии: проект Data1</b><br> Для создания данного приложения выполните следующие действия.<br> <b>1</b>. Откроите новый проект типа Standard EXE и разработайте форму (см. рис. 17.3). Начните с размещения в нижней части формы элемента Data - это ваши "двери" к базе данных.<br> <b>2</b>. Выбрав Data, откройте окно свойств, найдите свойство DatabaseName (Имя базы данных) и нажмите кнопку с многоточием, чтобы открыть диалоговое окно Open.<br> <b>3</b>. Выберите базу данных NWIND, которая поставляется вместе с Visual Basic.<br> <b>4</b>. В окне свойств найдите свойство RecordSource (Источник записей) и откройте список доступных источников записей. Вы увидите список всех таблиц в базе данных NWIND. Выберите таблицу Customers.<br> <b>5</b>. Разместите на форме четыре элемента управления Textbox (см. рис. 17.3).<br> <b>6</b>. Выберите первый элемент Textbox и в окне свойств найдите свойство DataSource (Источник данных). Установите его значение в<b> Data1.</b><br> <b>7</b>. Установите значение свойства DataField (Поле) элемента Textbox в<b> CompanyName. </b>Свойство DataField — это раскрывающийся список с названиями всех полей таблицы Customers.<br> <b>8</b>. Установите в свойствах DataSource (Источник данных) остальных элементов Textbox значение<b> Data1,</b> а в свойствах DataField (Поле) выберите<b> Country </b>(Страна),<b> Phone</b> (Телефон) и<b> Fax</b> (Факс), соответственно.<br> Запустите приложение. Элементы управления Textbox отобразят содержимое соответствующих полей таблицы Customers базы данных NWIND. Используя кнопки элемента Data, можно двигаться по записям (строкам) таблицы. При нажатии крайней левой кнопки отображается первая запись таблицы, а при нажатии кнопки, расположенной правее и рядом с ней — предыдущая запись. Соответственно, при нажатии крайней правой кнопки отображается последняя запись таблицы, а при нажатии кнопки, расположенной левее и рядом с ней — следующая запись.<br><br> <br> ADO Data<br> Визуальные инструменты для работы с базами данных не являются единственным средством работы с DAO. Одним из новых элементов управления, добавленных на панель элементов управления, является ADO Data (сходный с элементом Data). Он позволяет подключаться к большим базам данных различных типов, причем с помощью одного приложения и используя один интерфейс<br> Простейший путь применения ADO в проекте — добавление на форму элемента управления ADO Data и использование его подобно элементу управления Data. Чтобы использовать элемент управления ADO Data со стандартным ЕХЕ-проектом, добавьте его на панель элементов управления.<br> Откройте меню Project и выберите команду Components для вызова одноименного диалогового окна Components. Отметьте опцию Microsoft ADO Control 6.0 (OLEDB). Для использования усовершенствованных связанных с данными элементов управления (например. List и ComboBox) отметьте также опцию Microsoft Data List Control 6.0 (OLEDB). Щелкните на кнопке ОК для возврата в среду разработки Visual Basic.<br> Теперь панель элементов управления содержит элементы управления ADO — Data Control, DataList и DataCombo Элементы управления DataList и DataCombo подобны элементам управления DBList и DBCombo, только они предназначены для объектов ADO Data, а не Data.<br> Приведем пример использования элемента управления ADO Data. Разработаем очень простую форму, которая позволит просматривать заказчиков в базе данных NWIND. Проект ADODC (см. рис. 18.15) состоит из формы с несколькими текстовыми полями, отображающими поля таблицы Customer базы данных NWIND. Текстовые поля связаны с элементом управления ADO Data, который подключает их к текущей записи в таблице Написание кода не требуется.<br> <div style="text-align:center;"><img src="image/jelement-upravlenija_5.gif" alt="Элемент управления"></div><br> <b>Рис. 18.15.</b> Проект ADODC: основные свойства элемента ADO Data идентичны свойствам элемента Data<br> Чтобы создать проект ADODC, выполните следующие действия.<br> <b>1</b>. Откройте новый проект и добавьте элемент управления ADO Data на панель инструментов проекта.<br> <b>2</b>. Поместите экземпляр элемента управления ADO Data на форму.<br><br> <br> Script<br> В дополнение к построению сценариев Web-страниц,<br> VBScript можно использовать для написания сценария в приложениях Visual Basic. Функциональные возможности VBScript встраиваются в приложения с помощью элемента управления Script, выпущенного несколькими месяцами раньше Visual Basic 6. В этой книге элемент Script получен из Web-узла http://www.microsoft.com/scripting. По этому адресу можно найти дополнительную документацию по элементу управления Script и примеры его использования. Что касается версии VBScript, использовавшейся при написании книги, то документация по нему скупа, сам элемент управления содержал несколько ошибок, но разработка сценариев с помощью Visual Basic - занятие настолько захватывающее, что на указанные недостатки можно не обращать внимания.<br> Что может сделать элемент управления Script для приложения? Он может вычислять выражения во время выполнения (имеются в виду выражения, которые передаются приложению в виде строки - прим. ред.). А поскольку элементом управления Script можно управлять из кода приложения, то и само приложение приобретает эту возможность.<br> Предположим, необходимо разработать калькулятор, который вычисляет математические выражения. Visual Basic вычисляет любое математическое выражение, если оно является частью кода. Например, пользователю во время выполнения необходимо вычислить математическое выражение типа 99,9/log(2,5) или нарисовать график кривой 9*Sin(x)/Cos(x).<br> Как разрешить эту задачу средствами Visual Basic? Единственный способ — создать собственный элемент управления, способный воспринимать и вычислять выражения в ходе выполнения программы. В гл. 6 рассмотрено приложение Graph, которое рисует график функции, определение которой является частью кода приложения. Этот подход имеет очень ограниченную сферу применения.<br> В этой главе мы модифицируем приложение Graph так, чтобы оно могло рисовать любую функцию, задаваемую пользователем во время выполнения. Такую возможность предоставляет элемент управления Script. Элемент управления Script вычисляет не только математические, но и логические выражения, выполняя те или иные действия на основе полученного результата, например, организацию цикла. Он позволяет использовать все разнообразие операторов и функций VBScript. Ниже приведен код на VBScript, который определяет, какая из двух функций имеет большее значение для текущего аргумента x.<br><br> <br> WebBrowser<br> Элемент управления WebBrowser попросту является окном Internet Explorer. Любой HTML-документ, который отображается в Internet Explorer, может отображаться на элементе управление WebBrowser. Элемент управления WebBrowser добавляет возможности броузера в приложения. Он позволяет пользователю просматривать узлы в World Wide Web, локальные файлы или ActiveX-документы, например документы Word или Excel из приложения Visual Basic.<br> Поскольку WebBrowser — элемент управления ActiveX, его можно установить на любой форме Visual Basic. Перед использованием необходимо добавить этот элемент на панель элементов управления. Для этого выполните следующее.<br> <b>1</b>. Щелкните правой кнопкой мыши на панели элементов управления и из контекстного меню выберите Components чтобы открыть диалоговое окно Components.<br> <b>2</b>. Выберите Microsoft Internet Controls и щелкните на кнопке ОК. На панели инструментов появятся два новых значка WebBrowser и ShelFolderViewOC.<br> <b>3.</b> Выберите значок WebBrowser и поместите элемент управления на форму.<br> Размеры элемента управления WebBrowser можно изменять. Поскольку размеры элемента управления нельзя изменять во время работы программы необходимо их отрегулировать по размерам контейнера которым является форма Visual Basic. Когда пользователь меняет размеры формы элемент управления WebBrowser также меняет свои размеры.<br> Для отображения Web страницы на элементе управления WebBrowser используется метод Navigate. Можно переместиться по списку URL. Элемент управления WebBrowser автоматически создает список посещенных URL. Далее будут рассмотрены свойства, методы и события элементов управления. Начнем с разработки простого приложения которое демонстрирует основные характеристики элементов управления.<br> <b>VB6 в действии: проект Browser</b><br> В этом параграфе разработано приложение, основанное на элементе управления WebBrowser и демонстрирующее как добавить возможности Web броузера в приложения Visual Basic (проект Browser на компакт диске), На рис, 21,1 показано приложение Browser, отображающее Web-узел Sybex. Пользователь может выбрать URL из комбинированного списка или локальный HTML-файл, щелкнув на кнопке Open HTML File.<br><br> <br><br> <h1>Класс</h1> String<br> Последний пример в этом разделе — это очень простой класс, который реализует несколько полезных операций со строками. Класс String предусматривает три метода, реализованных в виде общедоступных функций.<br> <b>•  Integer2Binary(number As Long).</b> Преобразует свой числовой аргумент в двоичное число и возвращает двоичное значение в виде строки.<br> <b>•  Number2String(number As integer).</b> Преобразует свой числовой аргумент в строку и возвращает ее. Если число 395 передать этому методу в качестве аргумента, то возвращаемым значением будет строка "триста девяносто пять".<br> <b>•  LowerCaps(str As String).</b> Преобразует свой аргумент в нижний регистр, причем первые буквы всех слов становятся заглавными, и возвращает новую строку. Если значение "триста девяносто пять" передать в качестве аргумента этому методу, то возвращаемым значением будет строка "Триста Девяносто Пять".<br> Члены класса String довольно просты, но они могут служить в качестве отправной точки при создании класса с функциями для манипуляции строками и числами, которые часто используются, но не реализованы в Visual Basic в чистом виде.<br> Три метода класса String реализованы в виде общедоступных функций, и показаны ниже.<br> <b>Программа 15.17.</b> Методы класса String<br> Public Function Number2String(Number) <br> Dim tenth As Integer <br> Dim leftover As Integer <br> Dim hundred As Integer <br> Dim thousand As Integer<br> If Number < 20 Then ' Чтение чисел меньших 20<br> NumString = ReadSingle(Number) <br> Elself Number < 100 Then   ' Чтение чисел меньших 100 <br> tenth = Fix(Number / 10) <br> NumString   ReadTenths(tenth * 10) <br> leftover = Number   (tenth * 10) <br> If leftover > 0 Then<br> NumString = NumString & " " & ReadSingle(leftover) <br> End If<br> Elself Number < 1000 Then   ' Чтение чисел между 100 и 999 <br> hundred = Fix(Number / 100) <br> NumString =<br> ReadSingle(hundred) & " hundred" <br> leftover = Number - (hundred * 100) <br> If leftover > 0 Then<br> tenth = Fix(leftover / 10) <br> If tenth > 0 Then NumString = _<br> <br> NumString & " " & ReadTenths(tenth * 10) <br><br> leftover = Number - (hundred * 100) - (tenth * 10) <br><br> If leftover > 0 Then<br><br> NumString = NumString & " " & _ <br><br> ReadSingle(leftover)<br><br> End If <br><br> End If<br><br> Else              ' Чтение чисел между 1000 и 9999 <br><br> thousand = Fix(Number / 1000) <br><br> NumString = ReadSingle(thousand) & " thousand" <br><br> leftover<br><br> = Number - (thousand * 1000) <br><br> If leftover > 0 Then<br><br> hundred<br><br> = Fix(leftover / 100) <br><br> If hundred > 0 Then<br><br> NumString<br><br> = NumString & " " &_<br><br> ReadSingle(hundred) & " hundred" <br><br> End If <br><br> leftover<br><br> = Number – (thousand * 1000)- _<br><br> (hundred *100)<br><br> If leftover > 0 Then<br><br> tenth   Fix(leftover / 10) <br><br> If tenth > 0 Then<br><br> NumString = NumString & " " & _<br><br> ReadTenths(tenth * 10) <br><br> End If <br><br> leftover = Number - (thousand * 1000) - _<br><br> (hundred * 100)<br><br> - (tenth * 10) <br><br> If leftover > 0 Then<br><br> NumString<br><br> = NumString & " " & _<br><br> ReadSingle(leftover) <br><br> End If <br><br> End If <br><br> End If <br><br> End If<br><br> Number2String = NumString <br><br> End Function<br><br> Public Function LowerCaps( str As String) As String <br><br> Dim newWord As String, newStr As String <br><br> Dim tempStr As String <br><br> Dim WDelimiter As Integer<br><br> tempStr = Trim(str)<br><br> WDelimiter = InStr(tempStr, " ")<br><br> While WDelimiter > 0<br><br> newWord = Left(tempStr, WDelimiter)<br><br> tempStr = Right(tempStr, Len(tempStr) - WDelimiter)<br><br> newStr = newStr & UCase(Left(newWord, 1)) & _<br><br> Mid(newWord, 2, Len(newWord) - 1) <br><br> WDelimiter = InStr(tempStr, " ") <br><br> Wend <br><br> newWord = tempStr <br><br> newStr = newStr & UCase(Left(newWord, 1)) & _<br><br> Mid(newWord, 2, Len(newWord) - 1) <br><br> LowerCaps = newStr <br><br> End Function<br><br> Public Function Integer2Binary(ByVal Number As Long) As String<br><br> HexNum = Hex(Number)<br><br> For i = 1 To Len(HexNum)<br><br> BinNum = BinNum & BinaryDigits("&H" & Mid(HexNum, i, 1))<br><br> Next<br><br> Integer2Binary = BinNum <br><br> End Function<br><br> Функция Number2Stnng() наиболее сложная. Она похожа на функцию, которая используется проектом READNUM в приложении С (на компакт-диске) для считывания числовых значений. Функция Number2Stnng() может преобразовывать целые значения в диапазоне от 0 до 9999, но можно легко добавить код для работы с большими и нецелыми значениями. Функция Number2Stnng() вызывает функции ReadTenths() и ReadSingle(), которые являются закрытыми членами класса, т.е. их можно вызывать из компонентов класса, но внешние программы не имеют к ним доступа. Если просмотреть члены класса StringClass в броузере объектов, то можно увидеть закрытые члены класса. Однако они будут представлены как Private, напоминая о том, что к ним нет доступа из их приложений.<br><br> <br> Тестовая форма класса StringClass показана на рисунке 15.10. Пользователь может ввести числовое значение в текстовое окно наверху формы и щелкнуть кнопки Convert to String или Convert to Binary для преобразования значения в строку или двоичное значение соответственно. Когда текстовое окно под кнопкой Convert to String содержит строку (строка, соответствующая числовому значению или значению, введенному пользователем), то пользователь может щелкнуть кнопку Convert to LCaps для преобразования строки в нижний регистр.<br><br> <div style="text-align:center;"><img src="image/index-image045.gif" alt="Класс"></div><br><br> <b>Рис. 15.10.</b> Тестовая форма класса String<br><br> Код тестовой формы достаточно прост. Вначале объявляется объектная перeменная, которая будет использоваться для доступа к классу String:<br><br> Dim NS As New NumStrings.StringClass<br><br> NumStrings это имя проекта, a StringClass — имя модуля класса. Код, соответствующий трем командным кнопкам, показан ниже.<br><br> Private Sub Command1.Click()<br><br> Text2.Text = NS.Number2String(Text1.Text)<br><br> End Sub<br><br> Private Sub Command2_Click () <br><br> Dim NStr As String<br><br> NStr = NS.Number2String(Text1.Text)<br><br> Text3.Text = NS.LowerCaps(NStr) <br><br> End Sub<br><br> Private Sub Command3_Click()<br><br> Text4.Text =<br><br> NS.Integer2Binary(Text1.Text)<br><br> End Sub<br><br> Каждая кнопка вызывает различные методы переменной NS.<br><br> Код, соответствующий кнопке Command2, вызывает два метода друг за другом. Вначале он преобразует числовое значение из поля Textl в строку, а затем вызывает метод LowerCaps для преобразования строки в нижний регистр. Два вызова можно объединить в один оператор, как показано ниже:<br><br> Text3.TextNStr =<br><br> NS.LowerCaps(NS.Number2String(Text1.Text))<br><br> В папке этой главы на компакт-диске находится проект NumStr. Откройте его в Visual Basic, исследуйте код или добавьте к нему новые члены. Сейчас самое время для регистрации этого класса в системе, чтобы его можно было использовать в примерах главы 22, где будет создана страница активного сервера, которая использует этот компонент для создания HTML-страниц.<br><br> В следующей главе внимание будет сосредоточено на второй категории компонентов ActiveX — элементах управления ActiveX. Элементы управления ActiveX намного проще, чем ActiveX DLL, и несколько интереснее, поскольку они имеют видимый интерфейс пользователя. Программирование интерфейса элементов управления ActiveX такое же, как и для программных компонентов ActiveX. Процесс реализации свойств и методов для элементов управления ActiveX также идентичен описанному в этой главе. В дополнение, необходимо создавать видимый интерфейс элементов управления, что очень похоже на создание форм.<br><br> <br> <b>Глава 16</b>. Конструирование элементов управления ActiveX<br><br> <b>• Конструирование элементов управления ActiveX</b><br><br> <b>• Конструирование элемента управления FLEXLabel</b><br><br> <b>• Взаимодействие с объектом-контейнером</b><br><br> <b>• Конструирование страниц свойств</b><br><br> <b>• Построение базового элемента управления</b><br><br> <b>• Улучшение существующих элементов управления</b><br><br> Если и есть хоть одна возможность Visual Basic, которая привлекает всех без исключения разработчиков, так это — ActiveX. Сейчас Visual Basic является простым, легким в изучении и наиболее популярным языком конструирования элементов ActiveX. Элемент управления ActiveX - это то, что раньше называлось элементом управления OLE. Можно предположить, что элементы управления ActiveX являются расширением Visual Basic. Это объекты, представленные на панели элементов управления Visual Basic маленькими значками, которые можно добавлять в любые формы разрабатываемого приложения для расширения его функциональных возможностей.<br><br> Первый вопрос, который возникает: почему они называются элементами управления ActiveX? Скорее всего, это вопрос коммерции. OLE-элементы ассоциировались с тяжелым и кропотливым программированием на С. Название, вроде «ActiveX» должно помочь среднему программисту преодолеть робость. И действительно, эта часть VB была так хорошо реализована, что даже для среднего программиста теперь доступна разработка элементов управления ActiveX. Речь идет не только о том, что с помощью Visual Basic 6 можно создавать элементы управления ActiveX, а и о том, как легко это можно сделать. Кроме того, появилась возможность использования ActiveX на Web-страницах — одной из самой быстро растущих арен для разработки программ на Visual Basic.<br><br> Кто должен конструировать элементы управления<br><br> ActiveX? Если можно было обойтись без ActiveX раньше, почему их необходимо использовать сейчас? Действительно, еще некоторое время многие пользователи VB смогут не заниматься разработкой собственных элементов управления ActiveX.<b> </b>Но, рано или поздно, все же придется этим заняться. Если разрабатывается интересная утилита, которая может использоваться в нескольких приложениях, почему бы ни сделать ее элементом управления ActiveX? Кроме того, зачем отказывать себе в удовольствии попробовать что-нибудь новое? ActiveX помогут программисту на VB расширить диапазон собственных возможностей. Быть способным конструировать элементы для использования их и на вашем компьютере, и в Internet представляется прекрасной перспективой для тех, кто зарабатывает себе на жизнь программированием на Visual Basic.<br><br><br> <h1>Ключевые свойства элемента управления</h1> Как уже известно, объект UserControl, вообще говоря, представляет собой форму, на которую можно помещать другие элементы управления, рисовать фигуры, отображать текст и обнаруживать события. Он даже имеет свойства, такие как AutoRedraw и ScaleMode, которые облегчают рисование во время выполнения. Но он не называется формой — он называется UserControl. Кроме того, он имеет несколько уникальных свойств для элементов управления ActiveX, которые будут рассмотрены в этом разделе.<br> <b>CanGetFocus.</b> Установите это свойство в True, если элемент управления может получать фокус либо с помощью мыши, либо с использованием клавиши табуляции. Специальный элемент управления может получить фокус, если получает фокус объект UserControl либо один из конституэнтных элементов управления. Если элемент управления способен получать фокус, события EnterFocus и Exit Focus инициируются всякий раз, когда элемент управления получает или теряет фокус.<br> Установите свойство CanGetFocus прототипа элемента управления в True и затем введите следующие строки в обработчики событий EnterFocus и ExitFocus.<br> Private Sub UserControl EnterPocus()<br> UserControl.Backcolor = vbRed <br> End Sub<br> Private Sub UserControl_ExitFocus() <br> UserControl.Backcolor = vbGreen <br> End Sub<br> Затем переключитесь на тестовую форму и найдите на ней два экземпляра нового элемента управления (или один экземпляр элемента управления ActiveX и пару стандартных элементов управления). Запустите приложение и перемещайте фокус от одного элемент управления к другому. Прототип элемента управления, который имеет фокус, заполняется красным цветом, в то время как стандартные элементы управления заполняются зеленым цветом.<br> Специальные элементы управления с видимым интерфейсом должны иметь возможность получать и обрабатывать фокус. Если элемент управления содержит несколько конституэнтных элементов управления, то нужно также решить, какой из них получит фокус. По умолчанию получит фокус тот конституэнтный элемент, который был первым помещен на специальный элемент управления. Чтобы установить фокус на другой конституэнтный элемент, используйте метод<br> <br> SetFocus следующим образом.<br><br> <b>1</b>. Вернитесь к базовому прототипу элемента управления и поместите две кнопки Command на UserControl. He меняйте их имена.<br><br> <b>2</b>. Добавьте следующие строки, чтобы переместить фокус на кнопку Command2 в событии EnterFocus.<br><br> Private Sub UserControl _EnterFocus()<br><br> UserControl.Backcolor = vbRed<br><br> Command2.SetFocus <br><br> End Sub<br><br> <b>3</b>. Переключитесь на тестовую форму, удалите все элементы управления на форме и поместите на нее экземпляр нового элемента управления (достаточно большой, чтобы отобразить обе кнопки) и еще одну кнопку Command.<br><br> <b>4</b>. Запустите проект и посмотрите, как фокус перемещается от одного элемента управления к другому. Обратите внимание: когда специальный (заказной) элемент управления получает фокус, он передает его кнопке Command2. Нельзя переместить фокус на кнопку Command1 с помощью клавиши табуляции. Заказной элемент управления представляет собой атомарный объект, и он получает фокус один раз.<br><br> <b>ControlContainer.</b><br><br> Если это свойство установлено в True, то заказной элемент управления может быть контейнером для других элементов управления. Обычно, элементы управления, помещенные в контейнер, образуют группу, и они все перемещаются вместе. При перемещении элемента-контейнера по форме все элементы управления, содержащиеся в нем, также перемещаются.<br><br> По умолчанию заказной элемент управления не является контейнером. Другими словами, можно нарисовать кнопку Command, которая находится наполовину на заказном элементе управления и наполовину вне его. Для изменения такого поведения нужно установить свойство ControlContainer равным True.<br><br> <b>Alignable.</b> Если это свойство установлено в True, то заказной элемент управления во время конструирования имеет свойство Align. Свойство Align определяет, где и как элемент управления выравнивается на форме. Возможные значения свойства Align показаны в табл. 16.3.<br><br> <b>Таблица 16.3.</b> Значения свойства Align<br><br><table border=1> <tr> <td> Значение<br><br> </td> <td> Описание<br><br> </td> </tr> <tr> <td> VbAlignNone <br><br> </td> <td> Элемент управления выравнивается вручную (установлено по умолчанию) <br><br> </td> </tr> <tr> <td> VbAlignTop<br><br> </td> <td> Элемент управления выравнивается по верхнему краю формы<br><br> </td> </tr> <tr> <td> VbAlignLeft<br><br> </td> <td> Элемент управления выравнивается по левому краю формы<br><br> </td> </tr> <tr> <td> VbAlign Right<br><br> </td> <td> Элемент управления выравнивается по правому краю формы<br><br> </td> </tr> <tr> <td> VbAlignBottom<br><br> </td> <td> Элемент управления выравнивается по нижнему краю формы<br><br> </td> </tr> </table>< <br><br> <br> Совет<br><br> Свойство Align не доступно во время конструирования, если свойство Alignable специального элемента управления равно False. Рекомендуется устанавливать свойство Alignable равным True для таких элементов управления, как, например, панель инструментов, которые должны всегда располагаться у края контейнера (даже при изменении его размеров).<br><br> <b>InvisibleAtRuntime.</b><br><br> Некоторые элементы управления, наиболее типичным примером которых является элемент Timer, во время выполнения невидимы. Если пользовательский элемент управления не имеет интерфейса пользователя и не должен появляться на форме, установите свойство InvisibleAtRuntime равным True.<br><br> <b>ToolboxBitmap.</b><br><br> Используйте это свойство для отображения BMP-файла на панели инструментов вместо стандартной пиктограммы элемента управления ActiveX Значение свойства ToolboxBitmap - это путь к BMP-файлу, но изображение хранится в элементе управления и переносится вместе с ним.<br><br> <b>AccessKeys.</b><br><br> Свойство AccessKeys используется для задания комбинаций клавиш, которые будут "горячими" клавишами для быстрого перемещения на элемент управления. Если хотите, чтобы пользователь, нажимая комбинацию "горячих" клавиш (Alt+клавиша), мог сразу перемещать фокус на пользовательский элемент управления, присвойте свойству AccessKeys значение какой-либо клавиши. Например, выполните следующие действия.<br><br> <b>1</b>. Присвойте свойству AccessKeys пользовательского элемента управления значение "А" (без кавычек).<br><br> <b>2</b>. Переключитесь на тестовую форму и запустите ее. Обратите внимание, что можно переместить фокус на пользовательский элемент управления, нажав комбинацию клавиш Alt+A.<br><br> <b>3</b>. Теперь остановите приложение, возвратитесь к заказному элементу управления и откройте событие AccessKeyPress. Это событие вызывается каждый раз, когда нажимается "горячая" клавиша. Добавьте следующие строки, чтобы событие отображало ASCII-код клавиши.<br><br> Private Sub UserControl_AccessKeyPress(KeyAscii As Integer) <br><br> Debug.Print "Access key pressed" & KeyAscii <br><br> <br> End Sub<br><br> Чтобы переместить фокус на определенный конституэнтный элемент управления или выполнить некоторое действие, когда фокус перемещается на заказной элемент управления, введите соответствующий код в событие AccessKeyPress. Давайте добавим "горячие" клавиши к двум кнопкам Command из последнего примера. Для этого выполните следующие действия.<br><br> <b>1</b>. Переключитесь на объект UserControl и добавьте две кнопки - Command1 и Command2, как показано на рис. 16.15. (Если был выполнен пример при рассмотрении свойства CanGetFocus двумя страницами ранее, то эти две кнопки уже находятся на форме.)<br><br> <div style="text-align:center;"><img src="image/kljuchevye-svojstva-jelementa-upravlenija_1.gif" alt="Ключевые свойства элемента управления"></div><br><br> <b>Рис. 16.15.</b> Когда фокус перемещается на заказной элемент управления, он, на самом деле, перемещается на один из конституэнтных элементов управления<br><br> <b>2</b>. Переключитесь на тестовую форму и поместите на форму экземпляр нового элемента управления, кнопку или другой элемент управления.<br><br> <b>3</b>. Запустите тестовый проект и перемещайте фокус между элементами. Обратите внимание на следующее.<br><br> • При перемещении фокуса на заказной элемент управления с помощью мыши, фокус устанавливается на кнопке Command1.<br><br> • При перемещении фокуса на заказной элемент управления с помощью клавиши Tab в окне проверки отображается ASCII-код "горячей" клавиши.<br><br> <b>4</b>. Теперь переключитесь обратно на объект UserControl и назначьте "горячие" клавиши двум кнопкам Command. Измените их свойства Caption на Command&l и Command&2, чтобы клавиши 1 и 2 стали их "горячими" клавишами.<br><br> <b>5</b>. Запустите тестовый проект и поэкспериментируйте с перемещением фокуса на элементы управления, размещенные на форме.<br><br> Можно использовать комбинацию "горячих" клавиш, чтобы обратиться не только к указному элементу управления, но также и к отдельным его компонентам. Чтобы активизировать определенный конституэнтный элемент каждый раз, когда фокус перемещается на заказной элемент управления, добавьте метод SetFocus в подпрограмму UserControl_AccessKeyPress(). Если заказной элемент управления содержит текстовое поле как свою составную часть, то можно с помощью следующей подпрограммы перевести фокус и на это поле:<br><br> <br> Private Sub UserControl <br><br> AccessKeyPress(KeyAscii As Integer)<br><br> Textl.SetFocus <br><br> End Sub<br><br> <b>VB6 в действии: элемент управления ActiveX Alarm</b><br><br> Следующий пример демонстрирует элемент управления ActiveX, который содержит все три типа элементов — свойства, методы и события. Это простой сигнал оповещения, который может быть предварительно установлен, чтобы сработать в определенное время, а когда это происходит, то генерируется событие TimeOut. Кроме того, пока таймер включен, элемент управления обновляет изображение на экране, показывая время, истекшее с момента запуска таймера (свойство CountDown должно быть False), или время, оставшееся до момента срабатывания сигнала (свойство CountDown должно быть True). На рис. 16.16 показана тестовая форма для элемента управления Alarm. Первый экземпляр элемента управления Alarm (Process А) подсчитывает время с момента запуска таймера, а второй экземпляр (Process В) подсчитывает время, оставшееся до момента срабатывания таймера.<br><br> Совет<br><br> При первой загрузке проекта Alarm Visual Basic выдает предупреждение о том, что он не смог загрузить элемент управления Alarm. Это означает, что элемент управления Alarm еще не был установлен в системе, и тестовая форма, которая их использует, не может быть загружена. Продолжайте загрузку проекта, а затем откройте тестовую форму. Два экземпляра элемента управления Alarm будут заменены двумя элементами управления PictureBox. Удалите эти два элемента управления и поместите два экземпляра элемента управления Alarm на тестовую форму (см. рис. 16.16).<br><br> <div style="text-align:center;"><img src="image/index-image071.gif" alt="Ключевые свойства элемента управления"></div><br><br> <b>Рис. 16.16.</b> Тестовая форма для специального элемента управления Alarm<br><br> <b>Интерфейс элемента управления Alarm</b><br><br> Элемент управления Alarm имеет два специальных свойства:<br><br> •  AJarmTime и<br><br> • Count Down.<br><br> AlarmTime - это время срабатывания сигнала, выраженное в 12-ти часовом формате. CountDown — это свойство типа True/False, которое определяет, что отображается на элементе управления. Если CountDown равно True, то Alarm показывает оставшееся время. Если установить время срабатывания сигнала на 8:00 вечера и запустить таймер в 7:46 вечера, то элемент управления отобразит 0:14.00, затем 0:13.59 и т.д., пока сигнал не сработает через 14 минут. Если CountDown установить в False, то элемент управления начинает отсчет с 00:00.00 и будет считать, пока не будет достигнуто значение AlarmTime. Если значение свойства AlarmTime меньше текущего времени, элемент управления Alarm предполагает, что сигнал должен сработать в заданное время на следующий день. Например, если текущее время 8:00.00 вечера 1 апреля, a AlarmTime равно 6:30.00 вечера, то сигнал сработает в 6:30.00 вечера 2 апреля (сигнал произойдет через 22 часа 30 минут).<br><br> <br> Элемент управления Alarm имеет два метода для запуска и остановки таймера:<br><br> <b>•  StartTimer</b> запускает таймер и<br><br> <b>•  StopTimer</b> останавливает таймер.<br><br> Наконец, элемент управления Alarm имеет событие TimeOut, которое сообщает приложению, что сигнал уже сработал (это происходит тогда, когда время достигло значения AlarmTime). Приложение может использовать это событие, чтобы выполнить другое действие или просто проинформировать пользователя.<br><br> <b>Тестирование элемента управления Alarm</b><br><br> Тестовая форма элемента управления Alarm показана на рис. 16.16. Она содержит два экземпляра элемента управления и можно менять их свойство CountDown во время выполнения. Свойство AlarmTime элементов управления устанавливается в случайное значение в обработчике события Load тестовой формы с помощью следующих операторов:<br><br> Private Sub Form_Load()<br><br> Randomize Time<br><br> AlarmCtl1.AlarmTime = Rnd()<br><br> AlarmCtl2.AlarmTime = Rnd() <br><br> End Sub<br><br> Для тестирования проекта Alarm закомментируйте строки в событии Load формы и установите время сигнала на несколько минут вперед относительно текущего времени, чтобы не пришлось долго ждать момента срабатывания сигнала.<br><br> Когда два элемента управления Check 1 и Check2 отмечены, свойство Count Down изменяется с помощью следующего кода:<br><br> Private Sub Checkl_Click() <br><br> If Checkl.Value Then<br><br> AlarmCtll.Count Down = True Else<br><br> AlarmCtll.CountDown = False <br><br> End If <br><br> End Sub<br><br> Код для события Click элемента управления Check2 идентичен, только он применяется к элементу управления AlarmCtl2. Наконец, когда у элемента управления Alarm подходит время срабатывания сигнала, выполняется следующий код.<br><br> Private Sub AlarmCtll_TimeOut()<br><br> MsgBox "The Alarm" & AlarmCtll.Tag & "has Timed out" <br><br> End Sub<br><br> Нужно присвоить свойству Tag элемента управления подходящее имя, так как программа использует это свойство для различения двух элементов управления. Тестовый проект использует тэги ProcessA и ProcessB.<br><br> Кнопка Start Timer под каждым элементом управления запускает таймер соответствующего элемента управления. После этого она изменяет свое название на Stop Timer, чтобы пользователь в любой момент мог остановить отсчет. Код первой кнопки Start Timer показан ниже.<br><br> <br> <b>Программа 16.14.</b> Запуск и остановка сигнала<br><br> Private Sub StartButtonl_Click()<br><br> If StartButtonI.Caption = "Start Timer" Then <br><br> AlarmCtl1.StartTimer <br><br> StartButtonI.Caption = "Stop Timer" <br><br> Else<br><br> StartButtonI.Caption = "Start Timer" <br><br> AlarmCtl1.StopTimer <br><br> End If <br><br> End Sub<br><br> И, наконец, кнопки Alarm Time с помощью следующего кода отображают время, когда соответствующий сигнал должен сработать.<br><br> Private Sub AlarmButtonl_Click()<br><br> MsgBox "The alarm will go off at" & AlarmCtll.AlarmTime <br><br> End Sub<br><br> Загрузите проект Alarm (продолжайте загрузку даже после того, как появится предупреждение) и замените два элемента управления PictureBox, которые появятся вместо элементов управления Alarm, на два экземпляра элементов управления Alarm. Поэкспериментируйте с интерфейсом элемента управления и исследуйте код тестового проекта.<br><br> Откройте тестовый проект, закомментируйтс операторы в событии Load формы (которые устанавливают значение свойства AlarmTime равным случайным значениям) и установите свойство AlarmTime на минуту больше, чем системное время (текущее время, отображаемое в нижнем правом углу панели задач). Запустите проект и затем отметьте флажок CountDown. Alarm начнет отсчитывать в обратном направлении разность между текущим временем и временем срабатывания сигнала. Когда эта разница достигнет нуля, окно сообщений сообщит, что время прошло. Если флажок CountDown не отмечен, то вы увидите, сколько времени прошло с момента запуска таймера. Чтобы отобразить время сигнала, нажмите кнопку Alarm Time.<br><br><br> <h1>Код элемента управления</h1> Rates<br> Стандартные свойства элемента управления добавлены с помощью мастера интерфейса ActiveX. Остановимся на процедурах, которые загружают текстовый файл и выводят его в элемент управления ListBox.<br> <b>Программа 21.10.</b> Метод DownloadRates<br> Public Function DownloadRates(RatesURL As String) <br> On Error GoTo DLoadError<br> AsyncRead RatesURL, vbAsyncTypeFile, "Rates" <br> Exit Function<br> DLoadError:<br> RaiseEvent DLoadError(1024, "Could not download currency _<br> rates.")<br> ' (He удалось загрузить курсы валют)<br> End Function<br> Метод, вызывающий функцию AsyncRead, передает ей URL Web-сервера в качестве параметра. Загруженная информация сохранится в файле с именем Rates.<br> Интересное действие выполняется, когда происходит событие<br> AsyncReadComplete объекта UserControl.<br> Private Sub UserControl_AsyncReadComplete(AsyncProp As AsyncProperty) <br> Dim FileName As String<br> On Error GoTo DLoadError<br> If AsyncProp.PropertyName = "Rates" Then <br> FileName = AsyncProp.Value <br> ReadRates FileName <br> End If <br> Exit Sub<br> DLoadError:<br> RaiseEvent DLoadError(1025, "Error in Downloading rates")<br> ' (Ошибка при загрузке курсов) <br> End Sub<br> Код начинается с проверки значения свойства<br> PropertyName объекта AsyncProp. В элементе управления Rates это свойство принимает только значение Rates. Если элемент управления загружает несколько файлов сразу, то свойство укажет, загрузка какого файла уже завершена, чтобы его можно было обработать. Когда метод AsyncRead загружает файл, свойство Value объекта AsyncProp содержит имя файла и путь на локальном диске. Это имя не имеет никакого отношения к фактическому имени файла на сервере. Оно является уникальным именем файла, созданным системой во временной папке файлов Интернет. Имя файла используется подпрограммой ReadRates() для отображения курсов в элементе управления ListBox.<br> <b>Программа 21.11.</b> Подпрограмма ReadRates()<br> Private Sub ReadRates(FileName As String)<br> Dim FNum As Integer<br> Dim currencyName As String, currencyValue As Currency<br> <br> FNum = FreeFile<br><br> CurrencyList.Clear <br><br> On Error GoTo ReadError<br><br> Open FileName For Input As FNum<br><br> Input ttFNum, m_LastUpdate<br><br> i=1<br><br> While Not EOF(FNum)<br><br> Input #FNum, currencyName, currencyValue <br><br> CurrencyList.AddItem currencyName & Chr(9) & _<br><br> Format(currencyValue, "#.000") <br><br> CurrencyNames(i) = currencyName <br><br> AllRates.Add Str(currencyValue), currencyName <br><br> i = i + 1<br><br> Wend<br><br> RaiseEvent RatesRead<br><br> Exit Sub<br><br> ReadError:<br><br> RaiseEvent DLoadError(1025, "Unkown data format")<br><br>                                 ' (Неизвестный формат данных)<br><br> End Sub<br><br> Это прямолинейный VB-код, который открывает текстовый файл и помещает его строки в элемент управления CurrencyList типа ListBox. Он сохраняет курсы валюты в списке AllRates, используя имя валюты в качестве ключа. Эта методика упрощает поиск курса обмена валюты. Подпрограмма ReadRates(), описанная в параграфе Private объекта UserControl, не может вызываться из основного приложения.<br><br> Обратите внимание на код обработки события ошибки во всех подпрограммах. При разгрузке информации из Интернет может произойти любое количество ошибок. HTTP-сервер может выключиться, файлы на сервере — реорганизоваться, может произойти ошибка передачи. Все это нужно отследить, продолжив работу программы надлежащим образом.<br><br> Возможность, которую можно добавить к проекту — сделать так, чтобы программа следила за загружаемым свойством и не допускала инициализации другой загрузки того же свойства хост-приложением, в то время как первое свойство загружается. Приведенный код выдаст общее сообщение об ошибке<br><br> "Error in downloading rates" ("Ошибка в загрузке курсов"). Метод AsyncRead может вызываться для загрузки файла, пока загружается другой файл, но он не может загружать один и тот же файл дважды.<br><br> <b>Тестирование элемента управления Rates</b><br><br> Тестирование элемента управления, который загружает значения свойства с HTTP-сервера, требует, чтобы приложение было соединено с сервером, а документ, используемый для тестирования, находился на сервере. Если имеется собственный Web-сервер (Internet Information или Server Personal Web Server), то можно только скопировать Rates, txt файл в виртуальный каталог Web-сервера. Или просто скопировать файл в корневой каталог и соединиться с сервером, используя следующий URL.<br><br> <br> http://127.0.0.1/RatesPage.htm<br><br> Адрес 127.0.0.1 — адрес компьютера в сети. Фактически, нет необходимости в реальной сети. Если на компьютере установлен Web-сервер, то можно использовать этот URL, чтобы соединиться с файлом. Если Web-сервер находится на другом компьютере той же сети, замените "127.0.0.1" фактическим именем компьютера.<br><br> В большинстве случаев собственного Web-сервера нет. Тогда используется сервер провайдера услуг Интернет, если есть разрешение помещать файлы на этот сервер (большинство ISP предоставляет абонентам несколько мегабайт для пользовательских страниц). Чтобы проверить элемент управления Rates с ISP-сервера, поместите Rates.txt файл в каталог на сервере. Для этого выполните следующие действия.<br><br> <b>1</b>. Создайте новую папку на жестком диске и поместите туда файл Rates.txt (если есть другие HTML-файлы, которые необходимо поместить на сервер, также перепишите их в эту папку).<br><br> <b>2</b>. Запустите Web Publishing Wizard (утилита, поставляемая с Windows и FrontPage).<br><br> <b>3</b>. Первая страница Web Publishing Wizard - экран приглашения. Щелкните на кнопке Next, чтобы перейти к выбору файлов или папок.<br><br> <div style="text-align:center;"><img src="image/index-image168.gif" alt="Код элемента управления"></div><br><br> <b>4</b>. Введите имя созданной папки в поле File Name Box или Folder Name Box. Щелкните на кнопке Next.<br><br> <b>5</b>. В следующем окне определите имя Web-сервера и щелкните на кнопке Advanced. Появится другое окно, в котором необходимо выбрать протокол, используемый для пересылки файла.<br><br> <b>6</b>. Выберите FTP и щелкните на кнопке Next.<br><br> В следующем окне установите URL провайдера услуг Интернет. Необходимо определить имя сервера, чтобы ISP поместил страницы пользователя (имя локального каталога изменять не нужно). Для большинства ISP этот URL выглядит примерно так.<br><br> users.ISPname.com/yourname<br><br> Часть<br><br> yourname — имя пользователя, которое используется для входа в систему. Если адрес пользователя — jdoe@usa1.com, то имя входа в систему — jdoe, a URL каталога на ISP-сервере следующий.<br><br> users.usa1.com/jdoe<br><br> Многие ISP используют символ тильды перед именем пользователя (users.usa1.com ~ jdoe). Если поискать "user pages" на ISP Web-узле, то будет найдена вся необходимая информация.<br><br> <br> Чтобы увидеть последнее окно мастера, щелкните на кнопке Next. Затем щелкните на кнопке Finish, чтобы поместить файлы на сервер.<br><br> Чтобы проверить каталог на сервере, запустите Internet Explorer и введите URL файла Rates.txt, находящегося на сервере.<br><br> Http://users.usa1.com/jdoe/rates.txt<br><br> Содержимое файла Rates.txt отобразится в окне броузера. Это значит, что файл на сервере успешно размещен и элемент управления Rates будет видеть его на сервере (и загружать с него). Необходимо скопировать URL из поля Address броузера и вставить его в код (передать как параметр в метод DownloadRates элемента управления Rates).<br><br> Описанный процесс работает со многими ISP, но так можно обратиться не ко всем ISP. Если возникают проблемы при помещении файлов на сервер, необходимо выяснить у Internet провайдера, что необходимо выполнить для размещения персонального Web-узла. Вместо Web-узла поместите файл Rates.txt. Или, если собственный Web-узел уже есть, поместите файл Rates.txt в тот же каталог. Это не повлияет на Web-узел, так как ни одна из его страниц не содержит гиперсвязи к этому файлу.<br><br> Если курсы валют были загружены, а через некоторое время вы снова щелкнули на кнопке Download Rate, то возможно появление на элементе управления тех же значений. Можно разместить новые файлы на сервере несколько раз, но курсы не будут меняться. Опытные Web-пользователи уже сообразили, в чем дело AsyncRead метод не запрашивает сервер, чтобы загрузить Rates.txt файл снова он восстанавливает файл из кэша, сохраняет информацию в другом временном файле, а код элемента управления считывает его. В действительности, метод AsyncRead входит в класс IntemetExplorer и использует тот же кэш, что и Internet Explorer.<br><br> Там, где Internet Explorer 4 позволяет обновить страницу, метод AsyncRead не поддерживает параметр, заставляющий считывать данные с сервера вместо кэша. Для решения этой проблемы измените установки кэша Internet Explorer Выполните следующие действия.<br><br> <b>1</b>. Запустите Internet Explorer и выберите команду Internet Options в меню View<br><br> <br> <b>2</b>. Щелкните на кнопке Settings (Установки), чтобы открыть диалоговое окно Settings.<br><br> <div style="text-align:center;"><img src="image/index-image169.gif" alt="Код элемента управления"></div><br><br> <b>3</b>. Чтобы заставить Internet Explorer перезагружать страницу с сервера (вместо чтения из кэша), установите флажок Eveiy visit to the page.<br><br> Теперь Internet Explorer не будет использовать кэш, и при каждом возврате к предыдущей странице, даже с интервалом в несколько секунд, страница будет перезагружаться с сервера. Когда эта книга была подготовлена к печати, Microsoft анонсировала первую бета-версию Internet Explorer 5. Возможно, новый AsyncRead метод позволит выбирать, загружать страницу или просто регенерировать кэш.<br><br> Другой интересный подход включить класс IntemetExplorer в элемент управления, вызвать его метод Refresh2 и вынудить загрузку файла. Когда метод AsyncRead вызывается снова, он обращается за данными в кэш, который будет содержать уже обновленные данные.<br><br> <b>Загрузка свойств изображения</b><br><br> Метод AsyncRead может загружать свойства изображения. Изображения загружаются в виде двоичных файлов и отображаются с помощью метода LoadPicture. Visual Basic может создать контекст устройства для сохранения загруженного битового изображения. Чтобы загрузить изображение, нужно вызвать функцию AsyncRead.<br><br> AsyncRead URL, vbAsyncTypePicture, "Image"<br><br> Константа<br><br> vbAsyncTypePicture<br><br> сообщает Visual Basic, что загружаемый объект -изображение. Файлы не создаются на хост-компьютере, поэтому считать значения пикселей нет возможности. Чтобы работать с изображением, необходимо контролировать его загрузку с помощью функции AsyncReadComplete. Когда загрузка свойства Image (или др. имени, назначенного свойству в методе AsyncRead) завершается, необходимо прочесть значение свойства и сохранить его в объекте Picture с помощью следующего оператора.<br><br> Set Bitmap = AsyncProp.Value<br><br> Если загружаются несколько изображений, то для идентификации свойств используются различные имена. Можно использовать такие свойства объекта Bitmap, как Height (Высота) и Width (Ширина). Следующий фрагмент кода создает объект Picture с загруженным растровым изображением и вызывает подпрограмму Showlmage(), чтобы отобразить его в элементе управления PictureBox.<br><br> <br> Private Sub UserControl_AsyncReadCornplete (AsyncProp As AsyncProperty)<br><br> On Error GoTo DloadError<br><br> If AsyncProp.PropertyName = "Image" Then <br><br> Set Bitmap = AsyncProp.Value <br><br> Showlmage Bitmap<br><br> ' Ширина Bitmap задается в твипсах,<br><br> ' для преобразования ее в пиксели используйте оператор <br><br> ' Int(ScaleX(Bitmap.Width, vbHimetric, vbPixels)) <br><br> End If <br><br> Exit Sub <br><br> DLoadError:<br><br> ' сброс события ошибки <br><br> End Sub<br><br> Подпрограмма ShowImage() использует метод PaintPicture, чтобы скопировать битовое изображение из переменной Bitmap в элемент управления PictureBox.<br><br> Picture1.PaintPicture Image, 0, 0, _<br><br> Picture1.ScaleWidth, Picture1.ScaleHeight, _ <br><br> 0, 0, Picture1.ScaleWidth,Picture1.ScaleHeight<br><br> Подведем итог: загрузка свойств изображения с HTTP-сервера аналогична загрузке текстовых файлов. Необходимо определить тип данных, загружаемых в функцию AsyncRead (константа vbAsyncTypePicture<br><br> используется вместо vbAsyncTypeFile). Когда изображение загружено, объект Picture создается автоматически. В нем и сохраняется битовое изображение (так же, как автоматически генерировался текстовый файл). Можно использовать метод PaintPicture, чтобы передать растровое изображение от объекта Picture элементу PictureBox или непосредственно объекту UserControl.<br><br> Наконец, можно загрузить данные в формате массива, определяя константу vbAsyncTypeArray в функции AsyncRead. При этом Visual Basic создает байтовый массив, который можно обрабатывать с помощью кода.<br><br> <b>Глава 22</b>. Активные серверные страницы<br><br> <b>• Взаимодействие клиент-сервер</b><br><br> <b>• Использование активных серверных страниц</b><br><br> <b>• Передача данных на сервер</b><br><br> <b>• Обработка данных клиента</b><br><br> <b>• Использование объекта Server</b><br><br> <b>• Разработка Web-приложений</b><br><br> Мы уже знаем, как Web-cepep пересылает информацию клиенту в форме HTML-документов и как клиент взаимодействует с сервером с помощью гиперссылок (см. гл. 19), как создавать Web-страницы, позволяющие пользователю вводить данные на клиентском компьютере, и пересылать их вместе с URL на сервер. Кода сервер получает данные (так называемые значения параметров) от клиента, он обрабатывает их и возвращает результат в HTML-формате. В этой главе мы узнаем, как сервер извлекает параметры из сообщения клиента и обрабатывает их. Это самая важная часть механизма взаимодействия клиент-сервер и (во всяком случае, до появления ASP) наиболее сложная для реализации.<br><br> <br> Параметры, передаваемые клиентом, разнообразны. Это может быть регистрационная информация, аргументы для поиска, параметры настройки. Компанию может интересовать информация из баз данных, извлекаемая по мере поступления запросов. Для получения самых "свежих" данных с Web-сервера переслать на сервер имя гиперссылки недостаточно. Представьте, что пользователю нужны данные о продажах некоторого товара в штате Северная Каролина или список наиболее активных заказчиков из Техаса. Данные получают из базы данных при поступлении запроса. Это не может быть документ, подготовленный загодя и находящийся на диске сервера в ожидании запроса. После запроса сервер должен извлечь необходимую информацию из базы, преобразовать ее в HTML-формат и передать клиенту.<br><br> Многие компании (крупные и не очень) осуществляют сделки, используя Web. Стало быть, коммерческий Web-узел должен предоставлять пользователю информацию о товарах и принимать заказы (товары, их количество, адрес получателя и т.п ) Требования к коммерческим Web-узлам — одна из тем, рассматриваемых в этой главе.<br><br> Примечание<br><br> В этой главе не рассмотрены вопросы, связанные с передачей конфиденциальной информации, например, номера кредитной карточки. Подобную информацию можно найти в документации к соответствующим продуктам<br><br> Microsoft, например, к Commerce Server.<br><br><br> <h1>Компонентное программное обеспечение</h1> Сущность технологии OLE состоит в использовании компонентов программного обеспечения.<br> Компонент — это объект (элемент управления или приложение) который кто-то уже разработал, и его можно использовать в вашей программе. Если компонент поддерживает OLE, то можно "позаимствовать" его функциональные возможности для собственных целей. Например, Microsoft Word содержит средства проверки правописания. Зачем же покупать другую программу проверки, или писать собственную, если можно позаимствовать эти функциональные возможности из Word?<br> Разработчик компонентного программного обеспечения рассматривает программу как совокупность работающих вместе компонентов, что позволяет обеспечить общий стандарт интерфейса для OLE-приложений. Например, функциональные возможности электронной таблицы могут быть доступными в текстовом процессоре, и наоборот. Прикладная программа, созданная средствами Visual Basic, может обладать функциональными возможностями и текстового процессора, и электронной таблицы.<br><br> <br><br> <h1>Компоненты-члены элемента управления</h1> Rates<br> Rates имеет много стандартных компонентов-членов.<br><table border=1><br> <tr> <td>BackColor<br> <td> <td>ForeColor<br> <td> <td>MouseMove<br> <td> </tr> <tr> <td>Click<br> <td> <td>Key Down<br> <td> <td>MouseUp<br> <td> </tr> <tr> <td>DblClick<br> <td> <td>KeyPress<br> <td> <td>Refresh<br> <td> </tr> <tr> <td>Enabled<br> <td> <td>KeyUp<br> <td> <td> <td> </tr> <tr> <td>Font<br> <td> <td>Mouse Down<br> <td> <td> <td> </tr> </table><br> Эти компоненты добавлены в элемент управления с помощью мастера. Все они соответствуют эквивалентным элементам управления ListBox.<br> В дополнение к стандартным, элемент управления<br> Rates реализует следующие пользовательские компоненты.<br> <b>Метод DownloadRates (Загрузить курсы обмена).</b> Метод DownloadRates соединяется с сервером и загружает документ, содержащий курсы валюты. Ниже приведен синтаксис этого метода.<br> DownloadRates (RatesURL As String)<br> RatesURL - это URL текстового файла, имеющий следующую структуру.<br> <date><br> <currency>, <rate> <br> <currency>, <rate><br> <currency>, <rate><br> Первая строка содержит дату последней модификации файла, чтобы       клиент знал, когда изменялись данные по курсам. Следующие строки содержат обозначения валюты и курса, отделяемые запятыми. Так выглядит файл, содержимое которого приведено в виде списка (см. рис. 21.12).<br> "5:31 РМ 5/18/96" <br> US$, 1.00 <br> С$, 1.483 <br> ВР, 0.867 <br> FFr, 2.143 <br> ECU, 1.103 <br> DM, 1.780 <br> ESP, 13.203 <br> YEN, 143.300 <br> LIR, 2340.500 <br> GDr, 328.405 <br> BFR, 25.403<br> Так как код использует запятую, чтобы отделить два элемента каждой строки, нельзя использовать тот же самый символ как разделитель тысяч. Значение 2340.500 не может быть представлено в Rates.txt файле как 2,340.500. Его не пропустит код, который анализирует файл и заполняет элемент управления ListBox.<br> <b>Событие RatesRead (Чтение курсов).</b> Инициируется, как только данные разгружены.<br> <b>Свойство LastUpdate (Последняя модификация).</b><br> Возвращает дату и время последней модификации курсов. Значение свойства считывается с сервера вместе с курсами валюты.<br> <b>Свойства Count (Счетчик).</b> Возвращает число различных типов валют, загруженных с сервера.<br> <b>GetCurrencyValue (Получить курс).</b> Возвращает обменный курс определенной валюты. Чтобы узнать обменный курс, например, для немецкой марки, вызовите метод GetCurrencyValue.<br> DMRate = GetCurrencyValue("DM")<b> , </b><br> Аргумент метода должен иметь тип String<br> <b>Метод GetCurrencyName (Получить имя валюты).</b> Возвращает имя валюты в поле index элемента управления ListBox.<br> <b>Событие DLoadError (ErrNumber As Long, ErrDescription As String).</b> Вызывается из события AsyncReadComplete, чтобы сообщить приложению, что произошла ошибка. Главное приложение может узнать номер и описание ошибки, чтобы предпринять соответствующие действия.<br><br> <br><br> <h1>Конструирование базовых прототипов элемента управления</h1> В первом разделе этой главы изучалось конструирование элементов управления средствами мастера ActiveX пользовательского интерфейса. Даже при том, что мастер позаботился о многих деталях реализации и создал полностью работоспособный элемент управления, необходимо было знать несколько вещей о режимах работы элемента управления для придания ему нужной функциональности. Мастер создает скелет элемента управления, но необходимо его наполнить.<br> Ранее не упоминалось о некоторых важных моментах. Рассмотрим их в этом параграфе, включая инициализацию и уничтожение элемента управления, использование уникальных свойств, методов и событий. В целях упрощения, не будем создавать другой элемент управления, а используем базовый прототип. На этот раз не будем использовать мастер, а создадим все свойства и методы вручную, чтобы получить некоторый опыт редактирования элементов управления.<br><br> <br><br> <h1>Конструирование элемента управления ActiveX</h1> Откройте новый проект ActiveX, выполнив следующие действия: <br> <b>1</b>. Выберите команду New Project меню File.<br> <b>2</b>.  В окне New Project выберите пиктограмму ActiveX Control. Visual Basic создаст новый проект под названием Project!, который содержит элемент управления с именем UserControll.<br> Начальные установки для элемента управления ActiveX показаны на рис. 16.3 (имена в окне проекта отличаются, ниже будет показано, как их изменить).<br> <div style="text-align:center;"><img src="image/konstruirovanie-jelementa-upravlenija-activex_1.gif" alt="Конструирование элемента управления ActiveX"></div><br> <b>Рис 16.3.</b> Проект элемента управления ActiveX содержит вместо формы элемент управления.<br> Давайте переименуем проект и элемент управления. Эти два имени будут использованы для регистрации данного элемента в системе, поэтому они должны быть содержательными. Выполните следующее.<br> <b>1</b>. Выберите Project1 в окне Project и, когда появятся его свойства, измените свойство Name на FLEXLabel.<br> <b>2</b>. Выберите UserControll в окне Project и, когда появятся его свойства, измените свойство Name на Label3D.<br> Совет<br> Каждый раз, когда элемент управления ActiveX помещается на форму, его имя представляет собой соединение названия элемента управления и соответствующей цифры. Первый экземпляр элемента управления, помещенного на форму, будет назван Label3D1, следующий будет назван Label3D2 и так далее.<br> Только что вы познакомились с новым объектом —<br> UserControl. Как вскоре станет ясно, UserControl - это некий аналог формы, на которой конструируется элемент управления. Объекты UserControl обладают дополнительными уникальными свойствами, которых нет у обыкновенной формы, но на этом этапе можно думать о них как об обычных формах. В то время как приложение FLabel выравнивает и отображает надпись на форме, элемент Label3D использует тот же код для отображения надписи на объекте UserControl.<br> Таким образом, подготовлена сцена для нового элемента управления ActiveX. Прежде чем вставлять собственный код, запустим мастер, чтобы он сгенерировал как можно больше кода для элемента управления. Среди прочего, он разработает и структуру элемента управления.<br> <b>Мастер интерфейса элемента управления ActiveX</b><br> <br> Выберите меню Add-Ins и в открывшемся диалоговом окне выберите строку ActiveX Control Interface Wisard, чтобы открыть мастер. Этот мастер поможет создать новый элемент управления ActiveX. Он создаст интерфейс элемента управления (свойства, методы и события) и приготовит его основной код. Останется только подготовить код, который рисует надпись и реализует еще несколько возможностей, которые не могут быть автоматизированы. Мастер сделает большую часть работы. Он имеет шесть окон, назначение которых будет вскоре объяснено.<br><br> Если мастер в меню Add-Ins отсутствует, выберите меню Add-In Manager и в диалоговом окне сделайте двойной щелчок на строке VB6 ActiveX Control Interface Wisard. Напротив, в колонке Load Behavior, появится, как показано на рис. 16.4, слово Loaded. Теперь нажмите ОК., и данный мастер появится в меню Add-Ins.<br><br> Мастер интерфейса элемента управления ActiveX будет сопровождать разработчика при проектировании скелета элемента. Мастер, естественно, не добавит код, выравнивающий или, даже, отображающий надпись, но создаст элемент управления с большинством стандартных частей типичного элемента управления ActiveX.<br><br> <div style="text-align:center;"><img src="image/konstruirovanie-jelementa-upravlenija-activex_2.gif" alt="Конструирование элемента управления ActiveX"></div><br><br> <b>Рис. 16.4.</b> Диалоговое окно Add In Manager<br><br> <b>Введение</b><br><br> Первый экран мастера — приглашение, появление которого можно потом отключить, отметив флажок "Skip this screen in future". Для начала процесса конструирования интерфейса создаваемого элемента управления нажмите кнопку Next.<br><br> <div style="text-align:center;"><img src="image/konstruirovanie-jelementa-upravlenija-activex_3.gif" alt="Конструирование элемента управления ActiveX"></div><br><br> <b>Выбор элементов интерфейса</b><br><br> Следующее окно мастера предлагает выбрать стандартные части элемента управления ActiveX Слева — список стандартных свойств, методов и событий, которые можно включить в конструируемый элемент. Справа — список уже выбранных свойств, методов и событий интерфейса. Visual Basic предполагает, что конструируемый элемет управления должен поддерживать выбранные свойства.<br><br> <div style="text-align:center;"><img src="image/konstruirovanie-jelementa-upravlenija-activex_4.gif" alt="Конструирование элемента управления ActiveX"></div><br><br> Для добавления нового свойства, метода или события элемента управления выберите его из списка и щелкните кнопку с одинарной стрелкой вправо. Добавьте, таким образом, следующие компоненты:<br><br> <br> <table border=1> <tr> <td> Appearance<br><br> </td> <td> Font<br><br> </td> <td> MouseMove<br><br> </td> <td> OLEGive Feedback<br><br> </td> </tr> <tr> <td> Backcolor<br><br> </td> <td> ForeColor<br><br> </td> <td> Mouse Pointer<br><br> </td> <td> OLESetData<br><br> </td> </tr> <tr> <td> Backstyle<br><br> </td> <td> HOC<br><br> </td> <td> Mouse Up<br><br> </td> <td> OLEStartDrag<br><br> </td> </tr> <tr> <td> BoiderStyle<br><br> </td> <td> HWnd<br><br> </td> <td> OLEDrag<br><br> </td> <td> Picture<br><br> </td> </tr> <tr> <td> Click<br><br> </td> <td> Key Down<br><br> </td> <td> OLEDragDrop<br><br> </td> <td> Resize<br><br> </td> </tr> <tr> <td> DblClick<br><br> </td> <td> KeyPress<br><br> </td> <td> OLEDragOver<br><br> </td> <td> </td> </tr> <tr> <td> Enabled<br><br> </td> <td> Key Up<br><br> </td> <td> OLEDropMode<br><br> </td> <td> </td> </tr> </table> Как видно, включены все стандартные свойства, события и методы, которые должны быть у типичного элемента управления. Свойства для установления связи с данными пропущены, поскольку элемент управления FLEXLabel не будет связан с полями какой-либо базы данных. Нажмите кнопку Next.<br><br> <b>Создание специальных частей интерфейса</b><br><br> <div style="text-align:center;"><img src="image/konstruirovanie-jelementa-upravlenija-activex_5.gif" alt="Конструирование элемента управления ActiveX"></div><br><br> В этом окне, можно добавить свойства, события и методы, которые являются уникальными для данного элемента управления. Для этого выполните следующие действия.<br><br> <b>1</b>. Нажмите кнопку New, чтобы отобразить диалоговое окно Add Custom Member.<br><br> <div style="text-align:center;"><img src="image/konstruirovanie-jelementa-upravlenija-activex_6.gif" alt="Конструирование элемента управления ActiveX"></div><br><br> <b>2</b>. В поле Name введите<b> Caption</b> (это название свойства) и включите флажок Property.<br><br> <b>3</b>. Нажмите ОК. Имя первого заказного свойства теперь отображено в окне My Custom Members.<br><br> <b>4</b>. Повторите шаги 1—3, чтобы добавить свойства Effect и TextAlignmem.<br><br> Если была допущена орфографическая ошибка в имени свойства или нужно удалить одно и ввести другое свойство, используйте кнопки Edit и Delete. В конце нажмите кнопку Next.<br><br> <b>Установка соответствия компонентов интерфейса</b><br><br> <div style="text-align:center;"><img src="image/konstruirovanie-jelementa-upravlenija-activex_7.gif" alt="Конструирование элемента управления ActiveX"></div><br><br> Это окно используется для установки соответствия между некоторыми свойствами специального элемента управления и свойствами так называемых конституэнтных (constituent) элементов управления. Конституэнтными являются стандартные элементы управления VB, используемые при конструировании специального элемента управления ActiveX. Предположим, что элемент управления содержит элемент Label, и желательно, чтобы фон элемента управления Label стал фоном конструируемого элемента управления (или цвет символа, например).<br><br> В этом окне свойства конструируемого элемента управления отображаются на свойства любого из элементов управления, которые он использует. Поэтому обращение к таким отображенным свойствам, на самом деле, является обращением к свойствам конституэнтного элемента управления.<br><br> <br> Следует установить соответствие между всеми компонентами (свойствами, методами и событиями), которые вы не желаете обрабатывать собственным кодом, и соответствующими компонентами объекта<br><br> UserControl. Событие Click — типичный пример. Нет необходимости в определении какой-либо реакции на щелчок внутри самого элемента управления, нужно передать событие главному приложению, чтобы обработать его соответствующим образом. Для отображения свойства выполните следующие действия.<br><br> <b>1</b>. Из списка Public Name выберите свойство или событие.<br><br> <b>2</b>. Щелкните на раскрывающемся списке и выберите UserControl Мастер немедленно выберет компонент объекта UserControl с тем же именем.<br><br> <b>3</b>. Отобразите все элементы нового элемента управления (исключая уникальные для данного элемента управления части) на эквивалентные компоненты объекта UserControl.<br><br> <b>4</b>. Нажмите кнопку Next.<br><br> <b>Установка атрибутов</b><br><br> <div style="text-align:center;"><img src="image/konstruirovanie-jelementa-upravlenija-activex_8.gif" alt="Конструирование элемента управления ActiveX"></div><br><br> В этом окне можно установить атрибуты новых компонентов (или, если это необходимо, изменить атрибуты, заданные по умолчанию, хотя это и не рекомендуется). Компоненты, которые уже были отображены, не будут показаны в этом списке. Мастер объявляет все новые свойства как Variant, поскольку невозможно установить их типы только по именам. Однако свойства TextAlignment и Effects должны быть целыми числами, a Caption — строкой.<br><br> Для того чтобы установить атрибуты, выполните следующие действия.<br><br> <b>1</b>. В поле Public Name выберите TextAlignment.<br><br> <b>2</b>. Выберите из раскрывающегося списка Data Type тип Integer.<br><br> Обратите внимание на возможность устанавливать значение свойств по умолчанию.<br><br> <b>3</b>. В поле Default Value введите значение 4. Это — значение, которое отображается по умолчанию в окне свойств для элемента управления FLEXLabel. Как будет показано ниже, можно назначить пользовательские типы данных для свойств.<br><br> <b>4</b>. Повторите шаги 1—3 для свойства Effects. Установите тип данных Integer и значение по умолчанию 2 (тисненый).<br><br> Совет<br><br> Не забудьте снабдить коротким описанием каждое свойство в поле Description. Эти описания отображаются внизу окна свойств, когда пользователь выбирает свойство. Стандартные элементы уже имеют описание, а для пользовательских свойств необходимо его составить.<br><br> <br> В поле Arguments можно указать параметры событий. Этот проект не имеет никаких собственных событий, но пример таких событий будет приведен позже в этой главе<br><br> Обратите внимание, что свойства могут различаться в режиме выполнения и в режиме конструирования. Если предполагается, что разработчику не нужно выполнять выравнивание или применять какие-либо эффекты во время выполнения, то необходимо для соответствующих свойств установить атрибут Read-Only at runtime (Только для чтения во время выполнения).<br><br> <b>Завершение</b><br><br> <div style="text-align:center;"><img src="image/konstruirovanie-jelementa-upravlenija-activex_9.gif" alt="Конструирование элемента управления ActiveX"></div><br><br> Чтобы сгенерировать элемент управления, в этом окне предлагается нажать кнопку Finish. Оставьте отмеченным флажок View Summary Report (Показать итоговый отчет).<br><br> Ваш жесткий диск будет работать в течение нескольких секунд, а затем отобрази гся итоговый отчет (который, в основном, говорит о том, что делать дальше). Закройте окно редактора или сохраните отчет.<br><br> Элемент управления FLEXLabel создан. Он делает не так много (нами ведь еще даже не введен код, отображающий надпись), но можно испытать его поведение как элемента управления. На данный момент элемент управления имеет собственную страницу свойств и может быть помещен на форму.<br><br> На экране нет ничего, за исключением формы. Эта — объект UserControl, который является формой во всех отношениях. Появилась также новая пиктограмма на панели элементов управления. Эта пиктограмма представляет новый элемент управления. Значок с изображением матрицы и ручки по умолчанию дается всем элементам управления ActiveX. Для того чтобы поменять значок, нарисуйте новую картинку (Bitmap) и свяжите ее со свойством ToolboxBitmap объекта UserContiol. Давайте сначала удостоверимся, что элемент управления работает, а затем настроим его. Пиктограмма элемента ActiveX заблокирована, поскольку элемент управления все еще конструируется. Он не может быть активизирован во время конструирования.<br><br><br> <h1>Конструирование элемента управления</h1> FLEXLabel<br> Перед тем как создать элемент управления, хотелось бы обсудить выгоды от создания элементов ActiveX. Некоторые могут удивиться, зачем возиться с элементами ActiveX, если уже есть код для отображения трехмерной надписи на форме любым способом? Если захотеть, то можно модифицировать код для работы с элементом PictureBox, который можно расположить где угодно на форме.<br> Действительно, элементы управления, подобные FLEXLabel, не что иное, как обычное приложение, но завернутые в другую упаковку. Есть определенные преимущества компоновки приложения в виде элементов управления ActiveX. Вот некоторые из них.<br> •  Код элемента управления не будет пересекаться с кодом основного приложения. Приложение даже не будет знать о коде элемента управления.<br> •  Можно менять текст, стили выравнивания и специальные эффекты из окна свойств, не меняя исходного кода приложения. Кроме того, можно визуально менять свойства и наблюдать изменения без запуска всего проекта.<br> • Элемент управления может накрывать только часть формы. Кроме того, можно поместить на одной форме несколько элементов управления с различными надписями.<br> •  Наконец, можно свободно распространять элемент управления, и другие разработчики могут использовать его, не затрагивая его код.<br> Первый шаг в конструировании элемента управления — это разработка его интерфейса, который определяет, как элемент будет выглядеть при помещении его на форму и как разработчики могут получить доступ к возможностям элемента управления через его компоненты. Уверен, что вы слышали этот совет не один раз, но многие пользователи все равно начинают кодирование элемента, не уделяя достаточно времени конструированию его интерфейса.<br> Элемент ActiveX должен предоставлять определенные свойства, которые автоматически отображаются в окне свойств. Разработчик должен иметь возможность настраивать каждый параметр, влияющий на отображение, посредством манипуляции его свойствами. В дополнение, разработчики ожидают увидеть стандартные свойства, присущие всем стандартным элементам (такие как цвет фона, шрифт текста и т.д.). Следует тщательно конструировать методы так, чтобы они обеспечивали все функциональные возможности элемента управления и были доступны из кода приложения. Кроме того, методы не должны перекрываться. Наконец, нужно предусмотреть события, необходимые для реакции на внешние воздействия. Можно кодировать обычные приложения без предварительного конструирования, но элементы ActiveX и приложения для работы с базами данных требуют тщательной подготовки. Не начинайте кодировать элемент управления до тех пор, пока не сформулируете абсолютно четко, что будет делать элемент и как он будет использоваться разработчиками во время конструирования их приложений.<br> <br> Alarm<br> Первым шагом является конструирование интерфейса элемента управления. В отличие от элемента управления Timer из Visual Basic, элемент управления Alarm имеет видимый интерфейс. Его работа основана на двух конституэнтных элементах управления:<br> <b>• Timer,</b> который обновляет изображение каждую секунду, и<br> <b>•  Label,</b> который отображает время.<br> <b>Конструирование интерфейса пользователя</b><br> Для конструирования интерфейса элемента управления, выполните такие шаги.<br> <b>1</b>. Поместите элемент управления Label на форму UserControl и установите в свойстве Font желаемые шрифт и размер.<br> <b>2</b>. Выровняйте Label по верхнему левому углу элемента управления, и измените размеры элемента управления так, чтобы он полностью вмещал элемент Label. (Запомните значения свойств Width и Height элемента управления. Они понадобятся позже при написании кода для предотвращения изменения размеров этого элемента управления.)<br> <b>3</b>. Поместите элемент управления Timer на объект UserControl He имеет значения, где поместить элемент управления Timer. Он будет невидим во время выполнения Можно поместить Timer вне видимой области пользовательского элемента управления или даже поверх элемента Label.<br> <b>4</b>. Чтобы завершить разработку элемента управления и препятствовать изменению его размеров, добавьте следующий код в обработчик события Resize элемента управления:<br> Private Sub UserControl Resize()<br> UserControl.Size 1800, 500 <br> End Sub<br> Метод Size заставляет элемент управления сохранять фиксированный размер Значения 1800 (ширина) и 500 (высота) размеров элемента управления нужно изменить согласно реальным размерам элемента управления Label.<br> Теперь можно проверить поведение нового элемента управления. Попробуйте изменить его размеры Даже при том, что можно перемещать органы управления этого элемента, его размеры изменить нельзя.<br> <b>Реализация компонентов элемента управления</b><br> Теперь все готово для реализации свойств элемента управления, его методов и событий. Давайте начнем со свойств. Нам уже известно, как добавить свойства к элементу управления с помощью мастера интерфейса элемента управления ActiveX и как это сделать вручную. Теперь давайте рассмотрим еще один инструмент. Мы еще сделаем это с помощью мастера, но сейчас просто добавим одно свойство или метод.<br><br> <br> Начнем с объявления переменных. Вставьте следующие строки в окно Code объекта UserControl:<br><br> Private startTime As Date <br><br> Private Running As Boolean <br><br> Private m_CountDown As Boolean <br><br> Private m_AlarmTime As Date<br><br> Уже можно догадаться, что m_CountDown<br><br> и m_Alarm Time — две закрытые переменные, которые содержат значения свойств CountDown и AlarmTime. Пока запущен Alarm, переменная Running равна True, и она объявлена вне всех процедур, чтобы все они могли обращаться к ее значению. Переменная startTime устанавливается равной времени начала отсчета и используется, когда элемент управления не считает в обратном направлении (дальше будет видно, как это используется).<br><br> Чтобы сделать заготовки для свойств элемента управления с помощью команды Add Procedure, выполните следующие действия.<br><br> <b>1</b>. Переключитесь в окно UserControl и выполните двойной щелчок на форме, чтобы открыть окно Code.<br><br> <b>2</b>. Выберите команду Add Procedure меню Tools, чтобы открыть диалоговое окно Add Procedure.<br><br> <div style="text-align:center;"><img src="image/konstruirovanie-jelementa-upravlenija_1.gif" alt="Конструирование элемента управления"></div><br><br> <b>3</b>. Введите имя свойства CountDown и выберите тип Property. В окно кода будут вставлены следующие строки.<br><br> Public Property Get  CountDown() As Variant <br><br> End Property<br><br> Public Property Let  CountDown(ByVal vNewValue As    Variant) <br><br> End Property<br><br> <b>4. </b>Измените тип свойства, чтобы он соответствовал объявлению, а затем введите строки кода для вставленных ранее процедур.<br><br> Public Property Get CountDown() As Boolean<br><br> CountDown = m_CountDown <br><br> End Property<br><br> Public Property Let CountDown(ByVal vNewValue As Boolean)<br><br> m_CountDown = vNewValue <br><br> End Property<br><br> Примечание<br><br> Приведенный код совершенно тривиален. Все процедуры Property ставят в соответствие закрытой переменной название свойства и имеют одинаковую структуру. Нужно не забывать только изменять их типы с Variant на требуемый.<br><br> <b>5</b>. Сделайте то же самое для переменной AlarmTime. Процедуры для этого свойства имеют следующий вид.<br><br> Public Property Get AlarmTime() As Date<br><br> AlarmTime = m_AlarmTime <br><br> End Property<br><br> Public Property Let AlarmTime(ByVal vNewValue As Date)<br><br> <br> If IsDate(vNewValue) Then m_AlarmTime = vNewValue <br><br> End Property<br><br> Последняя процедура проверяет правильность значения свойства, чтобы удостовериться, что введено допустимое время. Если введена дата, то программа предполагает, что время равно 00:00:00 (полночь).<br><br> <b>6. </b>Теперь можно добавить два метода. В окне Code выберите команду Add Procedure меню Tools. В открывшемся диалоговом окне Add Procedure введите название метода StartTimer, но на этот раз установите переключатель в Sub. В код будут вставлены следующие строки.<br><br> Public Sub StartTimer() <br><br> End Sub<br><br> <b>7. </b>В подпрограмме StartTimer() введите код для запуска таймера.<br><br> Public Sub StartTimer() <br><br> If Not Running Then<br><br> Timer1.Enabled = True <br><br> Running = True <br><br> startTime = Time<br><br> If Time = m_AlarmTime > 0 Then NextDay = True <br><br> Label1.Caption = "00:00:00" <br><br> End If <br><br> End Sub<br><br> Эта подпрограмма ничего не делает, если таймер уже запущен. Если таймер не запущен, то подпрограмма инициализирует элемент управления Timer и устанавливает значение переменной startTimer равным текущему времени, а изображение в "00:00:00". Переменная Running устанавливается в True, чтобы предотвратить повторное выполнение этой подпрограмм, когда таймер уже запущен. Переменная NextDay устанавливается в True, если время срабатывания сигнала меньше текущего времени. Это означает, что элемент управления должен сработать в заданное время на следующий день.<br><br> <b>8</b>. Снова выберите команду Add Procedure меню Tools, чтобы создать еще одну общедоступную подпрограмму — метод StopTimer(). Ниже приведен код для этой подпрограммы.<br><br> Public Sub StopTimer() <br><br> If Running Then<br><br> Timer1.Enabled = False <br><br> Running = False <br><br> End If <br><br> End Sub<br><br> Так же как и в методе StartTimer, таймер останавливается только в том случае, если он был запушен. В этом случае код отключает элемент управления Timer и устанавливает переменную Running в False.<br><br> <b>9</b>. Теперь добавьте событие элемента управления. Выберите команду Add Procedure меню Tools, чтобы открыть диалоговое окно Add Procedure.<br><br> <br> <b>10</b>. Введите имя TimeOut и выберите переключатель Event. После этого к коду добавится еще одна строка.<br><br> Event TimeOut()<br><br> Как заставить произойти это событие? С помощью оператора RaiseEvent из любого места кода. Всякий раз, когда таймер должен сработать, можно вызывать событие TimeOut с помощью следующего ниже оператора.<br><br> RaiseEvent TimeOut<br><br> Событие TimeOut вызывается из кода элемента управления<br><br> Timer (мы познакомимся с ним позже).<br><br> Только что был завершен костяк элемента управления<br><br> Alarm, нечто похожее было сделано ранее с помощью мастера интерфейса элемента управления ActiveX. На этот раз все элементы интерфейса элемента управления были добавлены вручную с помощью меню Tools. Проще позволить мастеру сформировать элемент управления автоматически, но знание того, как это можно сделать вручную, поможет добавить несколько свойств к существующему элементу управления без выполнения всех шагов мастера интерфейса элемента управления ActiveX.<br><br> Совет<br><br> Если запустить мастер интерфейса элемента управления<br><br> ActiveX для изменения существующего элемента управления, можно обнаружить, что мастер ставит символ комментария перед кодом пользователя. Поэтому всегда следует проверять свой код после обработки его мастером.<br><br> Команда Add Procedure не добавляет соответствующие строки в события ReadProperties и WriteProperties — их следует добавить вручную.<br><br> <b>Программа 16.15.</b> Сохранение и чтение свойств элемента правления Alarm<br><br> Private Sub UserControl ReadProperties(PropBag As PropertyBag) <br><br> CountDown = PropBag.ReadProperty ("CountDown", CountDown) <br><br> m_AlarmTime = PropBag.ReadProperty ("AlarmTime", AlarmTime)<br><br> End Sub<br><br> Private Sub UserControl_WriteProperties(PropBag As PropertyBag)<br><br> PropBag.WriteProperty "CountDown", m_CountDown, False<br><br> PropBag.WriteProperty "AlarmTime", m_AlarmTime, 0<br><br> End Sub                                   __ ___ ___ ___ __<br><br> В заключение, нужно добавить следующий ниже код, также вручную, для инициализации значения свойства.<br><br>Private Sub UserControl InitProperties()<br><br> m_CountDown = True<br><br> Running = False <br><br> End Sub<br><br><br> <h1>Конструирование элементов управления</h1> ActiveX<br> В этом разделе будут рассмотрены сходства и различия между элементами управления ActiveX, компонентами ActiveX и стандартными проектами. Перед тем как приступить к конструированию элементов управления ActiveX, будет показано, как они связаны с другими типами проектов. Эта информация поможет составить цельную картину и собрать вместе все части последующих разделов.<br> Стандартное приложение содержит главную форму и несколько вспомогательных. Вспомогательные формы обычно поддерживают главную, получая данные, вводимые пользователем, которые обрабатываются кодом главной формы. Можно считать элемент управления ActiveX главной формой, а окно его свойств и страницы свойств — вспомогательными формами.<br> Приложение взаимодействует с пользователем через свой интерфейс. Проектировщик приложения решает, как приложение будет вести диалог с пользователем, и пользователю приходится следовать этим правилам. Подобное же происходит и с элементами управления ActiveX. Они предоставляют строго определенный интерфейс, который содержит свойства и методы. Это единственный способ управления элементом ActiveX. Так же, как и пользователь приложения не может модифицировать его исходный код, так и программист может получить доступ к элементу только через его интерфейс.<br> В предыдущей главе вы познакомились с вопросами реализации интерфейсов, состоящих из методов и свойств, и с инициированием событий в компонентах ActiveX. В этой главе мы узнаем, как строить интерфейс элемента управления ActiveX. В то время как компонент ActiveX предоставляет малое число свойств и методов, элемент управления должен обладать большим набором свойств. Когда разработчик помещает элемент управления на свою форму, он ожидает увидеть свойства, обычные для всех элементов управления, видимых во время выполнения (свойства для управления размером, цветом, положением, шрифтом и т.д.). Разработчик также ожидает возможности программировать все стандартные и уникальные для этого элемента управления события.<br> <br> Конструирование элементов управления ActiveX похоже на конструирование формы. При этом элементы располагаются на объекте, называемом UserControl, который является формой элемента управления. Он предусматривает примерно те же методы, что и стандартная форма, например, методы Print, Line и др.<br><br> Формы приложения являются окнами, которые находятся на рабочем столе при запущенном приложении. При конструировании приложения можно переупорядочивать элементы управления на форме и программировать их реакцию на действия пользователя. Элементы управления ActiveX — также окна, но они не могут существовать сами по себе и не могут быть расположены на рабочем столе, а только на формах.<br><br> Главное отличие между обычными приложениями и элементами управления заключается в том, что элементы управления могут работать в двух разных режимах. Когда разработчик помещает элемент управления на форму, он запускается. При изменении свойства элемента управления с помощью окна свойств с элементом что-то происходит. Это означает, что код элемента управления работает даже тогда, когда проект, в котором он используется, находится на стадии конструирования. Когда разработчик запускает приложение, элемент также работает. Но при этом элемент управления должен обладать способностью определять, в каком из режимов находится проект, и соответственно себя вести.<br><br> Рассмотрим пример элемента управления TextBox в режиме конструирования. У него есть свойство Text со значением Textl. Если установить его свойство MultiLine в значение True, а свойство Scrollbar — в Vertical, то к элементу автоматически будет присоединена вертикальная полоса прокрутки. Значит, эти свойства имеют некоторые значения в режиме конструирования. Запустите приложение и введите некоторый текст в элемент TextBox. Если проект снова вернуть в режим конструирования, свойство Text опять примет значение Textl. Элемент управления сохраняет информацию о свойствах при переключении из режима конструирования в режим выполнения, а при переключении обратно - восстанавливает информацию.<br><br> <br> Этот двойной режим — нечто новое для программистов на<br><br> Visual Basic, и следует к этому привыкнуть. При конструировании собственного элемента управления ActiveX нужно также переключаться между функциями разработчика элементов управления ActiveX (программист, который конструирует элемент) и разработчика приложения (программист, который использует этот элемент).<br><br> Одним словом, элемент управления ActiveX — это приложение с видимым пользовательским интерфейсом. Видимый пользовательский интерфейс - это то, что видит разработчик, когда помещает экземпляр элемента управления на форму, которая, в свою очередь, также есть то, что видит разработчик при запуске проекта. Разработчик может манипулировать элементом управления через свойства, предоставляемые элементом (во время конструирования) и методами (во время выполнения). Свойства и методы вместе образуют невидимый интерфейс. Таким образом, разработчик элементов управления ActiveX конструирует видимый интерфейс на объекте UserControl, который почти идентичен объекту формы. Этот процесс похож на создание обычного приложения. Конструирование же невидимого интерфейса подобно конструированию модуля класса.<br><br><br> <h1>Конструирование страниц свойств</h1> Элементы ActiveX могут иметь страницы свойств. Страницы свойств подобны окну свойств, которое позволяет разработчику (программисту, который использует элемент управления в проекте VB) устанавливать новые значения свойств. Но в отличие от окна свойств, страницы свойств предлагают лучший и более гибкий интерфейс с пользователем для настройки элемента управления, включая мгновенную визуальную обратную связь.<br> <div style="text-align:center;"><img src="image/index-image062.gif" alt="Конструирование страниц свойств"></div><br> <b>Рис. 16.9.</b> Страницы свойств для настройки TabStnp<br> Страницы свойств представляют собой набор инструментов конструирования Рис. 16.9 показывает страницу свойств для элемента управления TabStrip. Посредством этого интерфейса можно настраивать элемент управления TabStrip способами, которые просто невозможно реализовать, используя только окно свойств. Свойства, которые можно изменять посредством окна свойств, применяются ко всему элементу в целом, а возможности изменить заголовки и вид отдельных закладок, их номера и т.д. отсутствуют. Страницы свойств этого элемента управления содержат отдельные страницы (General, Tabs, Font, Picture), на которых сгруппированы связанные атрибуты.<br> Конструирование страниц свойств значительно упрощается использованием мастера страниц свойств. Давайте добавим несколько страниц свойств к элементу управления FLEXLabel. Элемент управления имеет три специальных свойства -два перечислимых и одно строковое, которые будут размещены на одной странице. Вдобавок, элемент управления имеет стандартные свойства, которые будут помещены на других страницах свойств. Свойство Font, например, должно быть расположено на отдельной странице, похожей на обычный диалог выбора шрифта. Аналогично, на отдельной странице должно появиться свойство Color, напоминающее обычный диалог выбора цвета.<br><br> <br><br> <h1>Контекстное меню элемента управления</h1> OLE<br> Существует еще один способ внедрения объектов в элемент управления OLE Container с помощью контекстного меню управления. Если выполнить правый щелчок на элементе управления OLE Container в процессе работы, то на экране появится контекстное меню (рис. 14.8). Его можно использовать для вставки нового объекта или редактирования уже встроенного документа (если элемент управления уже содержит объект). Чтобы встроить (или связать) другой объект в OLE Container, необходимо сначала удалить существующий объект.<br> Наличие тех или иных команд в контекстном меню зависит от состояния выбранного объекта. Контекстное меню, показанное на рис. 14.8, содержит команды Edit (Редактировать) и Open (Открыть), так как выбранный объект является документом Word. Если встроенный объект - звуковой файл, то контекстное меню будет содержать команды Edit (Редактировать) и Play (Воспроизведение). Если же элемент управления не содержит никаких объектов (поскольку разработчик щелкнул на кнопке Cancel в диалоговом окне Insert Object), то команды Edit (Редактировать) и Open (Открыть), наличие которых определяется содержимым окна элемента управления, в сокращенном меню будут отсутствовать.<br> <div style="text-align:center;"><img src="image/kontekstnoe-menju-jelementa-upravlenija_1.gif" alt="Контекстное меню элемента управления"></div><br> Рис.<b> 14.8.</b> Чтобы вывести на экран контекстное меню элемента OLE Container во время разработки проекта, выполните на нем правый щелчок<br> Контекстное меню элемента OLE Container может содержать некоторые из перечисленных ниже команд (или все).<br> <b>•  Cut (Вырезать).</b> Копировать объект, находящийся в контейнере, в буфер обмена и очистить контейнер.<br> <b>• Copy (Копировать).</b> Копировать объект, находящийся в контейнере, вбуфер обмена.<br> <b>•  Paste (Вставить).</b> Вставить объект из буфера обмена в элемент управления.<br> <b>•  Delete (Удалить).</b> Удалить OLE-объект из элемента управления.<br> <b>• Insert Object (Вставка объекта).</b> Удалить существующий объект и открыть диалоговое окно Insert Object (Вставка объекта), чтобы пользователь мог вставить новый или уже существующий объект в элемент OLE Container.<br> <b>•  Paste Special (Специальная вставка).</b> Открыть диалоговое окно Paste Special, которое позволяет вставить объект, скопированный в буфер обмена из другого OLE-совместимого приложения. Команда Paste позволяет встроить объект в элемент управления, а команда Paste Special позволяет создать связь с объектом, находящимся в буфере обмена. Диалоговое окно Paste Special выглядит так же, как и диалоговое окно Insert Object (Вставка объекта) с той лишь разницей, что опции диалогового окна Paste Special воздействуют на объект, находящийся в данный момент в буфере обмена.<br> <br> <div style="text-align:center;"><img src="image/kontekstnoe-menju-jelementa-upravlenija_2.gif" alt="Контекстное меню элемента управления"></div><br><br> <b>•  Create Link (Создать связь).</b> Создать связанный объект Доступно, если установлено свойство SourceDoc элемента управления OLE Container.<br><br> <b>•  Delete Link (Удалить связь).</b> Удалить связь, преобразуя связанный объект во встроенный.<br><br> <b>•  Create Embedded Object (Создать встроенный объект).</b> Создать встроенный объект. Появляется в том случае, если установлено значение свойства SourceDoc или Class.<br><br> Примечание<br><br> Чтобы другие пользователи могли работать с вашей программой, им необходима копия приложения, создавшего файл. Если элемент управления OLE содержит документ Word, то пользователи вашего приложения не смогут ни просмотреть, ни отредактировать документ, если на их системе Word не установлен. Кроме того, пути к связанным файлам должны быть указаны правильно. В противном случае, при запуске приложения другие пользователи смогут увидеть только изображение первоначальных данных.<br><br><br> <h1>Метод</h1> Create TextFHe<br> Этот метод создает новый текстовый файл и возвращает объект TextStream, который используется для чтения текста из файла или записи его в файл. Синтаксис метода таков<br> Set TStream =<br> FSys.CreateTextFile(filename, overwrite, Unicode)<br> Аргумент<br> filename определяет имя создаваемого файла и является единственным обязательным аргументом; overwrite — булево значение, показывающее, можно ли обновлять (перезаписывать) существующий файл (True), или нет (False). Если опустить аргумент overwrite,<br> то существующий файл не обновляется. Последний аргумент Unicode определяет, будет файл создаваться в формате Unicode или в формате ASCII. Если аргумент Unicode –  True, то новый файл создается в формате Unicode, в противном случае - как ASCII-файл. Если опустить аргумент Unicode,<br> то создается ASCII-файл.<br> Чтобы создать новый текстовый файл, необходимо создать переменную типа FileSystemObject, а затем вызвать метод CreateTextFile.<br> Set TStream =<br> FSys.CreateTextFile ("с:\testfile.txt")<br> Переменная<br> TStream представляет объект TextStream, методы которого позволяют писать в указанный файл или читать из него (см. параграф "Методы объекта TextStream" далее в этой главе).<br> <br> OpenTextFile<br> Метод OpenTextFile предназначен для открытия существующего файла. Он имеет следующий синтаксис.<br> FSys.OpenTextFile(filename, lomode, create, format)<br> Данный метод открывает существующий файл и возвращает объект TextStream, который использоваться для чтения из файла или записи в него. Filename —<br> единственный обязательный аргумент. Аргументом iomode может быть одна из констант, перечисленных в таблице ниже.<br> <b>Таблица 20.1.</b> Допустимые значения аргумента iomode метода OpenTextFile<br><table border=1><br> <tr> <td>Константа<br> <td> <td>Значение<br> <td> <td>Описание<br> <td> </tr> <tr> <td>ForReading ForAppending<br> <td> <td>1<br> 2<br> <td> <td>Файл открывается для чтения <br> Файл открывается для добавления новых данных<br> <td> </tr> </table><br> Необязательный аргумент create —<br> булево значение, показывающее, будет ли создан новый файл при отсутствии указанного в filename.<br> Если значение этого аргумента - True, новый файл создастся. Последний аргумент format<br> также необязателен и принимает значения True (файл открывается в Unicode-формате) или False (файл открывается в ASCII-формате). Если опустить аргумент format, то файл откроется в ASCII-формате.<br> Чтобы открыть объект TextStream для чтения, используйте следующий оператор.<br> Set TStream = FSys.OpenTextFile ("С:\testfile.txt", ForReading)<br> Метод OpenTextFile возвращает объект TextStream, методы которого позволяют писать в заданный файл или читать из него.<br> Теперь, когда уже ясно, как используется объект<br> FileSystemObject для открытия и создания файлов, ознакомимся с объектом TextStream, который позволяет читать из файла и писать в него. Объект FileSystemObject включает много других методов, позволяющих обращаться к различным устройствам, копировать и удалять файлы или целые папки и т.д. О методах объекта FileSystemObject мы расскажем чуть позже, а сейчас рассмотрим манипулирование текстовыми файлами с помощью объекта TextStream.<br><br> <br><br> <h1>Методы элемента управления</h1> Data<br> К встроенным функциональным возможностям элемента управления Data, которые действительно впечатляющи, можно обращаться из кода приложения, используя методы Data. Самые простые методы — это методы перемещения, соответствующие действиям четырех кнопок перемещения.<br> <b>•  MoveFirst.</b> Перемещает элемент управления на первую запись.<br> <b>•  MoveLast.</b> Перемещает элемент управления на последнюю запись.<br> <b>• MovePrevious.</b> Перемещает элемент управления на предыдущую запись.<br> <b>• MoveNext.</b> Перемещает элемент управления на следующую запись.<br> Эти методы используются для реализации кнопок перемещения. Однако, при этом, необходимо помнить о трех частных случаях: (1) когда Data позиционируется на первую или последнюю запись; (2) когда нажата кнопка Previous, в то время как Data находится на первой записи; (3) когда нажата кнопка Next, в то время как Data находится на последней записи.<br> <b>VB6 в действии: проект Data2</b><br> Приложение Data2 подобно приложению Datal, но использует другую базу данных. База данных BIBLIO, поставляемая с Visual Basic, содержит названия книг, фамилии издателей и авторов. Структура этой базы показана далее в этой главе, а в этом приложении сформирован интерфейс для управления таблицей Titles, которая содержит поля Title (Название), ISBN (Издательский код), Description (Описание), Subject (Предмет), Comments (Примечания) и многое другое. Форма приложения Data2 изображена на рис. 17.5.<br> <div style="text-align:center;"><img src="image/metody-jelementa-upravlenija_1.gif" alt="Методы элемента управления"></div><br> <b>Рис. 17.5</b> Приложение Data2 методы Data для реализации кнопок прокрутки<br> Форма разрабатывается достаточно просто. Для этого выполните следующие действия:<br> <b>1. </b>Поместите элемент Data и соедините его с базой данных BIBLIO, задав в свойстве DatabaseName путь к базе данных в системе, а в свойстве RecordSource — таблицу Titles.<br> <b>2</b>. Разместите на форме элементы управления, связанные с данными, и подключите их к Data, установив в их свойствах DataSource значение Datal и в свойствах Datafield - отображаемые поля.<br> Программа для кнопок First и Last вызывает соответствующий метод перемещения. <br> <br> <b>Программа 17.1.</b> Кнопки First и Last<br><br> Private Sub FirstBttn_Click ()<br><br> Data1.Recordset MoveFirst <br><br> End Sub<br><br> Private Sub LastBttn Click() <br><br> Data1.Recordset.MoveLast<br><br> End Sub<br><br> Код для двух других кнопок немного сложнее, поскольку он написан с учетом свойства<br><br> EOF элемента управления.<br><br> <b>Программа 17.2.</b> Обработка щелчка на кнопке Next<br><br> Private Sub NextBttn_Click() <br><br> Data1.Recordset.MoveNext <br><br> If Data1.Recordset.EOF Then<br><br> MsgBox "You are on the last record"<br><br> '(Вы находитесь на последней записи)<br><br>            Data1.Recordset.MoveLast <br><br> End  If <br><br> End Sub<br><br> Программа перемещается на следующую запись, а затем проверяет свойство EOF. Если EOF равно True, то элемент управления Data переместился на запись, расположенную за последней. Программа отображает сообщение, что достигнута последняя запись, и затем возвращается на нее.<br><br> Примечание<br><br> Переход на запись, находящуюся за последней, допустим. Это пустая запись, которую можно отредактировать и добавить к таблице. Проблема возникнет, если снова щелкнуть на кнопке Next. Попытка переместиться далее вызовет ошибку исполнения программы. Именно поэтому необходимо обработать эту ситуацию сразу, если выполняется условие EOF = True. Заметьте: когда отображается сообщение, поля пусты. Обычно необходимо выдавать сообщение при перемещении на последнюю запись. Данный же пример показывает, что после последней записи в RecordSet действительно имеется пустая запись.<br><br> Код для кнопки Previous такой же. Он вызывает метод MovePrevious, а вместо свойства EOF проверяет свойство BOF элемента управления Data.<br><br> <b>Программа 17.3.</b> Кнопка Previous<br><br> Private Sub PreviousBttn_Click() <br><br> Data1.Recordset.MovePrevious <br><br> If Data1.Recordset.BOF Then<br><br> MsgBox "You are on the first record"<br><br> '(Вы находитесь на первой записи) <br><br> Data1.Recordset.MoveFirst <br><br> End If <br><br> End Sub<br><br> <b>Методы поиска записей</b><br><br> В дополнение к методам перемещения элемент управления Data предоставляет четыре метода для поиска записей в RecordSet. Одна из основных операций, которые выполняются над базами данных — нахождение требуемых записей. Следующие методы осуществляют нахождение записей, удовлетворяющих заданным критериям.<br><br> <br> <b>•  FindFirst.</b> Находит первую запись;<br><br> <b>•  FindLast.</b> Находит последнюю запись;<br><br> <b>•  FindNext.</b> Находит следующую запись;<br><br> <b>•  FindPrevious.</b> Находит предыдущую запись.<br><br> Эти методы находят в RecordSet любую запись на основе критериев, заданных пользователем. Синтаксис всех этих методов одинаков.<br><br> RecordSet.FindFirst criteria<br><br> Параметр<br><br> criteria — строковое выражение, определяющее отношение между значениями полей и константами. Следующее выражение находит первую запись в RecordSet, поле State которой равно NY.<br><br> Datal.RecordSet.FindFirst "State = 'NY' "<br><br> Обратите внимание: строковая константа в строке критерия заключена в одинарные кавычки. Определенные пользователем критерии могут содержать несколько полей, логические операции и операции отношении. Следующий оператор находит первый счет, выданный в 1997 году, с общей стоимостью 1000 $ или более.<br><br> Datal.RecordSet.FindFirst "InvoiceDate > '12/31/1996'._ <br><br> And Invoice >= 1000"<br><br> В дополнение к обычным операциям отношений можно использовать оператор LIKE, который позволяет находить записи, удовлетворяющие шаблону. Например, чтобы найти любую книгу в базе данных BIBLIO со словом SQL в заголовке, используйте следующий метод Find.<br><br> Recordset.FindFirst "Title LIKE '*SQL*' "<br><br> Строка *SQL* — это шаблон для нахождения любого количества символов до и после символов SQL. Другими словами, он соответствует заголовкам типа:<br><br> Введение в SQL, Овладение SQL-методами или SQL: Руководство пользователя.<br><br> <b>Как работает метод Find</b><br><br> В данном случае поиск методом Find был выполнен без учета регистра. Таким образом, параметр *SQL* соответствовал SQL, sql и Sql. Для изменения заданного по умолчанию режима поиска на сравнение без учета регистра используйте следующий оператор:<br><br> Option Compare Text <br><br> Для сравнения с учетом регистра используйте другой оператор:<br><br> Option Compare Binary <br><br> Выражение Option Compare помещается в объявлениях форм или в модуле.<br><br> При вызове метода Find (Поиск) Visual Basic находит запись, соответствующую заданным критериям и устанавливает элемент Data на эту запись. В программе, однако, необходимо сначала проверить значение свойства NoMatch, которое устанавливается в False, если запись найдена, и в True — в противном случае. Следующий фрагмент программы показывает, как используются методы Find.<br><br> <br> Data1.RecordSet.FindFirst "City= ' Berlin' " <br><br> If Data1.Recordset.NoMatch Then<br><br> MsgBox "No such record found"<br><br> ' (Запись не найдена) <br><br> Else<br><br> MsgBox Datal.Recordset.Fields ("Country") <br><br> End If<br><br> Этот фрагмент кода находит первую запись, значение поля City которой равно Berlin. Если такой записи нет, то программа выводит соответствующее сообщение. Если запись найдена, то отображается значение поля Country (Страна).<br><br> <b>VB6 в действии: проект FindDemo</b><br><br> Приложение FindDemo демонстрирует поиск записей в RecordSet с помощью метода Find. Эту небольшую утилиту можно использовать в ваших приложениях. Первый элемент управления ComboBox позволяет выбрать таблицу, а второй элемент ComboBox — поле. Затем в текстовом поле Search For можно ввести параметры для операции поиска и, нажимая кнопки, найти записи, удовлетворяющие заданным критериям. (Программа, позволяющая извлекать имена таблиц из базы данных NWIND и имена полей из выбранной таблицы, приведена в параграфе "Отображение баз данных" далее в этой главе.)<br><br> <div style="text-align:center;"><img src="image/metody-jelementa-upravlenija_2.gif" alt="Методы элемента управления"></div><br><br> <b>Рис. 17.6.</b> Приложение FindDemo: использование методов Find<br><br> Как видно из рис. 17.6, можно определить дополнительные поля в параметре поиска, помимо выбранного в ComboBox. Любые строковые константы в поле Search For должны быть заключены в одинарные кавычки. В качестве альтернативы можно написать процедуру, которая заменяет двойные кавычки в строке одинарными..<br><br> Если запустить приложение FindDemo, то появятся столбцы, отличающиеся от показанных на рис. 17.6. Указатель мыши на разделительной линии между двумя столбцами связанного с данными элемента управления Grid (Сетка) превращается в двойную стрелку, указывая, что можно изменять размеры столбца. На рис. 17.6 некоторые столбцы с ненужными данными удалены (их ширина равна нулю), а размеры остальных столбцов изменены, чтобы отобразить данные, представляющие интерес (контактные имена и города).<br><br> Форма приложения FindDemo содержит связанный с данными элемент управления Grid и невидимый элемент управления Data. Элемент управления Grid рассмотрен далее в этой главе. Вы увидели, что он может быть связан с элементом Data и отображает содержимое RecordSet в табличном виде. Код, обеспечивающий заполнение данными обоих элементов управления ComboBox, приведен в параграфе "Доступ к. полям в объекте RecordSet" этой главы.<br><br> <br> <b>Программа 17.4. </b>Кнопка Find First<br><br> Private Sub firstBttn_Click() <br><br> On Error GoTo SQLError<br><br> Data1.Recordset.FindFirst GenerateSQL() <br><br> If Data1.Recordset.NoMatch Then <br><br> MsgBox "No such record found"<br><br>   '( He найдено ни одной записи) <br><br> End If <br><br> Exit Sub<br><br> SQLError:<br><br> MsgBox Err.Description<br><br> End Sub<br><br> <b>Функция GenerateSQL().</b> Эта функция генерирует параметр поиска для всех операций Find. Значение, возвращаемое функцией GenerateSQL(), используется совместно методами Find. После вызова метода FindFirst программа проверяет свойство NoMatch. Если оно равно True, то программа выводит сообщение. Если запись, соответствующая критерию, найдена, то элемент управления Data автоматически устанавливается на эту запись.<br><br> Функция GenerateSQL() извлекает строку из текстового поля txtsearchValue, присоединяет ее к выбранному полю и возвращает строку, использующуюся как параметр метода Find. Большая часть кода приложения обрабатывает потенциальные ошибки. Основная работа выполняется функцией GenerateSQL(), которая формирует критерии поиска, как показано ниже.<br><br> <b>Программа 17.5.</b> Функция GenerateSQL()<br><br> Private Function GenerateSQL() As String<br><br> GenerateSQL = cmbFields.Text & " " & txtsearchValue <br><br> End Function<br><br><br> <h1>Методы объекта TextStream</h1> После создания объекта TextStream с помощью методов CreateTextFile<br> или OpenTextFile объекта FileSystemObject для чтения и записи в файл можно использовать следующие методы.<br> Примечание<br> Как следует из его имени, объект TextStream предназначен только для работы с текстовыми файлами.<br> <b>Read.</b> Этот метод считывает определенное число символов из объекта TextStream. Его синтаксис:<br> TStream.Read(characters) <br> Здесь<br> characters - количество символов, которые необходимо прочитать.<br> <b>ReadAll.</b> Этот метод считывает текстовый файл целиком и возвращает текст в виде строковой переменной. Его синтаксис таков.<br> fileText = TStream.ReadAll <br> Здесь<br> fileText - строковая переменная (или типа Variant).<br> <b>ReadLine.</b> Этот метод считывает одну строку текста за раз (до символа новой строки, не включая его) из текстового файла и возвращает результирующую строку. Его синтаксис показан ниже.<br> fileText = Т Stream.ReadLine<br> <b>Skip.</b> Этот метод пропускает определенное число символов при чтении из текстового файла. Синтаксис метода следующий.<br> TStream.Skip(characters) <br> Здесь<br> characters - число пропускаемых символов.<br> <b>SkipLine.</b> Этот метод пропускает следующую строку текстового файла. Его синтаксис таков.<br> TStream.SkipLine<br> Символы пропускаемой строки отбрасываются до символа новой строки включительно.<br> <b>Write.</b> Этот метод записывает строку в TextStream файл. Синтаксис метода:<br> TStream.Write(string)<br> Здесь<br> string — строка (типа String или Variant), записываемая в файл. Строки записываются в файл без вставки пробелов или разделителей между строками. Используйте метод WriteLine для записи символа новой строки или строки, заканчивающейся этим символом.<br> <b>WriteLine.</b> Этот метод записывает в файл строку, заканчивающуюся символом новой строки. Синтаксис метода:<br> TStream.WriteLine(string)<br> Здесь<br> string — текст, который необходимо записать в файл. Если вызывается метод WriteLine без аргумента, то запишется символ новой строки.<br> <b>WriteBlankLines.</b><br> Этот метод записывает заданное число пустых строк (символов новой строки) в файл. Его синтаксис:<br> TStream.WriteBlankLines(lines) <br> Здесь<br> lines - число пустых строк, записываемых в файл.<br><br> <br><br> <h1>Методы объекта</h1> Wscript<br> Объект Wscript имеет несколько методов, большая часть которых подобна функциям VBScript. Наиболее важные методы — CreateObject и GetObject — аналогичны функциям VBScript с такими же именами Рассмотрим методы Wscript.<br> <b>Echo.</b> Отображает одно или более значений в окне сообщений. Можно отобразить синоним имени Windows Scripting Host, воспользовавшись функцией MsgBox().<br> Wscript.Echo Wscript.Name<br> Можно отобразить несколько значений, разделив их запятыми. Они отобразятся одно за другим с пробелом между ними. Следующий оператор отображает окно сообщений, показанное на рис. 20.10.<br> Wscript.Echo "string argument", Wscript.Name, 98.9+1 <br> Свойство Name заменено его значением, а выражение 98, 9+1 - вычислено<br> <div style="text-align:center;"><img src="image/index-image151.gif" alt="Методы объекта"></div><br> <b>Рис. 20.10.</b> Метод Echo отображает несколько значений подряд<br> Echo — это простой метод и может использоваться в качестве примитивного инструмента отладки Функция<br> MsgBox() и метод Pop-Up (описан ниже) предоставляют гораздо больше возможностей.<br> <b>Quit.</b> Завершает выполнение сценария и может вернуть код ошибки. Его синтаксис:<br> Wscript.Quit errorCode<br> Необязательный аргумент errorCode - возвращаемый код ошибки. По умолчанию этот метод возвращает 0. Код ошибки может использоваться для контроля завершения приложения нормально или с ошибками.<br> <br> InternetExplorer и элемента управления WebBrowser<br> Методы элемента управления WebBrowser и объекта InternetExplorer позволяют переместиться к новым или к уже посещенным URL.<br> <b>GoBack, GoForward (Переместиться вперед. Переместиться назад).</b> Эти методы управляют перемещением назад или вперед на один URL в списке посещенных узлов, который поддерживается автоматически элементом управления WebBrowser или объектом InternetExplorer. При попытке перемещения за пределы списка генерируется ошибка. Чтобы ее перехватить, необходимо включить код, обрабатывающий данную ошибку.<br> <b>GoHome, GoSearch (Перейти к домашней странице. Перейти к поиску).</b> GoHome — метод, который перемещает пользователя к домашней странице; GoSearch — метод, который перемещает пользователя к странице, определенной в диалоговом окне Internet Explorer Options.<br> <b>Navigate (Переместиться).</b><br> Этот метод передвигается на URL или открывает HTML-файл, заданный в первом параметре метода. Его синтаксис:<br> Navigate URL [Flags], [TargetFrameName,] [PostData,] [Headers]<br> Все параметры, кроме первого, имеют значения по умолчанию. Параметр URL -адрес ресурса, который нужно показать на элементе управления. Параметр Flag — константа или значение, которое определяет, добавить ресурс к списку хронологии, читать или записывать из кэша, и отображать ли ресурс в новом окне. Его значения приведены в табл. 21.1.<br> <b>Таблица 21.1.</b> Значения параметра Flags<br><table border=1><br> <tr> <td>Константа<br> <td> <td>Значение<br> <td> <td>Описание<br> <td> </tr> <tr> <td>NavOpenlnNew Window <br> <td> <td>1<br> <td> <td>Открывать ресурс или файл в новом окне<br> <td> </tr> <tr> <td>NavNoHistory<br> <td> <td>2<br> <td> <td>Не добавлять ресурс или имя файла к списку хронологии<br> <td> </tr> <tr> <td>NavNoReadFrom Cache<br> <td> <td>4<br> <td> <td>Не читать из кэша жесткого диска при этом передвижении<br> <td> </tr> <tr> <td>NavNo Write To Cache<br> <td> <td>8<br> <td> <td>Не записывать результаты передвижения в кэш жесткого диска<br> <td> </tr> </table><br> Параметр Target FrameName - имя фрейма, в котором отображается документ. Если документ, отображенный на элементе управления WebBrowser, содержит фреймы, то можно отобразить новый документ в одном из существующих фреймов.<br><br> <br> Document<br> Объект Document поддерживает несколько методов, которые позволяют работать с его содержимым.<br> <b>Open (Открыть).</b><br> Открывает документ для вывода. Текущий документ очищается, а новые строки помещаются в документ с помощью методов Write и WriteLn.<br> Примечание<br> Метод Open объекта Document открывает текущий документ для вывода и не имеет ничего общего с методом Open объекта Window, который запускает новый экземпляр Internet Explorer и отображает в нем документ.<br> <b>Write string (Записать строку).</b> Записывает значение строковой<br> переменной в документ. Параметр метода помещается в текущий документ в текущую позицию, но не отображается до закрытия документа методом Close.<br> <b>WriteLn string.</b><br> Записывает строковую переменную в текущий документ с управляющим символом "новая строка", добавленным в конец строки. Управляющий символ игнорируется броузером, так что строковый метод WriteLn работает так же, как метод Write string.<br> <b>Close (Закрыть).</b><br> Закрывает документ и заставляет всю информацию, записанную в него с помощью методов Write и WriteLn, отображаться как в HTML-документе, загруженном в окне броузера.<br> <b>Clear (Очистить).</b><br> Очищает содержимое документа.<br> <b>Использование методов объекта Document</b><br> Описанные методы позволяют программисту (или Web-дизайнеру) с помощью сценария создать HTML-документ, что и показано в примере<br> Pagel.htm следующего параграфа. Методы объекта Document обычно вызываются в следующем порядке.<br> Document.open <br> Document.write string<br> ........<br> Document.write string <br> Document.close<br> Переменная string или литеральная константа могут быть чем угодно, что обычно появляется в HTML-документе (текст, HTML-отметки, гиперсвязи и т.д.). Параметр метода Write может содержать HTML-теги, что позволяет создавать Web-страницы на лету. Следующие операторы отображают заголовок первого уровня, расположенный на странице по центру.<br> Document.write "<CENTER>" <br> Document.write "<Hl>Welcome to our Active Pages</Hl>"<br> ' (Добро пожаловать на наши активные страницы) <br><br> <br> History<br> Объект History из Scripting Model поддерживает список уже посещенных узлов и предоставляет возможность обращения к ним через методы объекта History, описанные ниже. Объект History не имеет собственных свойств или событий.<br> <b>Back n (Назад).</b><br> Позволяет перемещаться обратно в списке хронологии на п шагов, как при нажатии кнопки Back n раз. Чтобы переместится на предыдущий URL, используется выражение<br> call Window.History.back(0)<br> или<br> call Window.History.back<br> <b>Forward n (Вперед).</b><br> Приводит к перемещению вперед по списку хронологии на п шагов, как при нажатии кнопки Forward n раз.<br> <b>Go n (Перейти к).</b><br> Позволяет переместиться на п-ый<br> элемент в списке хронологии. Следующее выражение осуществляет переход к первому URL в списке.<br> Window.History.gо 1<br><br> <br><br> <h1>Методы объектов</h1> Scripting<br> Объекты Scripting также имеют методы. Объект Document, например, имеет метод Write, который позволяет сценарию помещать текст непосредственно на Web-страницу — создавать Web-страницы на лету.<br> Метод Write воспроизводит строку на текущей странице. Следующий оператор выводит текущую дату на страницу.<br> Document.Write Date ()<br> Если использовать HTML, то необходимо жестко запрограммировать дату и модифицировать документ ежедневно. Функция VBScript Date() возвращает текущую дату, но VBScript не предусматривает методы для фактического отображения даты на странице. Чтобы отобразить что-либо на странице из сценария, используются объекты Scripting Model.<br> Предположим, имеется простой HTML-документ.<br> <HTML><br> <BODY BGCOLOR="#HOOFFOO"><br> <Hl>Welcome to Visual Basic and the Web</Hl><br> </BODY><br> </HTML><br> Этот документ воспроизводит страницу с зеленым фоном и заголовком первого уровня. Можно создать ту же страницу, используя код<br> VBScript.<br> <HTML><br> <SCRIPT LANGUAGE = "VBScript"><br> Document.bgColor = "#HOOFFOO"<br> Document.Write "<H1> Welcome to Visual Basic and the Web</Hl>"<br> '(Добро пожаловать в Visual Basic и Web) <br> </SCRIPT> <br> </HTML><br> В чем преимущества свойства Write для создания страницы? Гибкость. Эта страница фактически сгенерирована на клиентском компьютере. Если необходимо отображать дату и время открытия страницы, то надо добавить следующую строку кода VBScript.<br> Document.Write "This page was opened on " & date() & _ <br> ", at" & time()<br>   '(Эта страница была открыта... в. . . )<br> Метод Write предусматривает большую гибкость. Можно написать более сложный VBScript-код для создания на лету сложных страниц. Например, можно запросить пользователя о его имени и индивидуализировать Web-страницу следующим образом.<br> UserNaine = InputBox("Please enter your name")<br> ' (Введите, пожалуйста, ваше имя) <br> Document.Write "<Hl>Welcome to our Active Pages," & <br> <br> UserName & "</HI>"<br><br> Реальный заголовок будет отличаться на каждом клиентском компьютере в зависимости от ответа пользователя на запрос. Ниже показана типичная страница, сгенерированная на лету с помощью VBScnpt-кода, который управляет объектами IE Scripting.<br><br> <div style="text-align:center;"><img src="image/index-image162.gif" alt="Методы объектов"></div><br><br> <b>Рис. 21.7.</b> Создание HTML-документа на лету: использование метода Write объекта Document <br><br> Ниже показан HTML-файл, который создал страницу, приведенную на рис. 21.7.<br><br> <HTML><br><br> <head> <link rel="canonical" href="https://www.e-lave.ru//index.htm"/><br><br> <TITLE>Demo Page</TITLE><br><br> SCRIPT LANGUAGE="VBSCRIPT"><br><br> UserName = InputBox ("Please enter your name")<br><br> '(Введите, пожалуйста, ваше имя)<br><br> Document-Write "<Hl>Welcome to our Active Pages, " _<br><br> & UserName & "</H1>"<br><br> ' (Добро пожаловать на наши активные страницы)<br><br> Document.Write "<BR>" <br><br> Document.Write "This page was opened on " & date() &<br><br> ", at " & time()<br><br> ' (Эта страница была открыта...) <br><br> </SCRIPT> <br><br> </HEAD> <br><br> <BODY><br><br> </BODY> <br><br> </HTML><br><br> Обратите внимание: этот документ не содержит тега HTML в разделе BODY. Весь документ сгенерирован из раздела сценария страницы командами VBScript.<br><br> В следующих параграфах исследуется объект Document из Scripting Model, как наиболее важный объект с точки зрения программиста на VB.<br><br><br> <h1>Модули и модули классов</h1> Программные компоненты ActiveX реализованы в Visual Basic в виде модулей классов. Модули существуют в Visual Basic еще с его первой версии. Они содержат объявления переменных и подпрограмм (функций и процедур), которые доступны всем другим компонентам приложения. Многие примеры, приведенные в предыдущих главах, имеют собственные модули. Функция ConvertTemperature (degrees As Double) может быть вызвана из нескольких мест кода и из многих форм, если ее определить в модуле. Процедуры, хранимые в модуле, могут быть вызваны из любого места приложения. Это также справедливо и для переменных, которые должны быть доступны многим процедурам. Это один из способов, благодаря которому формы и процедуры различных форм могут обмениваться информацией.<br> Можно рассматривать процедуры, как методы модуля, однако нет потребности предварять их вызов суффиксом в виде имени модуля. Общедоступные (public) переменные, которые находятся в модуле, также могут рассматриваться как свойства модуля. Таким образом, модуль очень похож на класс. В Visual Basic классы реализованы как модули специального типа, называемые модулями классов.<br> Здесь может возникнуть вопрос: "Зачем беспокоиться о классах, если модуль может предоставить функциональные возможности, необходимые для создания приложения?" Если необходимо создать всего лишь несколько процедур и глобальных переменных для одного проекта, то, возможно, лучше разместить их в одном модуле. Однако, если планируется использовать эти же процедуры в<br> различных проектах, то необходимо конструирование модуля класса. Допустим, несколько функций были реализованы в модуле и протестированы в составе проекта А. Их реализация оказалась вполне удовлетворительной. Если потом создается другой проект — В, который использует тот же модуль, то логика подсказывает, что функциям модуля необходима некоторая переделка. Тогда модуль дополняется несколькими новыми переменными типа public, в результате чего с проектом В он уже работает прекрасно. Но при этом проект А, скорее всего, перестает быть работоспособным. Даже если приказать себе больше не трогать модуль, то как быть в случае групп разработчиков, работающих над общим проектом? Позволить многим программистам иметь доступ к одному модулю из своих проектов, значит ожидать катастрофы. Один из них неизбежно изменит программу и испортит некоторые из существующих проектов.<br> Другой потенциальной опасностью является конфликт имен. Если добавить в проект модуль с несколькими глобальными переменными, некоторые из них могут иметь имена, совпадающие с теми, которые используются в других проектах. В этом случае правила видимости определяют, какая переменная имеется в виду (она может не совпадать с той переменной, которую хотелось бы использовать). Свойства в модуле классов не могут быть доступны только по их имени. Они должны использоваться посредством выражения типа<br> ClassName.VariableName, которое делает свойство уникальным не только в текущем проекте, но и в операционной системе.<br><br> <br><br> <h1>Модули VB: краткий обзор</h1> Обычно легче понять новую концепцию, если ассоциировать ее с другой, уже освоенной. Начнем с обзора модулей Visual Basic, а затем посмотрим, как те же концепции могут быть применены к модулям классов. Разработаем небольшое приложение, подсчитывающее время (оно может стать частью другого приложения, которому необходимо вычислять время выполнения своих операций). Приложение должно иметь возможность запускать и останавливать таймер по своему желанию. Когда в приложении выполняется вспомогательный программный код, необходимо иметь возможность приостановить таймер, а затем продолжить отсчет времени. После завершения операции, продолжительность которой определяется, должна быть предусмотрена возможность считывания прошедшего времени. Поместим все необходимые переменные и функции в модуль. При этом его можно будет повторно использовать в других проектах. (Вообще, такая практика является хорошим тоном в программировании — изолировать механизм определения промежутков времени от остального кода и сделать его доступным приложению через вызов нескольких процедур). Приложение, которое будет разработано в этом разделе, называется TimerMod, и его можно найти в папке этой главы на компакт-диске.<br> Создайте новый проект и добавьте в него модуль. Затем введите в этот модуль следующие строки.<br> <b>Программа 15.1.</b> Код модуля TimerMod<br> Public TotalInterval As Double <br> Dim T1 As Double<br> Sub StartCounting()<br> Tl = Time <br> End Sub<br> Sub  StopCounting ()<br>      Totallnterval = Totallnterval + Time – Tl<br> End  Sub<br> Sub ResetTimer()<br> Totallnterval = 0 <br> End Sub<br> Процедура<br> StartCounting()<br> запускает таймер, а процедура StopCounting() — останавливает. Каждый раз после остановки таймера переменная Totallnterval<br> обновляется. Для получения затраченного времени приложение должно прочесть значение этой переменной. И, наконец, процедура ResetTlmer() переустанавливает таймер. Такой механизм отсчета времени не позволяет прочитать затраченное время во время работы таймера. Необходимо сначала вызвать метод StopCounting для обновления переменной Totallnterval,<br> <br> затем считать значение переменной.<br><br> А сейчас перейдите к формам приложения и поместите две кнопки на форму. Установите их заголовки в Start Timing и Show Interval, как показано на рис. 15.1. Затем добавьте следующие строки в содержимое окна кода формы.<br><br> <b>Программа 15.2.</b> Код тестирования<br><br> TimerMod<br><br> Private Sub Commandl_Click()<br><br> If Coinmandl.Caption = "Start" Then <br><br> StartCounting<br><br> Command1.Caption = "Stop"       ' (Остановка) <br><br> Else<br><br> StopCounting<br><br> Command1.Caption = "Start"      ' (Запуск) <br><br> End If <br><br> End Sub<br><br> Private Sub Command2_Click ()<br><br> MsgBox "I've been counting for " & vbCrLf & _<br><br> Hour(TotalInterval) & "hours" & vbCrLf & _<br><br> Minute(TotalInterval) & " minutes and" & vbCrLf & _<br><br> Second(TotalInterval) & " seconds" & vbCrLf<br><br> ' (С начала отсчета прошло... часов... минут и... секунд)<br><br> End Sub<br><br> Выполните приложение, запустите таймер, остановите и запустите его еще несколько раз. Затем нажмите кнопку Show Interval для оценки затраченного времени в часах, минутах и секундах.<br><br> Программа работает, но потенциально существуют несколько проблем. Если другой разработчик имеет доступ к этому же модулю, он может попытаться присвоить переменной<br><br> Totallnterval<br><br> какое-либо значение:<br><br> TotalInterval = 0.00453567<br><br> Такое присваивание допустимо для интервала времени, но что произойдет, если он попытается присвоить недопустимое значение, например:<br><br> TotalInterval = 99<br><br> <div style="text-align:center;"><img src="image/moduli-vb-kratkij-obzor_1.gif" alt="Модули VB: краткий обзор"></div><br><br> <b>Рис. 15.1.</b> Форма проекта TimerMod<br><br> Вероятнее всего, программа будет работать, но она больше не будет правильно информировать о затраченном времени. Другой программист может проигнорировать процедуру ResetTimer() и попытаться переустановить переменную Totallnterval из процедуры StartCounting(). Возможно, его действительно не интересует остановка и возобновление процесса отсчета времени и ему удобно переустанавливать переменную Totallnterval каждый раз при вызове функции StartCounting(). Его проект будет работать (и с меньшим числом вызовов), но ваш нет. В этом и заключается наиболее важное преимущество в реализации вспомогательных процедур в виде модулей классов — создание компонентов, совместимых со многими приложениями. В дополнение, реализуя механизм отсчета времени отдельно от приложения, можно скрыть детали ее реализации от разработчиков, которые ее используют. Ведь на самом деле не надо знать, как Excel вычисляет сложное математическое выражение в процессе вызова его метода Evaluate.<br><br><br> <h1>Наборы записей</h1> RecordSets<br> RecordSets — это объекты, содержащие множество (коллекцию, набор) записей, выбранных из одной или нескольких таблиц. В программировании базы данных RecordSets аналогичен переменным в обычном программировании. Нельзя обращаться к таблицам баз данных непосредственно. Единственный способ просматривать записи и управлять ими — использование объектов RecordSet. RecordSet состоит из столбцов и строк, похож на таблицу, но может содержать данные из нескольких таблиц. Содержимое сетки, приведенной на рис. 172, получено из одной таблицы, на основе которой и формируется RecordSet. Такой набор - результат запроса данных, например, просмотр имен заказчиков и суммы их заказов в данном месяце.<br> <div style="text-align:center;"><img src="image/nabory-zapisej_1.gif" alt="Наборы записей"></div><br> Рис.<b> 17.2.</b> Таблица Products базы данных NWIND: выделенная строка — запись в таблице Products<br> Примечание<br> RecordSets можно рассматривать как объектные переменные. Они хранят результаты запросов или всю таблицу базы данных, как числовые переменные хранят числа. Однако содержимое RecordSet имеет более сложную структуру (поскольку состоит из строк и столбцов), и каждая ячейка в этой структуре может иметь различный тип. Для обращения к содержимому RecordSet используются свойства и методы.<br> RecordSet позволяет просмотреть некоторые данные, отобранные из базы данных согласно критериям, определенным пользователем. Существует три типа RecordSets<br> <b>•  DynaSet (Динамический набор),</b> предназначенный для изменения содержимого базы данных;<br> <b>•  SnapShot (Моментальный снимок),</b> являющийся статическим набором записей (только для чтения);<br> <b>•  Table (Таблица),</b> которая напрямую обеспечивает просмотр таблиц.<br> DynaSet и SnapShot обычно создаются с помощью SQL-операторов (Structured Query Language — язык структурированных запросов). SQL-операторы рассмотрены в этой главе позже, а пока запомните, что это — команды, использующиеся для определения критериев отбора данных из базы данных. (Можно использовать SQL-команды для редактирования и создания новых баз данных, но это в книге не рассмотрено). Изменения, вносимые пользователем с помощью DynaSet, находят отражение в исходных таблицах SnapShot позволяет осуществлять только просмотр данных.<br> <br> Наиболее гибким и мощным типом коллекции записей является<br><br> DynaSet, хотя некоторые операции (такие, например, как поиск) могут быстрее выполняться в наборах типа Table. Однако тип Table требует значительных накладных расходов. Наименее гибкий тип - это SnapShot, хотя и наиболее эффективный в смысле накладных расходов (это справедливо только в случае, когда объем выборки невелик – прим. ред). Если модифицировать базу данных не надо - выберите тип SnapShot.<br><br> Существует разновидность типа SnapShot - forward-only SnapShot (просмотр вперед, более ограниченный, чем тип SnapShot, но и более быстрый). Forward-only SnapShot позволяет перемещаться по записям только вперед. Он используется в случаях, когда необходимо последовательно просматривать записи (использование их значений для вычислений, копирование выбранных записей в другую габлицу, и так далее). Не предоставляя методов возврата к записям, набор такого типа требует наименьших накладных расходов.<br><br> Набор типа Table - это ссылка на таблицу в базе данных. Table быстрее, чем другие типы наборов. Он синхронизируется с данными таблицы и используется для редактирования базы данных. Кроме того, при доступе к таблице посредством набора записей типа Table для выполнения быстрого поиска данных используются индексы. Недостаток записей этого типа - они могут содержать только записи, принадлежащие одной таблице.<br><br><br> <h1>Написание и выполнение сценариев</h1> Напишем и выполним простейший сценарий. Сценарий — это текстовый файл с командами VBScript, выполняющий определенную задачу. Напишем сценарий, сообщающий, сколько дней осталось до конца столетия. Запустите Notepad и введите строки программы 20.12.<br> <b>Программа 20.12.</b> Сценарий YEAR2000.VBS<br> DaysLeft = #1/1/2000# - Date ()<br> Message = DaysLeft & " days left for the year 2000"<br> '(... дней осталось до 2000 года) <br> MsgBox(Message)<br> При записи файла YEAR2000.VBS не забудьте выбрать тип All Files в команде Save As Туре. Если этого не сделать, то файл запишется как YEARS2000.VBS.TXT.<br> Выражение #1/1/2000# — это дата. В VBScript даты заключаются в символы "#". Date() — функция VBScript, возвращающая текущую дату. Ее значение вычитается из первого дня 2000 года, а результат сохраняется в переменной DaysLeft.<br> Для запуска сценария найдите файл YEAR2000.VBS на рабочем столе и выполните двойной щелчок на его значке. Будет выведено следующее окно.<br> <div style="text-align:center;"><img src="image/index-image147.gif" alt="Написание и выполнение сценариев"></div><br> Чтобы закрыть окно, щелкните на кнопке ОК.<br> Следующий параграф содержит основную информацию о<br> VBScript: переменных, функциях, операторах управления выполнением программы. Практические примеры не приведены: необходимо изучить основные структуры языка перед написанием какого-либо сценария.<br><br> <br><br> <h1>Написание сценариев для HTML-страницы</h1> Написание сценариев позволяет контролировать содержимое страницы и управлять им с помощью программы. Первыми двумя языками написания сценариев были JavaScript и VBScript. JavaScript основан на языке Java для рабочих станций SUN, a VBScript — на Visual Basic. В нашей книге используется VBScript.<br> Сценарий — это короткая программа, которая управляет элементами на странице и вставляется в HTML-документ между тегами<br> <SCRIPT> и </SCRIPT>. Обычно SCRIPT документа размещается в разделе HEAD. Простой сценарий, который устанавливает цвет фона страницы и отображает приветственное сообщение, имеет следующий вид.<br> <HTML><br> <head> <link rel="canonical" href="https://www.e-lave.ru//index.htm"/><br> <TITLE>VBScript Demo</TITLE><br> <SCRIPT Language = VBS><br> Document.fgColor="hFF0000"<br> Document.bgColor="h00FFFF"<br> MsgBox "Welcome to the VBScript Demo Page"<br> </SCRIPT><br> </HEAD><br> <BODY><br> <Hl>VBScript Demo</Hl><br> </BODY><br> </HTML><br> Элемент<br> Document задает документ, отображаемый в окне броузера. Доступ к его свойствам можно получить с помощью объекта Document. Свойства fgColor и bgColor задают (или считывают) цвет фона и текста документа. Функция MsgBox() уже известна. Есть много сходства между Visual Basic и VBScript, поэтому нет необходимости подробно рассматривать особенности VBScript.<br> Предупреждение<br> И все же имеется существенное отличие: VBScript не является типизированным языком. Как бы вы не объявили переменные, все они будут иметь тип Variant. Это является препятствием при вызове функций Visual Basic (например, объектных методов) из VBScript. Следует использовать функции преобразования данных (см. гл. 2) или заключать аргументы в скобки с целью преобразования типов VBScript и Visual Basic.<br> Языки написания сценариев, подобные VBScript, позволяют Web-разработчикам создавать динамически изменяющееся содержание их Web-страниц. Но это еще не все. Менее чем через год после появления VBScript, компания Microsoft решила "активизировать" Web-страницы - вот откуда термин ActiveX. Если есть средства программирования Web-страниц, почему бы ни дополнить их программируемыми объектами? Программируемые объекты — не что иное, как элементы управления ActiveX. Если есть возможность разместить элементы управления ActiveX на странице, то можно получить доступ к их методам и свойствам из среды VBScript и, таким образом, создать активную страницу. Активная страница похожа на небольшое приложение, запускаемое из Internet Explorer.<br> Следующим шагом была разработка элементов управления<br> ActiveX, которые можно было использовать на Web-страницах. Microsoft выпустила их большое количество. Сейчас с использованием Visual Basic 6 можно создавать свои собственные элементы управления ActiveX для использования на Web-страницах. В следующем параграфе мы протестируем элементы управления, разработанные ранее в гл. 16. В последней части главы рассмотрены DHTML, которые являются теми же HTML, но усовершенствованными с помощью фрагментов VBScript-кода.<br><br> <br><br> <h1>Написание сценариев для</h1> Windows<br> Можно использовать VBScript и его объект FileSystemObject при написании сценариев непосредственно для Windows. В этом параграфе рассмотрено создание сценариев, запускаемых в Windows 98, и автоматизация многих рутинных задач: подключение принтеров и сетевых драйверов, очистка папок и обработка большого количества файлов в пакетном режиме.<br> Приведем простой пример пакетной обработки для тех, кто незнаком с командными файлами DOS. Имеются две папки (в терминологии DOS — каталоги) — С:\ТМР и C:\DOCS\TEMP, содержащие временные файлы, которые необходимо удалять раз в день или чаще. Для этого надо выполнить такие команды.<br> CD С:\ТМР <br> DEL *.*<br> CD C:\DOCS\TEMP <br> DEL *.*<br> Команда CD (Change Directory) задает переход в другой каталог, а команда DEL *.* - удаляет все файлы в текущем каталоге. Если каталог содержит подкаталоги, то команда DEL *.* не поможет. Придется воспользоваться командой DELTREE.<br> Синтаксис командных файлов dos особенный. Например, в нем нет команд записи информации в файл (или чтения из файла). Чтобы записать выходную информацию командного файла в текстовый файл, надо воспользоваться символом перенаправления потока ввода/вывода (>). Для сохранения сообщений об ошибках, сгенерированных предыдущим командным файлом, в текстовом файле можно воспользоваться следующей командой (имя командного файла DELTEMP.BAT).<br> DELTEMP > ERRMSG.TXT<br> Затем можно прочитать сообщения, открыв файл<br> ERRMSG.TXT в любом текстовом редакторе.<br> Командные файлы DOS позволяют инициализировать принтеры, выполнять сетевые соединения, обрабатывать группы файлов и т.д. Любые операции, которые можно задавать в командной строке DOS, можно закодировать в командном файле.<br> То же самое можно делать в Windows 98. Ранние версии Windows не поддерживали пакетную обработку или языки сценариев, хотя многие пользователи испытывали в них необходимость. Язык сценариев Windows 98 - это VBScript, позволяющий использовать все преимущества системы без дополнительных затрат. Программист на VB готов к разработке сценариев для Windows.<br> В этой главе рассмотрено использование VBScript для автоматизации выполнения повседневных задач. Приводятся примеры, которые могут служить отправной точкой для написания собственных сценариев. Сначала мы научимся писать и запускать простые сценарии. Затем перейдем к изучению объектов Windows Scripting Host.<br><br> <br><br> <h1>Написание сценария для приложения</h1> Если приложение предоставляет классы, то можно добавить элемент управления Script на отдельную форму, например, на ScriptForm, и позволить пользователю приложения создать сценарий. Предположим, вы написали приложение, которое позволяет пользователю открывать файлы с изображениями и сохранять их в различных графических форматах (TIF, JPEG, NPG и т. д.). Пользователь, желающий преобразовать несколько файлов, не должен открывать и записывать каждый файл по отдельности. Ему проще написать сценарий, который в нужный момент открывает файл, преобразовывает его и записывает под другим именем на диск.<br> Следовательно, ваш класс должен предоставлять методы Open(fllename) для открытия графического файла, Convert(format1, format2)<br> — для преобразования из одного формата в другой, и SaveAs(filename) - для записи файла в новом формате. Процесс конвертирования формата графических изображений достаточно сложен (это описано в нескольких книгах), но если кратко, то необходимо иметь возможность преобразовывать процедуры в методы и привязывать их к классу.<br> <b>VB6 в действии: проект StatCIss</b><br> Для ознакомления с использованием сценариев в приложениях рассмотрим простой класс, содержащий несколько несложных методов, используемых для вычисления основных статистических характеристик массива данных (рис. 20.6). На самом деле, здесь мы расширяем класс AXStat (см. гл. 15) и с его помощью добавляем возможности сценариев в приложения. Описание класса, который предоставляет законченную объектную модель (например, Excel), выходит за рамки этой книги, но приведенный ниже простой класс - пример того, как возможности сценариев добавляются в приложения.<br> Чтобы использовать класс StatCIss в проекте SEditor, необходимо выполнить следующие действия.<br> <b>1</b>. Откройте проект SEditor и добавьте новый модуль класса.<br> <b>2</b>. Запустите новый экземпляр Visual Basic, откройте проект AXStats (папка гл. 15 на компакт-диске) и скопируйте код модуля AXStats.<br> <b>3</b>. Переключитесь в проект SEditor и откройте окно кода добавленного модуля класса.<br> <br> <b>4</b>. Добавьте код, скопированный из модуля класса AXStats.<br><br> <div style="text-align:center;"><img src="image/index-image146.gif" alt="Написание сценария для приложения"></div><br><br> <b>Рис. 20.6.</b> Проект StatCIss: вычисление основных статистических характеристик массива данных<br><br> Теперь имеется проект, состоящий из формы ScriptForm, на которой пользователь может вводить и выполнять сценарии, объект DisplayClass и класс AXStats, содержащий свойства и методы для вычисления основных статистических характеристик массива данных. Имеет смысл записать компоненты нового проекта в новую папку.<br><br> Примечание<br><br> Методы класса AXStats возвращают значения типа Double, в то время как VBScnpt является бестиповым языком. Каким образом сценарий взаимодействует с классом AXStats и интерпретирует возвращаемые значения? Можно использовать функции приведения типов, но не ожидайте, что пользователь (который вводит текст сценария) в состоянии выполнить все необходимые преобразования. Проще исправить код класса, удалив все типы. Для этого необходимо открыть окно Code для класса AXStats и удалить все объявления типов (часть As объявления методов и их типов). Для просмотра кода класса AXStats после исправления необходимо открыть проект в среде разработки VB.<br><br> Чтобы предоставить пользователю доступ к членам класса<br><br> AXStats (и позволить ему разрабатывать сценарии для обработки массивов данных), надо добавить ссылку на класс. Для этого в начало кода ScriptForm добавьте следующее объявление<br><br> Private Statistics As New AXStats <br><br> Затем добавьте объект Stat в элемент управления Script события Load формы<br><br> ScriptControll.AddObject "Stat", Statistics, True<br><br> Пользователь приложения получает доступ к членам класса<br><br> AXStats с помощью компонентов объектной переменной Stat или их имен. Далее следует небольшой сценарий для вычисления среднего арифметического четырех чисел. Введите следующий код в редактор сценария и щелкните на кнопке Execute Script.<br><br> <b>Программа 20.11.</b> Сценарий приложения StatCIss<br><br> Add 301<br><br> Add 44.50<br><br> Add 529<br><br> Add 124.5<br><br> Show "Mm значение " & Mm<br><br> Show "Max значение " & Мах<br><br> Show "Среднее      " & Average<br><br> <br> Если добавить несколько дополнительных методов для более сложных статистических характеристик (стандартное отклонение, корреляцию и т.п.), то пользователи захотят использовать ваше приложение для обработки данных в пакетном режиме. Если добавить ссылку на объект FileSystemObject, то можно будет использовать локальный диск для чтения данных и записи результатов.<br><br> В той же папке, что и StatCIss, находятся сценарии<br><br> MakeData и Process. Сценарий MakeData создает текстовый файл в корневом каталоге диска С: и записывает туда 100 случайных значений. Сценарий Process открывает указанный файл, добавляет данные к семейству данных класса StatCIss, вычисляет и отображает число элементов данных, их среднее, минимальное и максимальное значения. Чтобы открыть сценарий MakeData, необходимо выбрать в меню File команду Load и выполнить ее, щелкнув на кнопке Execute Script. Затем нужно открыть и запустить сценарий Process..<br><br> Совет<br><br> В этом проекте есть одна проблема. Оба класса используют метод Clear (один — для очистки набора данных класса AXStat, другой — для очистки нижнего элемента управления TextBox формы). Оператор Clear на самом деле очищает элемент управления TextBox. Дело в том, что в случае конфликта имен, приоритет имеют компоненты класса, добавленного первым. Можно указать конкретный метод с помощью имени класса, задаваемого в префиксе. Для очистки элемента управления TextBox используется оператор Output. Clear, а для очистки массивов данных — оператор Stat. Clear.<br><br> Для тестирования проекта StatCIss необходимо изменить установки обработчика ошибок в классе AXStat. Для этого выполните следующие действия.<br><br> <b>1</b>. Выберите команду Options меню Tools, чтобы открыть окно Options.<br><br> <b>2</b>. Выберите вкладку General.<br><br> <b>3</b>. В секции Error Trapping отметьте флажок Break on Unhandled Errors Only (Останов только для необработанных ошибок).<br><br> Если эту опцию не установить, то приложение будет прерываться при каждой ошибке (например, при вызове метода Item класса AXStat с ошибочным значением индекса). Включение флажка Break on Unhandled Errors Only позволяет классу генерировать ошибки, которые обрабатываются в коде приложения.<br><br>Элемент управления Script - удобное средство для добавления возможностей сценария в приложения, но его обработчики ошибок оставляют желать лучшего. Это его первая версия, возможно, в следующих версиях он будет более гибким. Информацию об этом можно найти на http: //www.microsoft. com/scripting.<br><br> Последняя часть главы посвящена написанию сценариев для операционной системы. Windows Scripting Host - еще одна область применения знаний VB, если вы освоились с использованием предоставляемых объектов.<br><br><br> <h1>О прилагаемом компакт-диске</h1> Прилагаемый компакт-диск является самозагружаемым - вставьте его в дисковод, подождите несколько секунд и затем вы сможете:<br> • скопировать с него авторские примеры на ваш жесткий диск;<br> • воспользоваться учебным пособием, включающим поучительные примеры разработки приложений на Visual Basic (например, примеры манипулирования файлами);<br> • инсталлировать и испытать новое программное обеспечение компаний InstallShield, Blue Sky, NuMega и т.п.;<br> • читать справочную информацию по VB6 в формате Adobe Acrobat;<br> • усовершенствовать ваши приложения использованием элементов мультимедиа.<br> <b>Авторские примеры</b><br> Эта книга содержит многочисленные примеры, разработанные автором с целью демонстрации возможностей языка Visual Basic, элементов управления ActiveX и принципов программирования вообще. Автор предоставляет вам возможность использовать их в ваших приложениях. Ниже приводится перечень некоторых из проектов.<br> <b>CDBox.</b> Эта утилита даст вам возможность поэкспериментировать с элементами Common Dilog Box в интерактивном режиме. Воспользуйтесь ей, чтобы выяснить, как настроить диалоговые окна Font или, скажем. File Open и включить их в ваше приложение, не написав и одной строки кода.<br> <b>DirMap.</b> Это приложение можно использовать для редактирования и печати содержимого любой папки на вашем жестком диске, включая ее подпапки.<br> <b>Image.</b> Это приложение, предназначенное для обработки изображений, может послужить отправной точкой для разработки ваших собственных программ. В нем вы также сможете найти многочисленные примеры использования API-функций.<br> <b>MDIEdit.</b> Быстрый и наиболее эффективный путь овладения техникой работы с многодокументным интерфейсом (MDI).<br> <b>RFTPad.</b> Приложение, подобное предыдущему, однако позволяющее форматировать и печатать текст.<br> <b>Globe и TreeViewScan.</b> Позволяют научиться, как заполнять элемент Tree View во время выполнения программ и как сохранять его содержимое на диске.<br> <b>VBA Sample Code.</b><br> Позволяет научиться использовать в ваших программах возможности таких приложений, как Excel, Word и Outlook.<br> <br> <b>ScriptEdit.</b><br><br> Воспользуйтесь исходным текстом этого приложения, чтобы добавить к вашим программам возможности написания сценариев.<br><br> <b>MCIDemo.</b> Изучив этот пример, вы сможете разрабатывать мультимедийные приложения, использующие MCI-команды (воспроизведение аудио- и видеофайлов и многого другого).<br><br> <b>Программное обеспечение других компаний</b><br><br> Этот компакт-диск включает, помимо всего прочего, чрезвычайно полезные для VB-программиста продукты других компаний. Воспользуйтесь ими для повышения эффективности вашей работы!<br><br> <b>InstallShield.</b> Express Professional 2.1. 30-дневная версия пакета для создания дистрибутивов.<br><br> <b>RoboHelp.</b> HTML 6, позволяющий создавать справочные файлы для VB-прило-жений, работающих в Windows 98.<br><br> <b>Smartcheck от компании</b> NuMega. Позволяет не только обнаружить ошибки, но и объясняет, что именно происходит, когда они случаются.<br><br> <b>LEADTooIs 10.</b> Это элемент ActiveX, выполняющий более 500 функций работы с графикой.<br><br> <b>Adobe Acrobat.</b><br><br> Программное обеспечение, абсолютно необходимое для Web-разработок. Используйте его для чтения учебного пособия на этом CD.<br><br> <b>Winzip.</b> Лучшая программа архивирования файлов на сегодняшний день.<br><br><br> <h1>Объект Document</h1> С точки зрения программирования объект Document - наиболее важный объект в иерархии. Он задает HTML-документ, отображаемый в окне броузера или в одном из фреймов. С помощью свойств и методов объекта Document можно управлять видом и даже содержанием документа. Свойство bgColor можно использовать для чтения или установки цвета фона документа. Свойство Title — для считывания заголовка документа. Метод Write - для задания содержания документа из кода сценария, создания документа на лету. В следующем параграфе рассмотрены свойства объекта Document и даны примеры их синтаксиса.<br><br> <br><br> <h1>Объект FileSystemObject</h1> VBScript предоставляет несколько новых объектов, доступных из Visual Basic. Наиболее важным (с точки зрения программиста на VB) является объект FileSystemObject, предоставляющий доступ к файловой системе компьютера, на котором выполняется приложение. Visual Basic предлагает несколько функций и операторов для доступа и манипулирования файловой системой, но объект FileSystemObject является более гибким средством, обеспечивающим методы и свойства для доступа к каждому каталогу и файлу на диске.<br> Чтобы получить доступ к файловой системе компьютера, на котором выполняется приложение, создайте переменную FileSystemObject с помощью функции Create0bject().<br> Set FSys = CreateObject ("Scripting. FileSystemObject") <br> <b>Переменная<br> FSys<br> представляет файловую систему и определяется как объект.</b><br> Dim FSys As Object<br> Чтобы получить доступ к текстовым файлам на диске, используйте методы объекта FileSystemObject, описанные ниже.<br> Это один из способов доступа к файловой системе компьютера из Windows-сценария. В Visual Basic существует лучший метод, использующий раннее связывание для ускорения работы приложения. Вы можете добавить ссылку на объект Microsoft Scripting Runtime, выбрав команду References меню Project для открытия диалогового окна References. Укажите элемент Microsoft Scripting Runtime и щелкните на кнопке ОК. Как только ссылка будет добавлена к проекту, можно объявить переменную FSys с помощью оператора<br> Dim FSys As New Scripting.FileSystemObject <br> или<br> Dim FSys As New FileSystemObject<br> В окне Code после введения имени переменной FSys появится список компонентов объекта Script, и можно будет выбрать необходимый объект.<br> Поэкспериментируем с объектом FileSystemObject. Откройте новый проект и поместите командную кнопку на его форму. В окне Code формы введите следующее определение.<br> Dim FSys As New Scripting.FileSystemObject<br> Введите следующий оператор в обработчик события Click командной кнопки.<br> Debug.Print FSys.FileExists ("C:\AUTOEXEC.BAT")<br> <br> Если файл C:\AUTOEXEC.BAT существует, то строка "True" появится в окне проверки. Компонент FileExists переменной FSys - это метод, который возвращает значение True, если файл существует. В противном случае он возвращает значение False.<br><br> Объект FileSystemObject предоставляет свойства и методы для операций с файловой системой, включая создание новых текстовых файлов (или открытие уже существующих), чтение или запись в них. Visual Basic имеет собственные операторы для доступа к текстовым файлам (и к двоичным), поэтому это подмножество объекта FileSystemObject не особенно интересно для программиста на VB. Они описаны здесь, потому что позволяют работать с текстовыми файлами при создании Windows-сценариев. Позже мы обсудим компоненты объекта FileSystemObject, которые полезны при написании Visual Basic-приложений и Windows-сценариев.<br><br> Операции чтения из текстовых файлов и записи в них являются основными при разработке сценариев Многие сценарии сохраняют свои результаты в текстовых файлах или считывают из них необходимые параметры (например, сценарии, обрабатывающие большое число файлов). Методы FileSystemObject для работы с текстовыми файлами также могут использоваться внутри сценариев в приложениях Visual Basic (см пример StatCIss ниже в этой главе).<br><br><br> <h1>Объект History</h1> Объект History предоставляет методы для перемещения по списку хронологии броузера. Он позволяет обращаться к функциональным возможностям кнопок навигации броузера из кода.<br><br> <br><br> <h1>Объект Links</h1> Другой невидимый объект - Links - задает связь в HTML-документе и предоставляет свойства, позволяющие выяснить адресат связи. Число гиперсвязей в текущем документе задается свойством Links. Length. Все гиперсвязи в документе задается массивом Links. URL первой гиперсвязи — Links(O), Links(l) — это URL второй гиперсвязи и т.д. до Links(Links. Length-1).<br> Массив<br> Links возвращает объект Links, который предоставляет информацию об атрибутах гиперсвязей. Свойства объекта Links перечислены в табл. 21.4.<br> <b>Таблица 21.4.</b> Свойства объекта Links<br><table border=1><br> <tr> <td>Свойство<br> <td> <td>Действие<br> <td> </tr> <tr> <td>Href<br> <td> <td>Возвращает загружен во или устанавливает фрейм полный URL для объекта, который<br> <td> </tr> <tr> <td>Protocol<br> <td> <td>Возвращает или устанавливает протокол URL (обычно http)<br> <td> </tr> <tr> <td>Host<br> <td> <td>хост и порт URL<br> <td> </tr> <tr> <td>Hostname<br> <td> <td>хост URL — имя или IP-адрес<br> <td> </tr> <tr> <td>Port<br> <td> <td>или устанавливает порт URL<br> <td> </tr> <tr> <td>Pathname<br> <td> <td>или устанавливает имя пути URL<br> <td> </tr> <tr> <td>Search<br> <td> <td>или устанавливает поисковую часть URL, если она существует<br> <td> </tr> <tr> <td>Hash<br> <td> <td>или устанавливает хэш-часть URL<br> <td> </tr> <tr> <td>Target<br> <td> <td>Последним свойством объекта Frame является цель, которая была определена в <А> фрейме. Цель - окно или фрейм, в котором отображаются данные<br> <td> </tr> </table><br><br> <br><br> <h1>Объект Location</h1> Объект Location применяется к объектам Window и Frame и предоставляет информацию об окне (или фрейме) текущего URL. Примеры объекта Location уже приводились, но все его свойства не рассматривались. Перечислим все свойства объекта Location. Они возвращают информацию о URL текущего документа. Задавая их, можно перемещаться к другому документу.<br> <b>Href.</b> Это свойство возвращает или устанавливает полный URL объекта, который будет загружен в броузер. Используя это свойство, можно соединиться с другими URL с помощью VBScript-кода. Чтобы отобразить URL текущего документа, используется следующее выражение.<br> MsgBox "You are currently viewing " & document.location.href <br> ' (Текущий документ...)<br> Можно отобразить другой документ в окне или фрейме с помощью следующего оператора.<br> document.location.href = "http://www.microsoft.com"<br> Как вы уже знаете их гл. 20, URL имеет определенные части. Свойства, приведенные в табл. 21.3, возвращают (или устанавливают) их.<br> <b>Таблица 21.3.</b> Свойства URL<br><table border=1><br> <tr> <td><b>Свойство            </b><br> <td> <td><b>Действие</b><br> <td> </tr> <tr> <td>Protocol            <br> <td> <td>Возвращает или устанавливает протокол URL (обычно http)<br> <td> </tr> <tr> <td>Host    <br> <td> <td>Возвращает или устанавливает хост и порт URL. Хост и порт разделены             двоеточием. Значение порта необязательно и редко используется<br> <td> </tr> <tr> <td>Hostname            <br> <td> <td>Возвращает или устанавливает хост URL, который может быть как    именем, так и IP-адресом<br> <td> </tr> <tr> <td>Port       <br> <td> <td>Возвращает или устанавливает порт URL (необходимо задать номер порта в WWW URL)<br> <td> </tr> <tr> <td>Pathname  <br> <td> <td>Возвращает или устанавливает имя пути URL. Это свойство можно использовать, когда необходимо показать документ, находящийся вне корня Web<br> <td> </tr> </table><br><br> <br><br> <h1>Объект Navigator</h1> Объект Navigator возвращает информацию о броузере. Одна из главных проблем, возникающая при разработке Web-страниц, следующая: два основных броузера (Netscape Navigator и Internet Explorer Microsoft) не полностью совместимы. Каждый из них поддерживает некоторые возможности, которыми другой не обладает. Это следствие конкуренции между Netscape и Microsoft, хотя установка новых стандартов позволила бы решить эту проблему.<br> Создание страниц, которые работают в обоих броузерах — не тривиальная задача, особенно для тех, кто разрабатывает активные страницы. Даже если нет возможности разработать страницу, которую можно представить на обоих броузерах, то можно иметь два набора страниц (каждый для своего броузера) и отображать соответствующие страницы. Даже для такой грубой методики необходимо изучить сценарий броузера, который открывает страницу.<br> Свойства объекта Navigator доступны только для чтения. Они возвращают информацию о броузере, в котором документ просматривается.<br> <b>AppCodeName (Код имени приложения).</b> Возвращает код имени приложения. Internet Explorer возвращает "Mozilla".<br> <b>AppName (Имя приложения).</b><br> Возвращает имя приложения. Internet Explorer возвращает "Microsoft Internet Explorer".<br> <b>App Version (Версия приложения).</b> Возвращает версию приложения. Internet Explorer 4 для Windows 95 возвращает "4.0 (compatible; MSIE 4.01; Windows 95)". Следующие версии Internet Explorer и Windows могут возвращать другую строку.<br> <b>UserAgent (Агент пользователя).</b> Возвращает агента пользователя приложения. Internet Explorer 4 возвращает "Mozilla/4.0 (compatible; MSIE 4.01; Windows 95).".<br> Предположим, подготовлена HTML-страница, которая может просматриваться любым броузером (обобщенная страница), и версия той же страницы, которая включает возможности, поддерживаемые только Internet Explorer 4. Можно легко обнаружить, какой броузер использует клиент, и если используется Internet Explorer 4 — отобразить усовершенствованную страницу, а для всех других броузеров — обобщенную HTML-страницу.<br> Чтобы определить значения различных свойств объекта<br> Navigator, необходимо запустить приложение HTMLEditor (описанное выше) и создать небольшой сценарий, подобный следующему.<br> SCRIPT LANGUAGE=VBScript><br> Document.Write Window.Navigator.propName<br> </SCRIPT><br> Здесь<br> propName является фактическим именем свойства объекта Navigator. Запустите документ, и значение свойства появится в нижней части окна HTMLEditor.<br><br> <br><br> <h1>Объект TableDef: определения таблиц</h1> Объект TableDef задает определение таблиц в объекте Database. Все объекты TableDef формируют семейство. Число таблиц находится в свойстве TableDefs. Count.<br> Каждая таблица в базе данных задается объектом<br> TableDef. Перечислим его наиболее важные свойства.<br> <b>•  Count</b> возвращает число строк в таблице.<br> <b>•  Fields</b> - семейство объектов Field. Каждый объект Field задает поле в таблице.<br> <b>•  Indexes</b> — семейство объектов Index. Каждый объект Index задает индекс таблицы.<br> Итак, объявим и откроем объект Database с помощью следующих команд.<br> Dim DB As Database <br> Set DB = OpenDatabase(dbName)<br> Для доступа к определениям таблиц базы данных используйте выражение DB.TableDefs, являющееся семейством объектов: по одному для каждой таблицы. С помощью элементов этого семейства можно обращаться к свойствам таблиц в базе данных. Чтобы реализовать обращение к каждой таблице самым простым способом, нужно объявить переменную TableDef<br> Dim tbl As TableDef<br> а затем просмотреть каждый элемент семейства<br> DB.TableDefs с помощью цикла For Each... Next.<br> For Each tbi In DB.TableDefs<br> Debug.Print tbl.Name <br> Next<br> Этот цикл отображает имена таблиц. В дополнение к таблицам данных базы данных Access содержат несколько системных таблиц. Имена этих таблиц начинаются с MSYS и их можно пропустить. Для получения подробной информации о том, как обнаружить и проигнорировать системные таблицы, смотрите параграф "VB6 в действии: проект DBStructure" далее в этой главе.<br> <b>Индексы таблицы</b><br> Большинство таблиц в базе данных имеет хотя бы один связанный индексный файл, а иногда и больше. Для доступа к индексам таблицы предназначено свойство Indexes объекта TableDefs. Свойство Indexes - это семейство объектов, каждый из которых соответствует одному индексу таблицы. Чтобы самым простым способом реализовать обращение к каждому индексу в таблице, нужно объявить объект Index.<br> Dim idx As Index<br> а затем просмотреть каждый элемент семейства<br> Indexes с помощью цикла For Each...Next<br> For Each idx In tbi Indexes<br> <br> Debug.Print idx.Name <br><br> Next<br><br> Элемент tbl — это объект TableDef, который объявлялся в предыдущем параграфе. Следующий вложенный цикл отображает имена всех таблиц в базе данных и имена их индексов под каждой таблицей.<br><br> For Each tbl In DB.TableDefs<br><br> Debug.Print tbl.Name<br><br> For Each idx In tbl.Indexes <br><br> Debug.Print idx.Name<br><br> Next idx <br><br> Next tbl<br><br> Можно запрашивать определение каждого индекса с помощью свойства Fields и использовать свойство Unique, чтобы определить, требует ли данный индекс уникальных ключей.<br><br> <b>Поля таблицы</b><br><br> Наиболее важное свойство объекта TableDefs — свойство Fields (Поля), которое является семейством объектов, каждый из которых соответствует полю таблицы. Чтобы обратиться к полям таблицы, определите в базе данных нужную таблицу. Это делается с помощью индексного значения, которое равно 0 для первой таблицы, 1 — для второй и DB TableDefs Count-1 — для последней таблицы. К полям первой таблицы в базе можно обращаться с помощью объекта, приведенного ниже.<br><br> DB TableDefs (0) Fields<br><br> Вместо индекса можно использовать имя таблицы. Следующий объект задает все поля в таблице Titles базы данных BIBLIO/<br><br> DB.TableDefs ("Titles").Fields<br><br> Чтобы обратиться к каждому полю в семействе Fields, объявите объектную переменную Field и просмотрите семейство с помощью цикла For Each...Next. Следующий фрагмент кода отображает имена и типы каждого поля в первой таблице базы данных.<br><br> Dim fid As Field<br><br> For Each fld In DB.TableDefs(0).Fields<br><br> Debug.Print fld.Name, fld Type <br><br> Next<br><br> Свойство Type (Тип) возвращает целочисленное значение, которое представляет тип поля. Необходимо написать простую процедуру, которая преобразует этот номер в строку "Integer", "String" и т.п.<br><br> Другие свойства объекта Field приведены ниже.<br><br> <b>•  OrdinalPosition.</b> Определяет порядок полей в таблице.<br><br> <b>• AllowZeroLength.</b> Булево свойство, указывающее, может ли поле содержать пустую строку.<br><br> <b>•  Size.</b> Размер поля в байтах.<br><br> <b>• Value.</b> Текущее значение поля.<br><br><br> <h1>Объект</h1> Extender<br> Объект Extender предоставляет некоторые основные свойства данного элемента управления, такие как Name, Width и Height. Эти свойства поддерживаются непосредственно операционной системой и при изменении их значения процедура Property Let не вызывается. Как известно, свойство Name элемента управления может быть изменено в любое время, если элемент управления используется в режиме конструирования, но процедура Property для этого свойства не существует. Можно выяснить, какое имя назначено пользователем элементу, вызвав свойство Name объекта Extender. Объект Extender является также шлюзом к некоторым<br> свойствам родительского элемента управления, на котором расположен данный элемент управления.<br> <b>Свойство Name.</b> Существует возможность выяснить имя контейнерного элемента управления и его размеры. Можно обратиться к объекту Extender, используя следующий вызов:<br> UserControl.Extender.extProperty<br> где<br> extProperty - имя свойства объекта Extender. Имя заказного элемента управления возвращается следующим ниже выражением.<br> UserControl.Extender.Name<br> Примечание<br> Но действительно ли нужно вызывать объект Extender для выяснения имени элемента управления в самом элементе управления? Не перестарались ли мы? Нет, элемент управления, на самом деле, не знает собственного имени! Пользователь может изменять свойство Name элемента управления в любое время в течение всего конструирования, а для того, чтобы прочитать имя элемента управления, необходимо действительно воспользоваться услугами объекта Extender. Для использования свойств такого типа нет необходимости в методах Property Get и Property Let.<br> <b>Свойства Width и Height.</b> Эти свойства возвращают размеры элемента управления. Используйте следующие ниже вызовы:<br> UserControl.Extender.Width <br> и<br> UserControl.Extender.Height<br> <b>Свойства Tag и Index.</b> Это еще два свойства, которые поддерживает Visual Basic. Они не являются свойствами объекта Extender (хотя синтаксис указывает на обратное). Это свойства специального элемента управления, к которым нельзя обратиться непосредственно. Код для поддержки этих свойств не был добавлен, но, тем не менее, они появляются в окне свойств элемента управления. Поскольку их значения поддерживаются самим Visual Basic, то доступ к ним можно получить только через объект Extender.<br> <br> Ambient<br> Объект Ambient подобен объекту Extender в том смысле, что он предоставляет информацию об окружении элемента управления. И, фактически,'эти два объекта иногда перекрывают друг друга. Объект Ambient дает коду элемента управления информацию о цвете фона контейнера, шрифте и т.д. Единственное действительно важное свойство объекта Ambient — UserMode, которое указывает на то, действует ли элемент управления в режиме конструирования или в режиме выполнения программы.<br> Как известно из опыта работы с обычными элементами управления, все элементы управления VB функционируют в режимах конструирования и выполнения. Так как элемент управления ведет себя одинаково в обоих режимах, то нет необходимости различать их. При конструировании элементов управления ActiveX, однако, часто необходимо дифференцировать режимы работы в самом коде и реагировать на некоторые события по-разному, в зависимости от того, используется ли элемент управления в режиме конструирования или в режиме выполнения.<br> <b>Свойство UserMode.</b> Это свойство принимает значение True. когда элемент управления действует в режиме выполнения, или False, когда элемент управления действует в режиме конструирования. Для иллюстрации работы этого свойства попробуем отображать текст "Design Mode", когда элемент находится в режиме конструирования. Откройте код обработчика события Paint и вставьте следующие строки в конец кода.<br> <b>Программа 16.9.</b> Использование свойства UserMode<br> Private Sub UserControl_Paint() <br> DrawCaption<br> OldFontSize = UserControl.Font.Size <br> UserControl.Font.Size = 10 <br> If Not Ambient.UserMode Then<br> UserControl.CurrentX = 0<br> UserControl.CurrentY = 0<br> UserControl.Print "Design Mode" <br> End If<br> UserControl.Font.Size = OldFontSize <br> End Sub<br> Эти операторы определяют, используется элемент управление в режиме конструирования или режиме выполнения. В режиме конструирования строка "Design<br> Mode" отображается в верхнем левом углу, как показано на рис. 16.8. В данном случае необходимы операторы, сохраняющие и восстанавливающие размер шрифта, в противном случае надпись "FLEXLabel Control" будет отображаться тем же маленьким шрифтом, что и строка "Design Mode", либо, наоборот, строка будет отображаться тем же большим шрифтом, что и надпись. Код устанавливает малый размер шрифта, отображает строку и восстанавливает исходный размер шрифта.<br><br> <br> Database<br> В предыдущих параграфах рассматривалось содержимое базы данных. Обратим внимание на ее структуру. Даже если вы знакомы со структурой базы данных, в некоторых случаях может потребоваться определить характеристики таблиц из кода приложения. Например, понадобится информация о том, сколько полей содержит конкретная таблица или как определен индексный файл.<br> В приложении Database Structure (рис. 17.24) показаны объекты, описанные в этом параграфе. Сначала рассмотрим объекты, составляющие базу данных, а затем – реализацию приложения Database Structure.<br> <div style="text-align:center;"><img src="image/obekt_3.gif" alt="Объект"></div><br> <b>Рис. 17.24.</b> Приложение Database Structure отображает любую базу данных, созданную в Microsoft Access<br> Объектом верхнего уровня является объект Database, который задает базу данных. Чтобы создать объект Database и задать базу данных, объявите объектную переменную.<br> Dim DB As Database<br> Объект Database присваивается переменной DB с помощью функции OpenDatabase, которой в качестве параметра передается путь к существующей базе данных и которая возвращает объект Database.<br> Set DB = OpenDatabase(dbName)<br> Параметр<br> dbName — строка пути к базе данных — может быть свойством FileName элемента управления Common Dialogs. Все объекты, рассмотренные в следующих параграфах, являются свойствами объекта Database.<br> Каждая таблица в базе данных задается объектом<br> TableDef, а запрос — объектом QueryDef. Каждый из них имеет собственные свойства, подобные Name (имя таблицы или запроса) и Count (число таблиц в объекте TableDef или количество запросов в объекте QueryDef).<br><br> <br> QueryDef: определения запросов<br> Кроме таблиц, база данных может содержать определения запросов. Запросы, которые обычно используются в базе данных, сохраняются в ней и вызываются по именам. Ко всем запросам в базе данных можно обращаться через объект QueryDefs, подобный объекту TableDef. Объект QueryDefs - это семейство объектов QueryDef, каждый из которых соответствует сохраненному запросу. Из программы можно обращаться к следующим свойствам семейства QueryDefs.<br> <b>• Count.</b> Возвращает число запросов, сохраненных в базе данных.<br> <b>• Name.</b> Возвращает имя запроса.<br> <b>•  SQL.</b> Возвращает SQL-оператор запроса.<br> Число запросов, сохраненных в базе данных, можно получить с помощью следующего выражения.<br> DB.QueryDefs.Count<br> Чтобы обратиться ко всем запросам, сохраненным в базе данных, объявите объектную переменную QueryDef<br> Dim qry As QueryDef <br> а затем просмотрите элементы семейства QueryDefs с помощью цикла For Each...Next.<br> For Each qry In DB.QueryDefs<br> Debug.Print qry.Name <br> Next<br> <b>VB6 в действии: проект DBStructure</b><br> Приложение DBStruct (см. рис. 17.24) позволяет открыть любую базу данных и просмотреть имена ее таблиц, их структуру, запросы, сохраненные в базе данных, и их определения. Таблицы и запросы базы данных отображаются в двух списках слева. Под именем каждой таблицы находятся названия ее индексов. Щелкните на имени таблицы, чтобы отобразить ее поля, или на имени запроса, чтобы отобразить его определение.<br> Начнем с кода кнопки Open Database.<br> <b>Программа 17.14</b>. Кнопка Open Database<br> Private Sub Command1_C1ick() <br> On Error GoTo NoDatabase<br> CommonDialog1.CancelError = True<br> CommonDialog1.Filter = "Databases|* mdb"<br> CommonDialogI ShowOpen<br> ' Открытие базы данных<br> If CommonDialog1.fileName<b> <></b> " " Then<br> Set DB = OpenDatabase (CommonDialog1.filename) <br> Label1.Caption = CommonDialog1.filename <br> End If<br> ' Очистка элементов управления ListBox <br> FIdList.Clear <br> TbiList.Clear<br> Dim tbl As TableDef <br> Dim idx As Index <br> Dim TName As String<br><br> <br> File<br> Объект File задает файл и предоставляет свойства, задающие свойства реального файла, и методы, которые позволяют копировать, перемещать и удалять файлы.<br> Для создания объекта File и исследования его свойств, выполните следующие действия.<br> <b>1</b>. Создайте переменную типа FileSystem Object, объявив ее следующим образом:<br> Dim FSys As New FileSystemObject <br> либо вызвав функцию CreateObject(), как показано ниже.<br> Set FSys = Create0b]ect ("Scripting. FileSystemObject")<br> <b>2</b>. Используйте переменную FSys для создания объекта, задающего указанный файл. <br> Set file = FSys.GetFile(fileName)<br> <b>3</b>. Обратимся к свойствам файла с помощью объектной переменной file.<br> FName = file.Name<br> FDate = file.DateCreated<br> FSize = file.Size<br> Рассмотрим свойства объекта File.<br> <b>Свойства объекта File</b><br> Многие свойства объекта File аналогичны свойствам объекта Folder, который рассматривается в параграфе " Объект Folder" далее в этой главе.<br> <b>Attributes.</b> Это свойство используется для чтения и установки атрибутов файла. Для чтения используется следующий синтаксис.<br> thisFile.Attributes <br> Для установки необходимых атрибутов используйте такой оператор.<br> thisFile.Attributes = thisFile.Attributes Or new_attribute<br> Переменная<br> new_attribute<br> принимает любое значение, приведенное в табл. 20.2. Для изменения нескольких атрибутов комбинируйте значения с помощью логической операции ИЛИ. Например, следующий оператор<br> thisFile.Attributes = new_attribute<br> изменяет заданный атрибут, но при этом очищает все другие. Если файл имеет атрибуты "только для чтения" и "скрытый", то его свойство Attributes равно 3 (1+2 согласно табл. 20.2). Если установить атрибут "архивный", присвоив свойству Attributes значение 32, то другие два атрибута очистятся. Комбинируя новый атрибут (32) и существующие с помощью операции ИЛИ, можно задать файлу одновременно атрибуты "только для чтения", "скрытый" и "архивный". <br> <b>Таблица 20.2.</b> Допустимые значения переменной newattribute<br><br> <br> Shell<br> Объект Shell — это свойство объекта Wscript, предоставляющее доступ к специальным компонентам (переменной среды и специальным папкам), а также к нескольким методам для работы с системным реестром. Рассмотрим свойства объекта Shell. Перед работой с этими свойствами необходимо создать экземпляр объекта.<br> Set wShell = Wscript.CreateObiect ("Wscript.Shell")<br><br> <br> WshShortcut<br> Объект WshShortcut предоставляет ярлык и позволяет работать с существующими ярлыками и создавать новые. Для создания WshShortcut используются следующие операторы.<br> Set WShell = Wscript.CreateObject ("Wscript.Shell") <br> strDesktop = WShell.SpecialFolders ("Desktop") <br> Set aShortcut = WShell.CreateShortcut(strDesktop & _ <br> "\Encrypt.lnk")<br> Если файл Encrypt.lnk существует, то переменная aShortcut<br> предоставляет ярлык на Рабочем столе. Если он не существует, то он будет создан.<br> Примечание<br> Новый ярлык не появится, пока он не будет сохранен методом Save.<br> Свойства объекта WshShortcut и его метод Save рассмотрены в следующих параграфах. Эти свойства соответствуют параметрам, которые устанавливаются на вкладке Shortcut диалогового окна свойств ярлыка (рис. 20.12).<br> <b>Arguments.</b> Задает аргументы, передаваемые ярлыку. <br> <b>Description.</b> Задает описание ярлыка. <br> <b>FullName.</b> Задает полный путь к ярлыку.<br> <div style="text-align:center;"><img src="image/index-image153.gif" alt="Объект"></div><br> <b>Рис. 20.12.</b> Вкладка Shortcut окна Properties<br> <b>Hotkey.</b> Задает горячую клавишу, запускающую данную программу. Горячая клавиша состоит из модификатора и клавиши. Возможные модификаторы:<br> <div style="text-align:center;"><img src="image/index-image154.gif" alt="Объект"></div><br> Чтобы назначить комбинацию клавиш для ярлыка, задаваемого переменной myShortCut, используется следующий оператор.<br> myShortCut.Hotkey =<br> "ALT+SHIFT+F"<br> <b>IconLocation.</b><br> Задает место расположения значка для ярлыка. Обычно несколько значков хранятся в одном файле. Формат этого свойства имеет вид: Path,index.<br> C:\Program Files\NetMeeting\conf.exe 1 <br> Для ярлыка NetMeeting используется первый значок из файла conf.exe. <br> <b>TargetPath.</b> Задает объект, на который ссылается ярлык.<br> <b>WindowStyle.</b> Задает стиль окна приложения, на которое указывает ярлык, после того, как приложение запущено. Стили перечислены в табл. 20.10.<br> <b>Таблица 20.10.</b> Возможные значения свойства WindowStyle<br><table border=1><br> <tr> <td>Значение<br> <td> <td>Описание<br> <td> </tr> <tr> <td>0 <br> 1<br> 2<br> <td> <td>Нормальное <br> Минимизированное <br> Максимизированное<br> <td> </tr> </table><br> <b>WorkingDirectory.</b><br> Задает рабочий каталог ярлыка. <br> <b>Save.</b> Сохраняет ярлык в файле, имя которого определяется свойством FullName.<br><br> <br> WshNetwork<br> Объект WshNetwork предоставляет свойства и методы для работы с разделяемыми устройствами (дисками и принтерами) в сети, а также свойства локальных компьютеров (сетевые имена, имена доменов и т.п.). Информация об этом объекте содержится на http://www.microsoft.com.scripting.<br> <b>Глава 21</b>. Visual Basic и Web<br> <b>• Объекты для просмотра Web</b><br> <b>• Элемент управления WebBrowser и объект InternetExplorer</b><br> <b>• Использование гиперссылок в приложениях Visual Basic</b><br> <b>• Модель написания сценария Internet Explorer</b><br> <b>• Построение элементов управления для использования в Internet</b><br> Мы рассмотрели использование VBScript для написания сценария Web-страниц. В этой главе показано слияние рабочего стола и Web, приведены объекты и примеры. Первая рассматриваемая тема - элемент управления WebBrowser, который позволяет отображать HTML-документы в приложениях Visual Basic. При помощи этого элемента управления можно разработать форму для соединения пользователя с Web-узлом (или страницей) и воспроизведения домашней страницы, как с помощью Internet Explorer. Поскольку элемент управления WebBrowser не предусматривает никаких средств навигации, можно ограничить пользователя только собственным узлом (если он не содержит гиперссылки на другие узлы).<br> В корпоративной среде разрабатываются формы, отображающие объявления, специальные инструкции и все типы информации, которые часто изменяются. Пользователю не нужно запускать броузер для просмотра этой информации. Элемент управления WebBrowser позволяет пользователям получать информацию из приложений, которыми они пользуются ежедневно.<br> Элемент управления WebBrowser, как и Internet Explorer, может отображать HTML-страницы, заявленные заблаговременно и находящиеся на сервере (или жестком диске). Можно непосредственно манипулировать документом при помощи объектов Internet Explorer Scripting Object Model. С их помощью пишутся приложения Visual Basic, генерирующие код HTML и помещающие его на WebBrowser. Другими словами, возможна разработка приложений Visual Basic, которые генерируют HTML-документы "на лету" и отображают их при помощи элемента управления WebBrowser. Это очень удобно, особенно при разработке средств диалоговых консультаций.<br> Последняя тема этой главы — создание элемента управления<br> ActiveX для загрузки информации из Internet. Можно разработать элементы управления ActiveX, которые используют подсоединения к Internet для загрузки информации из сети. В этой главе показано, как это делается. Такие элементы управления называются Internet-enabled, и основной их функцией является подключение к серверу.<br> Примечание<br> Другая интересная тема — документы ActiveX. Они были введены с появлением VB5 и являются приложениями, которые могут выполняться в окне Internet Explorer. Документы ActiveX могут запускаться на выполнение дистанционно — через броузер. Но поскольку документы ActiveX — не самые распространенные приложения, разрабатываемые с использованием Visual Basic, эта тема в книге не рассматривается.<br><br> <br> InternetExplorer<br> Объект InternetExplorer позволяет запустить экземпляр Internet Explorer из приложения и манипулировать им с помощью OLE. Он поддерживает те же свойства и методы, что и элемент управления WebBrowser, и имеет дополнительные возможности. Кратко рассмотрим свойства и методы этого объекта, но сначала создадим приложение, которое управляет InternetExplorer. (IExplore на компакт-диске).<br> <div style="text-align:center;"><img src="image/index-image156.gif" alt="Объект"></div><br> <b>Рис. 21.2.</b> Страница Calendar.htm, открытая приложением Browser<br> <b>VB6 в действии: проект Explore</b><br> Чтобы установить ссылку на Internet Explorer из проекта, добавьте ссылку на объект InternetExplorer Для этого выполните следующие действия.<br> <b>1</b>. Откройте новый проект, выбрав тип проекта Standard EXE<br> <b>2</b>. Выберите команду References (Ссылки) меню Project (Проект), чтобы открыть диалоговое окно References.<br> <div style="text-align:center;"><img src="image/index-image157.gif" alt="Объект"></div><br> <b>3</b>. Установите флажок Microsoft Internet Controls.<br> Новый значок на панели элементов управления не появится. Но если открыть окно Object Browser, то можно обнаружить, что класс Internet Explorer был добавлен к проекту. В окне Members будут видны свойства и методы класса IntemetExplorer. С их помощью можно управлять Internet Explorer посредством OLE.<br> Построим приложение, управляющее одним или несколькими экземплярами IntemetExplorer (рис. 21.3). Пользователь может выбрать адрес из элемента управления ComboBox в окне Visual Basic и щелкнуть на кнопке Show URL, чтобы запустить экземпляр Internet Explorer, в котором воспроизводится выбранный пользователем URL.<br> <div style="text-align:center;"><img src="image/index-image158.gif" alt="Объект"></div><br> <b>Рис. 21.3.</b> Использование приложения IExplore для управления Internet Explorer<br> Далее выполните следующие действия.<br> <b>4</b>. Создайте форму, подобную показанной на рис. 21.3.<br> <b>5</b>. Объявите переменную, которая обращается к элементам класса IntemetExplorer.<br> Dim IE As New IntemetExplorer<br> <b>6</b>. Добавьте следующий код инициализации в событие, обрабатываемое при загрузке формы.<br> Private Sub Form_Load()<br> List1.AddItem "microsoft"<br> List1.AddItem "sybex"<br> List1.AddItem "infoseek"<br> List1.AddItem "realaudio" <br><br> <br> Response<br> Этот объект используется для пересылки информации клиенту. ASP-файлы могут содержать HTML-код, который просто пересылается клиенту. Если возникает необходимость управлять потоком вывода из программы, то используется метод Write объекта Response. Он поддерживает следующие методы и свойства.<br> <b>Метод Write</b><br> Все то, что записано в объект Response с помощью метода Write, пересылается клиенту. Информация, записываемая с помощью метода Write, является HTML-документом (как и при использовании одноименного метода объекта Document). Приведем пример использования метода Write.<br> <b>Программа 22.4.</b> Использование метода Response.Write<br> <HTML> <br> <SCRIPT LANGUAGE=VBScript RUNAT=Server><br> Response.Write "<HTML>"<br> Response.Write "<head> <link rel="canonical" href="https://www.e-lave.ru//index.htm"/>"<br> Response.Write "<TITLE>Response.Write Demo</TITLE>"<br> Response.Write "</HEAD>"<br> Response.Write "<H1>"<br> Response.Write "Response Object:Write Method"<br> Response.Write "</H1>"<br> Response.Write "This document was created on the fly by an ASP <br> file on the server"<br> Response.Write "</HTML>"<br> </SCRIPT> <br> </HTML><br> Внешние теги <HTML> определяют границы ASP-файла (в данном случае они необязательны), а теги, записанные в объект Response, ограничивают HTML-файл, который виден на экране клиента. Если существует метод, используемый едва ли Не в каждом ASP-файле, то это метод Response.Write. Примеры данной главы не являются исключением из правил.<br> Метод Write объекта Response является основным способом пересылки данных клиенту. Программа 22.4 достаточно тривиальна. Этот же результат можно было получить непосредственным использованием HTML-тегов или метода Write объекта Document.<br> <b>Метод Redirect</b><br> Этот метод переадресует клиента на другой URL. Если URL вашего узла изменился, то напишите небольшое ASP-приложение для автоматической переадресации клиентов на новый URL.<br> <HTML><br> <%<br> Response.Write "Our site was moved at a new URL."<br><br> <br> Request<br> Для взаимодействия с пользователем сценарий должен запрашивать информацию, вводимую пользователем в форму, и читать значения из<br> cookies. Появление ASP позволило упростить процесс чтения данных, поставляемых клиентом, путем инкапсуляции всей совокупности сложных процедур в несколько свойств объекта Request. Этот объект - один из основных инструментов построения серверных сценариев Объект Request обладает пятью свойствами, и все они являются семействами.<br> <b>QueryString.</b><br> Содержит значения, переданные серверу методом GET. <br> <b>Form.</b> Содержит все формы на странице.<br> <b>Cookies.</b> Содержит все cookie, записанные на клиентский компьютер Web-узлом. <br> <b>ServerVariables.</b><br> Содержит все HTTP-переменные, определенные сервером <br> <b>ClientCertificate.</b><br> Содержит все сертификаты клиента.<br> <b>Семейство QueryString</b><br> Это семейство, наиболее часто используемое при разработке ASP-приложений Оно предоставляет доступ ко всем параметрам, переданным клиентом вместе с URL Если имена параметров на этапе разработки приложения известны, то их значения можно получить следующим образом.<br> reqProdName = Request.QueryString ("ProductName")<br> Если имена параметров на этапе разработки ASP-файла не известны или их нужно обрабатывать последовательно, то воспользуйтесь следующим циклом.<br> Set Params = Request.QueryString<br> For Each param in Params<br> {обработка параметра param} <br> Next<br> На рис. 22.5 показана простая HTML-страница (страница SRVRFORM.HTM в папке этой главы на компакт-диске) с единственной формой, посредством которой пользователь вводит информацию, выбирая требуемые пункты в списках.<br> <div style="text-align:center;"><img src="image/index-image175.gif" alt="Объект"></div><br> <b>Рис. 22.5.</b> Типичная форма HTML-страницы<br> Элементы ListBox на форме имеют следующие имена: HardDisc, Memory, CD, Speaker и Software. Их возможные значения перечислены в тегах <OPTION> для каждого тега <SELECT>. Варианты выбора объема оперативной памяти (Select Memory) представлены значениями 32, 64, 128 и 256. Параметр запроса Memory имеет одно из этих значении, выбранных на форме.<br> <b>Программа 22.5.</b> Файл SRVRFORM.HTM<br><br> <br> Server<br> Объект Server управляет средой, в которой выполняется серверный сценарий. Наиболее важным членом этого объекта является метод CreateObject, создающий новый экземпляр объекта зарегистрированного класса.<br> <b>Метод CreateObject</b><br> Этот метод идентичен одноименной функции Visual Basic. В качестве аргумента он принимает реестровый идентификатор (Class ID) объекта и возвращает его экземпляр. Метод имеет следующий синтаксис.<br> Server. CreateObject ("progID")<br> Для получения доступа к базе данных с помощью ADO-компонента необходимо сначала создать объекты Connection и Recordset с использованием следующих операторов (подробная информация приведена в параграфе "Использование ADO").<br> Set ADOConnection = Server.CreateObject ("ADODB.Connection") <br> Set ADORS = Server.CreateObject ("ADODB.Recordset")<br> Аналогично, необходимо создавать объектные переменные для доступа к другим базовым компонентам ASP, например, File Access или Adviertisement Rotator. Объектные переменные следует создавать для доступа к компонентам ActiveX, разработанным вами. В параграфе " Использование ADO" можно узнать, как установить связь с базой данных, используя объектные переменные. В параграфе "Взаимодействие с компонентами ActiveX" в конце этой главы рассмотрено, как создать объектную переменную для взаимодействия с пользовательскими компонентами ActiveX, работающими на сервере.<br> <b>Метод MapPath</b><br> Это еще один широко используемый метод объекта<br> Server, который устанавливает соответствие между виртуальными папками и действительными путями на диске. Он чрезвычайно полезен при разработке серверных сценариев: все файлы, с которыми работает сценарий, расположены в виртуальных паПках. Можно реорганизовать структуру папок на Web-узле, затем переименовать несколько виртуальных папок, и ваши сценарии будут работать. Однако бывают случаи, когда требуется знать полный путь к файлу, а получить его можно с помощью метода MapPath.<br><br> <br><br> <h1>Объектная модель</h1> ADO<br> Объектная модель ADO проще DAO, несмотря на то, что она поддерживает больше типов баз данных и предоставляет больше возможностей программисту. Модель ADO состоит из трех объектов:<br> <b>Connection (Подключение).</b><br> Это объект высшего уровня, предоставляющий подключение к источнику данных. Обычно сначала выполняется подключение к источнику данных, а затем (для получения требуемых записей из базы данных или ее изменения) выполняются команды, использующие объект Connection. Однако подключение можно выполнить и в момент создания объекта RecordSet. Объект ADO Connection программируется аналогично объекту Connection конструктора DataEnvironment.<br> <b>Command (Действие).</b><br> Этот объект представляет собой SQL-выражение или сохраненную процедуру, обрабатываемую свойством Data Source. Объект Command может не вернуть результат (если он предназначен для внесения изменений в базу данных) или вернуть RecordSet с требуемыми записями. Для установки объекта Command необходимо задать SQL-выражение или сохраненную процедуру и их параметры (если нужно). Параметры добавляются к семейству параметров (Parameters Collection) объекта Command. Затем можно вызвать метод Execute (Выполнить), чтобы выполнить SQL-выражение или сохраненную процедуру свойства Data Source. Другая возможность состоит в создании объекта RecordSet с последующим связыванием его с объектом Command. С точки зрения программирования объект ADO Command эквивалентен объекту Command конструктора DataEnvironment.<br> <b>RecordSet (Набор записей).</b><br> Этот объект содержит результаты действия объекта Command при работе с базой данных (при условии, что действие возвращает записи). Объект RecordSet можно создать без явного подключения (достаточно передать строку подключения, определяющую Data Source, методу Open объекта RecordSet). Для доступа к полям объекта RecordSet используется его свойство Fields collection (Семейство Fields). Объект ADO RecordSet представляет такие же записи, которые возвращаются конструктором DataEnvironment, с той лишь разницей, что к ним можно получить доступ из кода, а не перетаскивать их на форму.<br><br> <br><br> <h1>Объекты активного сервера</h1> HTML является языком для отображения информации на экране клиента. Он позволяет сделать Web-страницы не только красочными, но и интерактивными. Но HTML создавался не как язык программирования и, несмотря на все последующие доработки, так им и не стал.<br> Для разработки интерактивных страниц необходим инструмент программирования. Эту роль мог бы играть VBScript (или иной язык написания сценариев), но у него есть очень серьезные ограничения. Язык для написания клиентских сценариев должен быть настолько безопасным, что выполнение этого требования существенно уменьшает его возможности. Выход можно найти в перенесении большей части нагрузки на сервер. Инструментальным языком при этом остается VBScript, однако, если программа выполняется на сервере, VBScript получает доступ ко всем объектам на сервере. Это значит, что на сервере VBScript во многом подобен Visual Basic, а серверный сценарий напоминает VB-программу.<br> Большой интерес представляют вопросы организации доступа к базам данных, расположенных на сервере, со стороны клиента. Простейшим способом доступа к базам данных с помощью ASP является использование компонента<br> Database, основанного на объекте Active Data Objects (ADO). ADO инсталируется вместе с ASP и его можно использовать в ASP-страницах для доступа к базам данных (см. гл. 18). Компонент ADO обеспечивает эффективный доступ к базам, совместимым с протоколом ODBC или OLE DB. Таким образом, можно использовать ADO в клиентских сценариях (при условии, что этот компонент установлен на компьютере-клиенте) для организации Web-интерфейса, позволяющего получить доступ к корпоративным базам данных без разработки дополнительного серверного сценария.<br> ASP подчиняются парадигме разработки на основе компонентов. Это означает, что все функциональные возможности для разработки Web-узла обеспечиваются объектами, принадлежащими одной из двух категорий:<br> • встроенные;<br> • базовые (или основные).<br> Встроенные объекты предоставляют методы и свойства для доступа к деталям поступающих запросов (например, к параметрам запроса) и генерирования результатов, возвращаемых клиенту. Базовые объекты обеспечивают функциональные возможности, не являющиеся обязательными, но широко используемые в Web-разработках. Примеры базовых объектов - ADO для доступа к базам данных и компонент файловой системы, используемый при чтении и записи в файлы на сервере. В следующих двух параграфах рассмотрены эти объекты и примеры их использования в Web-разработках.<br><br> <br><br> <h1>Объекты для просмотра</h1> Web<br> Чтобы использовать методы Web и документы с гиперссылками в приложениях Visual Basic необходимы два объекта:<br> • элемент управления WebBrowser;<br> •<br> объект InternetExplorer.<br> WebBrowser — это элемент управления ActiveX, который отображает HTML-документы в формах Visual Basic. InternetExplorer — это объект автоматизации OLE, использующийся для управления Microsoft Internet Explorer (и элементом управления WebBrowser) из программы. Эти два объекта имеют много общего, поэтому рассматриваются в одном параграфе. Основное внимание уделено элементу WebBrowser.<br><br> <br><br> <h1>Объекты, которые представляют текст</h1> Базовым объектом для доступа к тексту в документах Word является объект Range,<br> который представляет собой непрерывный сегмент текста. Чтобы извлечь некоторый текст из документа, можно воспользоваться методом Range объекта Document, который принимает в качестве параметров позиции начального и конечного символов в тексте. Синтаксически это выглядит так:<br> Document.Range(start, end)<br> Параметры start и end — два числовых значения. Непривычным является то, что первый символ документа имеет номер 0. Следующий оператор позволяет извлечь первые 100 символов документа, представленного объектной переменной Document.<br> Range 1 = Document.Range (0, 99)<br> Эти символы присваиваются объектной переменной Range). Переменная Range 1 может быть объявлена как вариантная, но ее также можно объявить как переменную типа Range:<br> Dim Range 1 As Range<br> В приведенных операторах перед использованием переменной Document ее необходимо установить, чтобы затем можно было сослаться на существующий объект:<br> Set Documenti = Documents(1)<br> Переменная<br> Document1 может быть объявлена как вариантная, но ее также можно объявить как переменную типа Document:<br> Dim Documenti As Document<br> Также можно заменить переменную Document1 на встроенный объект ActiveDocument,<br> который представляет активный документ. К выделенному тексту в активном документе можно обращаться, воспользовавшись следующим выражением:<br> Application.ActiveDocument.Selection<br> Слова, предложения и абзацы являются более значимыми элементами текста, нежели символы. Соответственно, объекты Word, Sentence и Paragraph более подходят для работы с текстом и, обычно, именно они используются при обращении к документам. Но эти объекты не поддерживают все свойства объекта Range. Впрочем, все эти элементы текста могут быть преобразованы в объект Range, обладающий свойством Range. Например, следующее выражение возвращает третий абзац в указанном документе как объект Range:<br> Document1.Paragraphs(3).Range<br> После этого можно обратиться к свойствам объекта<br> Range, чтобы обработать третий абзац.<br> <br> Однако объект Paragraph не обладает ни свойством Font, ни методом Select. Чтобы изменить вид третьего абзаца в документе, необходимо сначала преобразовать абзац в объект Range:<br><br> Set Rangel = Documenti.Paragraphs (3).Range <br><br> Rangel.Font.Bold = True<br><br> Document1 — правильно объявленная переменная типа Document, a Rangel — правильно объявленная переменная типа Range. Впрочем, можно объединить оба оператора в один и избежать, тем самым, необходимости создания объектной переменной Rangel:<br><br> Document1.Paragraphs(3).Range.Font.Bold = True <br><br> С помощью приведенного ниже оператора можно выделить тот же параграф:<br><br> Document.Paragraphs(3).Range.Select<br><br> Как только абзац (или любой другой фрагмент текста) выделен, к нему можно применить все средства обработки (например, редактировать, перемещать в другое место, форматировать).<br><br> Наиболее часто используются два метода объекта Range: InsertAfter, с помощью которого можно вставить строку текста после указанного объекта Range, и InsertBefore, с помощью которого можно вставить строку текста перед указанным объектом Range. Следующие операторы позволяют вставить заголовок в начало документа и заключительный абзац в конец:<br><br> AppWord.ActiveDocument.Select <br><br> AppWord.ActiveDocument.Range.InsertBefore _ <br><br> "This is the document's title"<br><br> '(Это заголовок документа)<br><br> AppWord.ActiveDocument.Range.InsertAfter<br><br> "This is the closing paragraph" <br><br> '(Это заключительный абзац)<br><br> С помощью метода Select<br><br> в объекте ActiveDocument можно выделить текст целиком. Преобразовав после этого выделенный текст в объект типа Range, можно применить к нему методы, присущие объекту соответствующего типа. Методы InsertBefore и InsertAfter позволяют поместить некоторый текст перед и после объекта Range.<br><br> <b>VB6 в действии: проект WordVBA</b><br><br> Располагая информацией о методах и объектах, можно разработать программу, которая сможет открыть документ, поместить в него некоторый текст, форматировать<br><br> его, а затем сохранить в файле на диске. Начать следует с создания экземпляра Word и установления связи с ним. В этом проекте демонстрируются возможности:<br><br> <br> •  создания нового документа;<br><br> •  вставки текста и его форматирования,<br><br> •  подсчета количества абзацев, слов и символов в новом документе и вывода полученных результатов в окно сообщений (рис. 14.14).<br><br> Эти действия выполняются непосредственно из приложения Visual Basic, в то время как Word работает в фоновом режиме. Пользователь не видит окно Word (даже в виде значка на панели задач). Новый документ сохраняется в файле C:\SAMPLE.DOC, и позже его можно будет открыть в Word для редактирования.<br><br> <div style="text-align:center;"><img src="image/obekty-kotorye-predstavljajut-tekst_1.gif" alt="Объекты, которые представляют текст"></div><br><br> <b>Рис. 14.14.</b> В проекте WordVBA демонстрируется создание и обработку DOC-файла из приложения Visual Basic.<br><br> Программа, обслуживающая кнопку Create DOC file, проста. Для работы с текстом используется свойство Paragraph объекта Document, чтобы управлять текстом (можно вставлять новые абзацы и работать с ними). Следует обратить внимание на то, как выполняется выравнивание первого абзаца текста с помощью свойства Alignment объекта Paragraph.<br><br> <b>Программа 14.10.</b> Кнопка Create DOC file<br><br> Private Sub Commandl_Click() <br><br> Dim thisDoc As Document <br><br> Dim thisRange As Range <br><br> Dim prnTime As Date <br><br> Dim breakLoop As Boolean<br><br> Me.Caption = "Creating document..."<br><br> ' (Создание документа...) <br><br> Set thisDoc = WordApp.Documents.Add <br><br> thisDoc.Range.InsertBefore "Document Title" & vbCrLf & vbCrLf<br><br> ' (Заголовок документа...) <br><br> Set thisRange = thisDoc.Paragraphs(1).Range <br><br> thisRange.Font.Bold = True<br><br> thisRange.Font.Size = 14<br><br> thisRange.ParagraphFormat.Alignment = wdAlignParagraphCenter<br><br> thisRange.InsertAfter "This sample document was created _<br><br> automatically with a Visual Basic application." _ <br><br> & vbCrLf<br><br> ' (Этот образец документа был создан <br><br> ' автоматически приложением Visual Basic...)<br><br> thisRange.InsertAfter "You can enter additional text here" _<br><br> SvbCrLf<br><br> ' (Сюда можно ввести текст...) <br><br> thisRange.InsertAfter vbCrLf & vbCrLf <br><br> thisRange.InsertAfter "This project was created for _ <br><br> Mastering VB6"<br><br> ' (Этот проект был создан для книги по VB6)<br><br> thisRange.InsertAfter "(Sybex, 1999) and was tested with _ <br><br> <br> Word 97 "<br><br> ' ( (изд-ва Sybex, 1999) и был испытан с <br><br> ' помощью Word 97.) <br><br> thisRange.InsertAfter vbCrLf <br><br> thisRange.InsertAfter "Your text follow"<br><br> ' (Далее следует ваш текст) <br><br> thisRange InsertAfter Textl.Text<br><br> Me.Caption = "Saving document... "   ' (Сохранение документа...) thisDoc.SaveAs "c:\sample.doc"<br><br> Me Caption = "Printing document..."  ' (Печать документа...)<br><br> thisDoc.Printout True, True <br><br> prnTime = Time <br><br> breakLoop = False<br><br> While WordApp.BackgroundPrintingStatus<b> <></b> 0 And Not breakLoop <br><br> If Minute(Time - prnTime) > 1 Then<br><br> Reply = MsgBox (" Word is taking too long to print." _<br><br>  vbCrLf & "Do you want to quif" , vbYesNo)<br><br>  '(Документ печатается слишком долго.. Будете ждать?) <br><br> If Reply = vbYes Then<br><br>    breakLoop = True <br><br> Else<br><br>    prnTime = Time <br><br> End If <br><br> End If <br><br> Wend <br><br> WordApp.Quit <br><br> MsgBox "Document saved and printed!"<br><br> ' (Документ сохранен и распечатан!) <br><br> Command2.Enabled = True <br><br> Command3.Enabled = True <br><br> Me Caption = "Word VBA Demo" <br><br> End Sub<br><br> Кнопка Massage DOC File позволяет продемонстрировать работу с текстом в документе Word с помощью автоматизации OLE. Первоначальный текст содержит множество ненужных пробелов между словами. Чтобы заменить эти пробелы на одиночные (типичная задача при редактировании), можно воспользоваться диалоговым окном Find & Replace (Поиск и замена). Приложение WordVBA выполняет эту операцию, вызывая метод Find.<br><br> Для обращения к методу Find требуется указать множество параметров, большая часть которых является необязательными. Для приложения WordVBA необходимо определить строку, которую следует найти, и строку, на которую ее следует заменить. Поэтому надо указать, что программа должна отыскивать два последовательно расположенных пробела и заменять их одним пробелом. Но на этом процесс не закончится, поскольку в документе могут содержаться три последовательно расположенных пробела, а в результате выполнения указанной процедуры их количество будет уменьшено до двух. Поэтому операция Find & Replace (Поиск и замена) должна быть выполнена еще раз. Как только программа отыщет два последовательно расположенных пробела, операция замены будет выполнена еще раз.<br><br><b>Программа 14.11.</b> Обработка документа<br><br> Word<br><br> Private Sub Command2 Click () <br><br> Dim thisDoc As Document <br><br> Dim thisRange As Range<br><br> WordApp.Documents.Open ("c:\sample doc") <br><br> WordApp.Visible = False <br><br> Set thisDoc = WordApp.ActiveDocument<br><br> thisDoc.Content.Find.Execute FindText:="VB5", _<br><br> ReplaceWith:="VB6", Replace:=wdReplaceAll <br><br> While thisDoc.Content.Find.Execute(FindText:= " ", _<br><br> Wrap:=wdFindContinue) <br><br>   thisDoc.Content.Find.Execute FindText:= " ", _<br><br> ReplaceWith:= " ", Replace:= wdReplaceAll, _<br><br> Wrap:=wdFindContinue <br><br> Wend<br><br> End Sub<br><br><br> <h1>Объекты</h1> IE Scripting Object Model<br> Scripting Model - это иерархия объектов, с помощью которых можно получить доступ к свойствам HTML-документов, отображаемых в окне броузера, и к свойствам самого броузера. Эта модель напоминает организацию объектов в СУБД Access (см. гл. 17 — там рассматривалась иерархическая организация объектов, начинающихся с объекта Database). В Scripting Model каждый объект имеет свойства, являющиеся самостоятельными объектами, которые имеют собственные свойства (некоторые из них также являются объектами), методы и события.<br> Верхний объект в Scripting Model — Window. Документ отображается внутри этого объекта. Основные свойства объекта Window: его имя (свойство Name) и место расположения отображаемого документа (свойство URL). Прежде рассмотрим объекты Scripting Model в целом и узнаем, что они выполняют для Web-страниц.<br> Наиболее важное свойство объекта Window — объект Document. Объект Document — это HTML-документ, отображаемый в окне, которое имеет собственные атрибуты (фоновый цвет, строку заголовка и т.д.). Окно может содержать фреймы, которые могут содержать документы. Чтобы обратиться к документу во фрейме, сначала обращаются к соответствующему фрейм-объекту, а затем - к объекту-документу этого фрейма.<br> <br> Session и Application<br> Объект Session (Сеанс) поддерживает переменные, относящиеся к конкретному сеансу взаимодействия клиент-сервер. Перед ознакомлением с членами этого объекта и способами его применения для построения ASP-приложений рассмотрим, как ASP-компоненты поддерживают сеанс в условиях протокола без сохранения предыстории.<br> Мы уже знаем, что HTTP является протоколом, не сохраняющим предысторию. Когда клиент запрашивает новый документ, инициируется новый процесс обмена. Каким же образом ASP знает, что новый запрос принадлежит существующему сеансу обмена? Ответ прост — ASP использует cookies (заготовки).<br> Когда клиент подсоединяется в первый раз, сервер посылает cookie с именем ASPSESSIONID, который запоминается на клиентском компьютере. При всех последующих обращениях к серверу ASPSESSIONID пересылается вместе с заголовком запроса.<br> Примечание<br> Заголовок содержит информацию, необходимую для взаимодействия обоим компьютерам. Вопросы, касающиеся подробностей структуры заголовка, выходят за пределы этой книги.<br> ASP обрабатывает этот<br> cookie для восстановления значений переменных, сохраненных ранее в объекте Session. Время действия ASPSESSIONID истекает по окончании сеанса связи. Когда этот же клиент подсоединяется к серверу следующий раз, пересылается новый cookie и создается новый сеанс. Для сохранения информации между сеансами следует сохранить cookie, время действия которого истекло, чтобы при следующем подключении клиента к серверу можно было прочесть его и использовать в качестве ключа для поиска требуемой информации (права доступа и т.п.).<br> Примечание<br> Некоторые броузеры не поддерживают cookie (хотя бывает это очень редко). Такие броузеры не поддерживают также объект Session. Это — единственное ограничение на использование ASP.<br> Объект Application (Приложение) подобен Session с той лишь разницей, что он поддерживает переменные, относящиеся не к отдельному сеансу, а к приложению. Простейшими примерами его использования являются вывод приветственного сообщения в окне клиента и счетчика пользователей. Все, что нужно для реализации счетчика пользователей, это ввести переменную, областью видимости которой является приложение, и увеличивать ее значение на 1 при посещении исходной страницы (являющейся ASP-документом) вашего приложения.<br><br> <br><br> <h1>Объявление 32-разрядных функций и структур</h1> В некоторых API-функциях в качестве параметров используются структуры. В приложении MousePos (папка MousePos данной главы на компакт-диске) приводится пример объявления и использования простой структуры. В этом приложении для получения информации о положении мыши в момент выполнения щелчка используется функция GetCursorPosQ. Эта функция должна возвратить вызвавшей ее программе два значения: координаты Х и Y мыши. Эти значения хранятся в структуре POINTAPI, которая состоит из двух элементов - Х и Y. Доступ к ним можно получить из программы с помощью выражений PointAPl.X и PointAPl.Y.<br> Чтобы создать проект MousePos, выполните следующие действия:<br> <b>1</b>. Откройте окно API Viewer, выбрав команду API Viewer в меню Add-Ins.<br> <b>2</b>. В открывшемся окне в меню File (Файл) выберите команду Load Text File (Загрузить текстовый файл).<br> <b>3</b>. Выберите файл Win32api.txt и выполните двойной щелчок на элементе GetCursorPos в списке Available Items (Доступные объекты).<br> <b>4</b>. В окне списка Selected Items (Выделенные объекты) появится следующее объявление:<br> Declare Function GetCursorPos Lib "user32" _<br> Alias "GetCursorPos" (IpPoint As POINTAPI) As Long<br> Параметр, необходимый для вызова функции - это структура данных, называемая POINTAPI. Она хранит координаты точки экрана. Чтобы найти определение структуры данных POINTAPI с помощью API Viewer выполните следующие действия:<br> <b>5</b>. В раскрывающемся списке API Type (API-типы) выберите Types (Типы). Список Available Items (Доступные объекты) будет содержать названия всех структур данных, используемых API-функциями.<br> <b>6</b>. Найдите структуру данных POINTAPI и выполните двойной щелчок на ее названии. В окне списка Selected Items (Выделенные объекты) появится ее определение.<br> Type POINTAPI<br> х As Long<br> у As Long <br> End Type<br> <b>7</b>. Щелкните на кнопке Сору, чтобы скопировать это определение в буфер обмена (вместе с объявлением функции GetCursorPos()).<br> Совет<br> Объявления функций можно помещать в любом месте, но обычно их помещают в Module (Модуль): тогда другие процедуры смогут получить к ним доступ.<br><br> <br><br> <h1>Обновление изображения</h1> Теперь можно написать код, который обновляет изображение и вызывает событие TimeOut. Код, который будет написан в этом разделе, не имеет никакого отношения к конструированию элемента управления ActiveX. Этот код необходим при реализации таймера как самостоятельного приложения.<br> Совет<br> Если вы еще не совсем привыкли к среде конструирования ActiveX, то можно разработать обычное приложение, которое делает то же самое (то есть отсчитывает время, показывает прошедшее или оставшееся время на элементе управления Label, и обнаруживает, когда подходит время сигнала). Затем можно скопировать необходимые процедуры и вставить их в окне проекта ActiveX.<br> Теперь напишем код для происходящего каждую секунду события Timer элемента управления Timer. Для этого следует установить свойство Interval элемента управления Timer равным 1000. В обработчике события Timer элемента управления Timer следует обновить изображение и проверить, не нужно ли выключить сигнал.<br> <b>Программа 16.16.</b> Событие Timer элемента управления Alarm<br> Private Sub Timerl_Timer() <br> Dim TimeDiff As Date <br> Dim StopNow As Boolean<br> If Time - m_AlarmTime > 0 Then <br> If NextDay = False Then<br> StopNow = True <br> Else<br> TimeDiff = 24 - Time + m_AlarmTime<br> End If <br> Else<br> If NextDay = True Then<br> StopNow = True <br> Else<br> TimeDiff = m_AlarmTime - Time <br> End If <br> End If <br> If m_CountDown Then<br> Label1.Caption = Format$(Hour(TimeDiff) &  ":" & _<br> Minute(TimeDiff) & ":" & Second(TimeDiff), "hh:mm:ss") <br> Else<br> Label1.Caption = Format(Hour(Time - startTime)  & ":" & _<br> Minute(Time - startTime) & ":" & _ <br> SecondfTime - startTime), "hh:mm:ss") <br> End If<br> If StopNow Then<br> Timeri.Enabled = False <br> RaiseEvent TimeOut <br> End If <br> End Sub<br> Способ остановки таймера и вызова события TimeOut зависит от того, настроен ли элемент управления для обратного отсчета. При обратном отсчете он отображает оставшееся время, а при прямом отсчете он отображает время, прошедшее с момента запуска таймера (переменная startTime<br> <br> устанавливается методом StartTimer). Когда достигается значение AlarmTime, таймер останавливается. Это условие в коде проверяется последней If-структурой. Переменная NextDay устанавливается в методе StartTimer. Когда подходит время подачи сигнала, переменная NextDay изменяет свое значение, и это событие сообщает о том, что сигнал включен.<br><br> Можно предположить, что момент для инициирования события TimeOut может быть вычислен путем сравнивания AlarmTime с текущим временем:<br><br> If Time = AlarmTime Then<br><br> Timeri.Enabled = False<br><br> RaiseEvent TimeOut <br><br> End If<br><br> Но этот код никогда не будет работать. Если компьютер слишком занят в момент, когда подходит время сигнала (например, запуск другого приложения или проверка жесткого диска), событие Timer для последней секунды может быть не вызвано. Если это событие было пропущено, нужно будет ждать 24 часа, прежде чем подойдет время следующего сигнала (и потом он снова может не сработать!). Реализация, которая выполнена в нашем примере, включит сигнал, если даже это произойдет на секунду или две позже.<br><br> Посмотрите, насколько просто генерируются собственные события. Просто необходимо вызвать метод RaiseEvent из собственного кода, и Visual Basic поймет, что о событии сообщено основному приложению. В приложении любое условие в любое время может инициировать событие. Кроме того, в начале кода наряду с объявлением переменных нужно добавить объявление события TimeOut.<br><br> Event TimeOut()<br><br> Откройте проект Alarm и исследуйте код объекта UserControl вместе с кодом тестового проекта. Код очень простой, именно поэтому он был выбран для реализации вручную. Естественно, проще реализовать пользовательские элементы управления с помощью мастера интерфейса элемента управления ActiveX, но важно понять, что происходит и что мастер делает автоматически.<br><br><br> <h1>Обработка ошибок класса</h1> Класс AXStat содержит программный код, который может инициировать ошибки из кода класса. Если говорить о данном приложении, эти ошибки идентичны ошибкам, которые генерируются Visual Basic, и они могут быть перехвачены. Если, например, пользователь пытается получить доступ к несуществующему элементу (индекс которого больше свойства Count), то класс генерирует ошибку. Класс может обрабатывать ошибку, выдавая соответствующее сообщение, но это не лучший способ обработки ошибок, которые возникают в классах. Разумнее инициировать ошибку и позволить приложению ее обработать.<br> Для генерирования ошибки исполнения в классе (или в управляющем элементе ActiveX, как это можно увидеть в следующей главе) необходимо воспользоваться методом Raise<br> объекта Err. Номер ошибки может быть любым целым значением, но следует убедиться в том, что оно не конфликтует с номерами ошибок Visual Basic. Диапазон от 0 до 512 зарезервирован для Visual Basic и не стоит использовать номера из этого диапазона. Можно использовать любой другой номер ошибки, но рекомендуется использовать малые значения и прибавлять к ним константу vbErrorObject. Например, если класс может определять 8 типов ошибок, то можно назначить им номера от 1 до 8 и прибавить к ним константу vbErrorObject.<br> Если другой элемент управления использует такие же номера ошибок, то можно выяснить, каким элементом управления сгенерирована ошибка, исследуя свойство Source объекта Err. Для выяснения действительного номера ошибки приложение может вычесть эту же константу из значения Err.Number.<br> Совет<br> Интересным свойством константы vbErrorObject<br> является то, что ее значение — очень большое отрицательное число (-2147221504). Таким образом, все номера ошибок, возвращаемые пользовательскими классами, будут отрицательными числами и их очень легко отличить от стандартных ошибок Visual Basic.<br> Две кнопки с правой стороны тестовой формы генерируют ошибки исполнения, вызывая члены класса AXStat с некорректными аргументами. Следующий программный код показывает, как они вызывают методы Item и Remove с соответствующим кодом, перехватывающим ошибки.<br> <br> <b>Программа 15.16.</b> Обработка ошибок сгенерированных классом AXStat<br><br> Private Sub Command5_Click() <br><br> On Error Resume Next <br><br> STATS.Remove 9999 <br><br> If Err.Number <> 0 Then<br><br> MsgBox "ERROR # " & Err.Number - vbObjectError _ <br><br> & vbCrLf & Err.Description & vbCrLf & "In " & Err.Source <br><br> ' (Ошибка №... в...) <br><br> End If <br><br> End Sub<br><br> Private Sub Command6_Click () <br><br> On Error Resume Next <br><br> STATS.Item 9999 <br><br> If Err.Number <> 0 Then<br><br> MsgBox "ERROR #" & Err.Number - vbObjectError _ <br><br> & vbCrLf & Err.Description & vbCrLf & "In " & Err.Source <br><br> ' (Ошибка N". . . в. . . ) <br><br> End If<br><br>  End Sub<br><br> Номер ошибки и ее источник устанавливаются в программном коде класса, методом Raise объекта Err, как показано ранее. Для определения действительного номера ошибки, сгенерированной классом, вычтите константу vbErrorObject<br><br> из значения Err.Number. Еще лучше, объявить несколько констант в коде, которые соответствуют значениям ошибок. Ниже приведен перечислимый тип с ошибками, которые генерируются классом AXStats:<br><br> Public Enum AXStatErrors<br><br> AddError = 1<br><br> RemoveError = 2 <br><br> End Enum<br><br> Константы значений ошибок появятся в броузере объектов под классом AXStatsErrors, и их можно использовать в коде приложения в виде выражений AXStatErrors.AddError и AXStatErrors. Remove Error.<br><br> Запустите приложение и щелкните на одной из двух кнопок справа на форме. Обе кнопки вызовут ошибку исполнения, пытаясь получить доступ к элементу с индексом 9999. Приложение остановится и выдаст сообщение об ошибке. Почему тестовый проект не перехватил ошибку исполнения с помощью его собственной подпрограммы обработки ошибок?<br><br> Ответ прост. По умолчанию Visual Basic в режиме конструирования останавливается в месте возникновения ошибки. Поэтому можно видеть строку, которая вызвала ошибку и исправить соответствующую процедуру в модуле класса. Если создать исполняемый файл и запустить его вне среды разработки, ошибка исполнения будет перехвачена работающим приложением. Можно также изменить поведение механизма перехвата ошибок Visual Basic в процессе конструирования. Откройте меню Tools и выберите команду Options. В диалоговом окне Options, которое появится на экране, выберите вкладку General, как показано на рис. 15.8.<br><br> <br> В секции Error Trapping ( Перехват ошибок) вкладки General опция Break in Class Module (Останов в модуле класса) выбрана по умолчанию. Вот почему Visual Basic прерывает выполнение как только возникает ошибка и тестовый проект не имеет шанса обработать ее с помощью собственного обработчика ошибок. Выберите опцию Break on Unhandled Errors (Останов на необработанных ошибках) (как показано на рис. 15.8), закройте диалоговое окно Options и запустите тестовый проект снова. Щелкните кнопку Remove Error или Item Error - на этот раз проект не завершится ошибкой исполнения. Вместо этого появится диалоговое окно с сообщением об ошибке подобное, изображенному на рис. 15.9.<br><br> <div style="text-align:center;"><img src="image/obrabotka-oshibok-klassa_1.gif" alt="Обработка ошибок класса"></div><br><br> <b>Рис. 15.8.</b> Изменение поведения механизма перехвата ошибок, заданного по умолчанию, во время конструирования.<br><br> <div style="text-align:center;"><img src="image/obrabotka-oshibok-klassa_2.gif" alt="Обработка ошибок класса"></div><br><br> <b>Рис. 15.9.</b> Перехват ошибок исполнения, генерируемых классом AXStats<br><br><br> <h1>Обработка ошибок</h1> Элемент управления Script имеет событие Error, вызываемое в случаях возникновения ошибки. Ошибку может вызвать элемент управления (вызов метода с неправильным аргументом или попытка установить несуществующее свойство) или сам сценарий Она может генерироваться в основном приложении, но не раньше, чем пользователю предложат воспользоваться Script Debugger. Пока разрабатываются и тестируются сценарии, можно позволить Visual Basic запустить отладчик и помочь в отладке. Завершенное приложение не должно выдавать подобных сообщений.<br> Может показаться, что нынешняя версия элемента управления не позволяет подавлять диалоговое окно, что делает затруднительным распространение приложений. Пользователи могут не иметь инсталированного Script Debugger, и эти сообщения приведут к путанице. Нынешний элемент управления Script далек от совершенства, но, возможно, следующая версия будет более гибкой или будет иметь редактор кода программы.<br> Необходимо мириться с ограничениями и недостатками элемента управления Script. Для обработки ошибок используйте объект Error, который является свойством элемента управления Script и отличается от объекта Err в Visual Basic. Объект Error имеет два свойства, которые указывают место ошибки в сценарии:<br> • Line - номер строки с ошибкой;<br> • Column — положение первого символа оператора, вызвавшего ошибочную ситуацию.<br> Эти свойства используются для установки указателя на место ошибки. Когда в качестве редактора используется элемент управления TextBox, переход на заданный символ в заданной строке текста этого элемента не является тривиальной задачей. Не существует методов или свойств, позволяющих выполнить это непосредственно.<br> Объект Error элемента управления Script имеет дополнительные свойства, которые перечислены в табл. 20.5.<br> <b>Таблица 20.5.</b> Дополнительные свойства объекта Error элемента управления Script<br><table border=1><br> <tr> <td>Свойство<br> <td> <td>Описание<br> <td> </tr> <tr> <td>Number Description <br> Text <br> Source<br> <td> <td>Номер ошибки <br> Описание ошибки <br> Строка с ошибочным оператором <br> Имя процедуры или класса, в которых произошла ошибка<br> <td> </tr> </table>< <br> После обработки ошибки для ее сброса вызывается метод<br><br> Clear объекта Error. Рассмотрим обработчик ошибок в коде кнопки Execute Script. Если элемент управления Script генерирует ошибку выполнения и свойство ScriptControll.Error.Number не равно нулю, то можно использовать свойство Error элемента управления Script для получения информации об ошибочном операторе. Но в большинстве случаев элемент управления Script генерирует ошибку автоматизации и не инициализирует объект Error. Обработчик ошибок просто отображает ошибку в окне сообщений.<br><br> CodeError:<br><br> If ScriptControll.Error.Number<b> <></b> 0 Then<br><br> msg = ScriptControll.Error.Description & bvCrLf<br><br> msg =<br><br> msg & "В строке " & ScriptControll.Error.Line _ <br><br> & ", столбце" & ScriptControll.Error.Column<br><br> MsgBox msg, ,"Ошибка в сценарии" <br><br> Else<br><br> MsgBox "ERROR # " & Err.Number & vbCrLf & Err.Description <br><br> End If<br><br> Наиболее частый источник ошибок - вызов неправильных методов или объектных переменных. Следующий оператор активизирует Excel и вызывает метод Evaluate.<br><br> Set EXL = CreateObject ("Excel.Application") <br><br> MsgBox "Логарифм числа 99 равен" & EXL.Evaluate ("Log(99)")<br><br> Если пропущено имя переменной EXL или приложение Excel отсутствует на машине, то в обоих случаях будет выдано одно сообщение об ошибке автоматизации. Это означает, что сценарий не имеет доступа к объекту. Если вызвать функцию InStr() с ошибочным аргументом (или неправильным числом аргументов), то в обоих случаях появится одно сообщение об ошибке. Объект Error элемента управления Script может локализовать только простые синтаксические ошибки. При работе с объектами элемент управления Script не оказывает существенной помощи.<br><br><br> <h1>Обращение к API-функциям из</h1> Visual Basic<br> Единственное отличие функций Visual Basic от API-функций заключается в том, что последние необходимо объявлять перед использованием. По сути, требуется сообщить Visual Basic имя и местоположение DLL-библиотеки, в которой находится требуемая API-функция, и указать типы и количество ее параметров. После этого ее можно использовать так же, как и функцию Visual Basic.<br> Объявление API-функций<br> Для объявления API-функций используется оператор Declare. Одним из способов является ввод имени функции с указанием ее параметров.<br> Declare Function mciSendString Lib "winmm.dll" _<br> Alias "mciSendStringA" (ByVal IpstrCommand As String_<br> ByVal IpstrReturnString As String, ByVal uReturnLenght_ As Long, ByVal hwndCallback As Long) As Long<br> Примечание<br> Очень длинную строку, содержащую объявление, обычно разбивают на несколько строк меньшей длины, каждая из которых заканчивается символом "_" (символ подчеркивания). Но можно этого и не делать.<br> API-функция mciSendString()<br> является частью библиотеки Winmm, расположенной в файле Winmm.dll в подпапке System папки Windows Суффикс А — это наследство, доставшееся от старых версий API, в которых сосуществовали 16- и 32-х разрядные функции. В Windows 95/98 необходимо использовать 32-разрядные функции.<br> Почти для всех API-функций необходимо передавать параметры по значению. Только те параметры, которые изменяются самой функцией, необходимо передавать по ссылке. По умолчанию, Visual Basic передает аргументы по ссылке, поэтому для передачи аргументов по значению необходимо использовать ключевое слово ByVal.<br> Использование приложения API Viewer<br> Предполагается, что пользователю нет необходимости запоминать параметры каждой функции и даже их имена - он может обратиться к справочной системе. Получить доступ к ней можно непосредственно из IDE-среды — окно API Viewer приведено на рис. 13.1.<br> Используя это приложение, можно вставить в VB-программу любую функцию. Для этого необходимо выполнить следующие действия.<br> <br> <b>1</b>. Выберите команду API-Viewer в меню Add-Ins. Если в меню Add-Ins (Надстройки) нет пункта API Viewer, необходимо открыть диалоговое окно Add-Ins Manager (Диспетчер надстроек) и выполнить правый щелчок на элементе Visual Basic 6 API Viewer, чтобы добавить данный пункт в меню Add-Ins.<br><br> <div style="text-align:center;"><img src="image/obrashhenie-k-api-funkcijam-iz_1.gif" alt="Обращение к API-функциям из"></div><br><br> <b>Рис 13.1.</b> Окно приложения API Viewer<br><br> <b>2</b>. В диалоговом окне API Viewer в меню File (Файл) выберите команду Load Text File (Загрузить текстовый файл) или Load Database File (Загрузить файл базы данных) Загрузка файла базы данных выполняется быстрее, но лишь в том случае если при этом не происходит преобразование текстового файла в файл базы данных<br><br> <b>3</b>. В окне списка Available Items (Доступные объекты) выберите требуемую функцию и щелкните на кнопке Add (Добавить). API-Viewer отобразит выбранную функцию (функции) в окне списка Selected Items (Выделенные объекты)<br><br> <b>4</b>. Выберите функции, которые необходимо вставить в прикладную программу, а затем щелкните на кнопке Сору (Копировать) для копирования объявления функций в Clipboard (Буфер обмена)<br><br> <b>5</b>. Откройте окно Code (Исходный код) вашего приложения и вставьте объявления функций<br><br> Совет<br><br> Пакет Win32 Software Development Kit содержит полное описание каждой функции, включая все структуры и сообщения. Microsoft Developer Network (MSDN) предоставляет все необходимое для разработки Windows-приложений. Для получения подробной информации о MSDN посетите сайт <br><br> http.//www.microsoft.com/msdn.<br><br> Большинство API-функций требует большого числа параметров, причем некоторые из них имеют сложный тип. Типы параметров API функции пере числены ниже.<br><br><br> <h1>Обращение к классу</h1> EventTimer из других проектов<br> Для использования класса в другом проекте сначала нужно добавить ссылку на этот класс. Имеется в виду то, что нужно сделать компонент доступным для системы, зарегистрировав его, как описано в предыдущем параграфе. Если DLL- или ЕХЕ-файл компонента был создан и уже зарегистрирован в системе, то любой проект или другое приложение системы могут использовать его. Чтобы добавить класс EventTimer в проект, выполните следующие действия.<br> <b>1</b>. Откройте новый проект, затем меню Project и выберите команду References, чтобы открыть диалоговое окно References (Ссылки). Это окно содержит все объекты, на которые можно ссылаться в данном проекте.<br> <b>2</b>. Выберите элемент EventTimer (объекты упорядочены по имени их проектов, а не по имени классов) и нажмите ОК. После того как класс был добавлен в проект, можно посмотреть его интерфейс с помощью Object Browser.<br> <b>3</b>. Из меню View выберите команду Object Browser, чтобы открыть окно, показанное на рис. 156. В верхнем раскрывающемся списке выберите необходимую ссылку.<br> <div style="text-align:center;"><img src="image/obrashhenie-k-klassu_1.gif" alt="Обращение к классу"></div><br> <b>Рис. 15.6.</b> Просмотр членов класса EventTimer с помощью Object Browser<br> <b>4</b>. Проект EventTimer предоставляет один класс EventTimerClass, имя которого появилось в окне Classes. В окне Members можно увидеть свойства, методы и события этого класса.<br> Если выбрать мышью свойство ElapsedTime в окне Members, то на нижней панели окна Object Browser появится его описание. Это свойство объекта EventTimer EventTimerClass и оно доступно только для чтения потому что класс содержит только процедуру Property Get этого свойства. Другими членами выступают методы и события класса. Разработчик возможно догадается что делает класс, просто посмотрев на члены которые он предоставляет<br><br> <br><br> <h1>Общие методы элемента управления</h1> OLE Container<br> Чтобы управлять встроенными или связанными объектами, в элементе управления OLE Container, в дополнение к уже упомянутым, предусмотрены следующие методы.<br> <b>CreateEmbed</b><br> С помощью этого метода создается встроенный объект. Синтаксис метода имеет вид:<br> CreateEmbed sourcedoc, class<br> Параметр<br> sourcedoc — имя файла документа, используемого в качестве шаблона для встроенного объекта. Чтобы создать новый встроенный документ, в качестве параметра sourcedoc<br> указывается строка нулевой длины ("").<br> Параметр<br> class — необязательный параметр, определяющий имя класса встроенного объекта. Этот параметр требуется только в том случае, если параметр sourcedoc опущен. Чтобы найти зарегистрированные классы, выберите свойство Class (Класс) в окне Properties (Свойства) элемента управления OLE Container и щелкните на кнопке с многоточием.<br> <b>CreateLink</b><br> Этот метод позволяет создать связанный объект из содержимого файла. Синтаксис метода CreateLink:<br> CreateLink sourcedoc, sourceitem<br> Параметр<br> sourcedoc — это файл, из которого будет создан объект, а параметр sourceitem —<br> данные внутри файла, которые должны быть в связанном объекте. Например, чтобы связать содержимое элемента управления OLE Container с блоком ячеек рабочего листа Excel, следует задать файл с помощью параметра sourcedoc, a диапазон связанных ячеек - с помощью параметра sourceitem. Параметр sourceitem может указывать на одиночную ячейку (например, R10C12) или на блок ячеек (например, R1C1:R10C20). Можно также задать именованный блок.<br> После того как связанный документ создан, значение свойства Sourceitem устанавливается в строку нулевой длины, а его первоначальное значение присоединяется к свойству SourceDoc. Например:<br> "c:\data\revenus\revl997.xls|RCl:R20C25 "<br> Самый простой способ определения синтаксиса этих двух команд - это выбрать связываемый объект, а затем при проектировании вставить его с помощью команды Paste Special в элемент управления OLE Container. После того как объект будет связан, просмотрите значение свойства SourceDoc и используйте его в собственной программе.<br> <br> <b>DoVerb verb</b><br><br> Метод DoVerb выполняет команды ( являющиеся глаголами, например, Edit, Play и т. п.). Объекту известно, как выполнять заданное действие. Синтаксис метода:<br><br> DoVerb verb <br><br> Значения необязательного параметра verb перечислены в табл. 14.3.<br><br> <b>Таблица 14.3.</b> Значения параметра verb<br><br><table border=1> <tr> <td> Константа<br><br> </td> <td> Значение<br><br> </td> <td> Описание<br><br> </td> </tr> <tr> <td> VbOLEPrimary<br><br> </td> <td> 0<br><br> </td> <td> Действие для объекта, заданное по умолчанию<br><br> </td> </tr> <tr> <td> vbOLEShow<br><br> </td> <td> -1<br><br> </td> <td> Открывает объект для редактирования. <br><br> Активизирует приложение, создавшее документ, в окне OLE Container<br><br> </td> </tr> <tr> <td> VbOLEOpen<br><br> </td> <td> -2<br><br> </td> <td> Открывает объект для редактирования <br><br> Активизирует приложение, создавшее документ, в отдельном окне<br><br> </td> </tr> <tr> <td> vbOLEHide<br><br> </td> <td> -3<br><br> </td> <td> Для встроенных объектов позволяет скрыть приложение, создавшее объект<br><br> </td> </tr> <tr> <td> vbOLEUIActivate<br><br> </td> <td> -4<br><br> </td> <td> Активизирует объект для оперативного редактирования и позволяет отобразить любые инструментальные средства пользовательского интерфейса. Если объект не поддерживает оперативное редактирование, то появляется сообщение об ошибке<br><br> </td> </tr> <tr> <td> VbOLEInPlaceActivate<br><br> </td> <td> -5<br><br> </td> <td> Когда пользователь перемещает фокус в окно элемента управления<br><br> OLE Container, то с помощью этой операции можно создать окно для объекта и подготовить объект, который нужно отредактировать<br><br> </td> </tr> <tr> <td> vbOLEDiscardUndoState<br><br> </td> <td> -6<br><br> </td> <td> Когда объект активизирован для редактирования, этот метод позволяет отбросить все изменения, которые приложение, создавшее объект, может отменить<br><br> </td> </tr> </table> <b>InsertObjDIg</b><br><br> Этот метод позволяет отобразить диалоговое окно Insert Object (Вставка объекта). Установки пользователя, выполненные в этом окне, передаются приложению с помощью значений свойств элемента управления OLE Container.<br><br> <b>PasteSpecialDIg</b><br><br> Этот метод позволяет отобразить диалоговое окно Paste Special (Специальная вставка). Установки пользователя, выполненные в этом окне, передаются приложению с помощью значений свойств элемента управления OLE Container.<br><br> Object Browser позволяет выяснить, какие встроенные константы используются в различных методах и свойствах элемента управления OLE Container.<br><br> <br> <b>1</b>. Выберите команду Object Browser (Просмотр объекта) в меню View (Вид).<br><br> <b>2</b>. Выберите библиотеку объектов Visual Basic, а в нем объект Constant, чтобы отобразить названия констант в списке Method/Properties (Метод/Свойства).<br><br> Если немного поэкспериментировать с методами OLE и элементом управления OLE Container, то можно сделать вывод: в пограничных ситуациях OLE далека от совершенства. У пользователя нет возможности полностью контролировать внешний вид встроенного или связанного объекта, а иногда и панель приложения-сервера остается невидимой. Несмотря на то, что работа над OLE идет уже несколько лет, нельзя считать ее завершенной.<br><br> Существует не так уж много созданных в Visual Basic приложений, которые выполняют связывание и встраивание документов, предоставленных приложениями-серверами. Однако другой аспект OLE — OLE-автоматизация — вполне совершенна и является наиболее мощным средством основных Windows-приложений, например, Microsoft Office. Автоматизация OLE рассматривается во второй части главы, а сейчас мы кратко рассмотрим операции перетащить-и-опустить, применяемые в OLE.<br><br><br> <h1>Общие свойства элемента управления</h1> OLE Container<br> В этом параграфе рассмотрены свойства и методы, которые используются при работе с документами, встраиваемыми или связываемыми во время выполнения программы. Эти свойства можно установить в среде Visual Basic при разработке приложения методами, описанными ранее.<br> <b>Class</b><br> Это свойство определяет тип объекта, хранящегося в элементе OLE Container. Если запустить приложение OLERTime, то, выбирая объекты различных типов, зарегистрированных в системе, и щелкая затем на кнопке Object Info, можно посмотреть значения свойства Class.<br> <b>DispIayType</b><br> Это свойство указывает, отображается объект с содержимым (значение свойства 0) или только значок OLE-сервера (1).<br> <b>• vbOLEDisplayContent</b><br> (0) — отобразить объект с содержимым;<br> <b>•  vbOLEDisplayIcon</b><br> (1) — отобразить объект в виде значка.<br> <b>OLETypeAllowed</b><br> Значение этого свойства обуславливает тип создаваемого объекта:<br> • 0 — связанный;<br> •  1 — встроенный;<br> • 2 — любой.<br> Тип объекта определяется в диалоговом окне Insert Object. Соответствующие константы приведены ниже:<br> <b>•  vbOLELinked</b><br> (0) - объект можно связать;<br> <b>• vbOLEEmbedded</b> (1) — объект можно встроить;<br> <b>• vbOLEEither</b> (2) — объект можно связать или встроить.<br> <b>OLEDropAllowed</b><br> Если значение этого свойства - True, то во время выполнения приложения можно поместить объект в элемент управления OLE Container, перетаскивая его<br> мышью. К аналогичным результатам приводит копирование объекта в буфер обмена и последующий вызов приложением метода Paste Special для элемента OLE Container.<br> <b>SizeMode</b><br> Значение этого свойства определяет, как будет отображаться объект — в виде значка или реального документа в окне элемента управления<br> OLE Container. Свойство может принимать следующие значения.<br> <b>• vbOLESizeClip (0).</b><br> Это значение установлено по умолчанию. Размеры изображения объекта равны размерам исходного документа. Если размеры объекта больше, чем размеры окна элемента управления OLE Container, то часть изображения отсекается.<br> <b>•  vbOLESizeStretch<br> (1).</b> Размер изображения объекта изменяется так, чтобы заполнить все окно элемента управления OLE Container. При этом первоначальные пропорции объекта могут измениться.<br> <br> <b>•  vbOLESizeAutosize<br><br> (2).</b> Размеры окна элемента управления OLE Container изменяются таким образом, чтобы отобразить весь объект<br><br> <b>• vbOLESizeZoom (3).</b> Размеры объекта изменяются так, чтобы объект занял как можно большую часть окна элемента управления OLE Container, а изображение при этом не исказилось.<br><br> <b>SourceDoc</b><br><br> При связывании объекта значение этого свойства определяет файл-источник. Когда вы внедряете объект, это свойство определяет, какой файл будет использован в качестве шаблона.<br><br> <b>Sourceltem</b><br><br> Этим свойством обладают только связанные объекты. Его значение определяет связываемые данные, находящиеся внутри файла. Например, если выполняется связывание с блоком ячеек рабочего листа Excel, то значение свойства Sourceltem - это диапазон ячеек, которые будут связаны.<br><br> <b>OLEType</b><br><br> При выполнении программы это свойство доступно только для чтения. Оно возвращает статус объекта: 0 — для связанных объектов, 1 — для встроенных объектов, и 2 —объект не был вставлен. Соответствующие константы приведены ниже.<br><br> <b>• vbOLELinked (0).</b><br><br> Объект связывается с элементом управления OLE.<br><br> <b>• vbOLEEmbedded (1).</b><br><br> Объект встраивается в элемент управления OLE.<br><br> <b>• vbOLENone</b> (2). Элемент управления OLE Container не содержит объектов.<br><br> <b>AutoActivate</b><br><br> Значение этого свойства определяет, будет содержимое элемента управления OLE Container активизировано двойным щелчком или перемещением фокуса в его окно Свойство AutoActivate может принимать следующие значения.<br><br> <b>•  vbOLEActivaleManual<br><br> (0).</b> Объект не активизируется автоматически. Для его активизации необходимо использовать метод DoVerb.<br><br> <b>• vbOLEActivateGetFocus<br><br> (1).</b> Объект активизируется для редактирования при каждом попадании фокуса в окно элемента управления OLE Container.<br><br> <b>• vbOLEActivateDoubleclick<br><br> (2).</b> Значение по умолчанию. Объект в окне элемента управления OLE Container активизируется при выполнении на нем двойного щелчка.<br><br> <b>•  vbOLEActivateAuto<br><br> (3).</b> Объект активизируется, когда элемент управления получает фокус либо на объекте выполняется двойной щелчок.<br><br><br> <h1>Определение индексов с помощью</h1> Visual Data Manager<br> Visual Data Manager можно также использовать для организации индексов внутри базы данных. В нижней части окна базы данных находится список текущих индексов базы. Щелкните на кнопке Add Index, чтобы открыть диалоговое окно Add Index To (рис. 17.9). Опции диалогового окна Add Index To (Добавить индекс к) перечислены в табл. 17.6.<br> Примечание<br> Null является специальным значением (см. гл. 3). Поле пустое, если оно не было инициализировано (другими словами, если оно ничего не содержит). В общем случае проверяйте значения поля на равенство Null перед его использованием в операциях.<br> <div style="text-align:center;"><img src="image/opredelenie-indeksov-s-pomoshhju_1.gif" alt="Определение индексов с помощью"></div><br> <b>Рис. 17.9.</b> Диалоговое окно Add Index To<br> <b>Таблица 17.6.</b> Опции диалогового окна Add Index To<br><table border=1><br> <tr> <td>Опция<br> <td> <td>Описание<br> <td> </tr> <tr> <td>Name<br> <td> <td>Имя индекса. Вы можете использовать имя индекса только при программировании наборов записей типа Table. В SQL-запросах технология Rush-More (Делай быстрее) автоматически использует индексную информацию для оптимизации запросов<br> <td> </tr> <tr> <td>Indexed Fields<br> <td> <td>Список полей, по которым проиндексирована таблица. Поля разделены точками с запятой<br> <td> </tr> <tr> <td>Available Fields<br> <td> <td>Окно списка доступных полей щелчок кнопкой мыши на одном из полей добавит его в список индексных полей<br> <td> </tr> <tr> <td>Primary<br> <td> <td>Выберите эту опцию, если поле индекса рассматривается как первичный ключ для таблицы<br> <td> </tr> <tr> <td>Unique<br> <td> <td>Выберите эту опцию, если необходимо использовать уникальные значения для поля. Если вы индексируете таблицу Customers (Заказчики) по полю имени заказчика, то индекс может не быть уникальным. Возможно совпадение имен нескольких заказчиков Индекс, основанный на ID заказчика, уникален. Два заказчика не могут иметь один ключ, даже если имеют одно имя<br> <td> </tr> <tr> <td>IgnoreNulls<br> <td> <td>Это свойство указывает, может ли какое-нибудь из полей, используемых в индексе, содержать значение Null. Если это свойство установлено в False, а свойство Required - в True, a соответствующее поле содержит значение Null, то генерируется ошибка выполнения программы<br> <td> </tr> </table><br><br> <br><br> <h1>Определение размеров свободного пространства на диске</h1> В этом разделе описаны функции для определения типа диска и свободного пространства на нем, а также для поиска каталога<br> Windows и определения текущего каталога. Перечислим их.<br> •  GetDriveType()<br> •  GetDiskFreeSpace()<br> •  GetWindowsDirectory()<br> •  GetCurrentDirectory()<br> Эти функции предоставляют дополнительные возможности, которых нет в Visual Basic. Например, вы можете определить, есть ли свободное пространства на диске и является ли данное устройство приводом CD-ROM.<br> <b>Функция GetDriveTypeQ</b><br> Эта функция позволяет определить тип дисковода. <br> Объявляется она следующим образом<br> Private Declare Function GetDriveType Lib "kernel32" Alias _ <br> "GetDriveTypeA" (ByVal nDrive As String) As Long<br> Вы передаете функции имя диска, который необходимо проверить с помощью параметра nDrive, и функция возвращает значение типа Long, которое указывает тип диска. В табл. 13.2 приведены типы устройств и их описания<br> <b>Таблица 13.2.</b> Описание типов устройств<br><table border=1><br> <tr> <td>Значение<br> <td> <td>Описание<br> <td> </tr> <tr> <td>0 <br> 1 <br> DRIVEREMOVABLE <br> DRIVEFIXED <br> DRIVEREMOTE <br> DRIVECDROM <br> DRIVERAMDISK<br> <td> <td>Тип диска определить невозможно<br> Данный каталог не является корневым <br> Сменное устройство, например ZIP-накопитель <br> Несменное устройство, например жесткий диск С <br> Устройство удаленного доступа, например сетевой диск <br> CD-ROM-устройство <br> RAM-диск<br> <td> </tr> </table><br> VB6 в действии: проект Drives<br> Приложение Drives (рис 13.2) обеспечивает вывод на экран окна, содержащего информацию о выбранном диске (тип и свободный объем памяти), о текущей папке и о папке Windows системы. Каждый раз, когда пользователь выбирает другое устройство, информация в окне формы изменяется. В приложении Drives используются три API-функции: GetDiskFreeSpace(), GetCurrentDirectory() и GetWindowsDirectory()<br> <div style="text-align:center;"><img src="image/opredelenie-razmerov-svobodnogo-prostranstva-na_1.gif" alt="Определение размеров свободного пространства на диске"></div><br> <b>Рис. 13.2.</b> Приложение Drives<br> <b>Функция GetDiskFreeSpace()</b><br> Эта функция позволяет получить разнообразную информацию, касающуюся диска, включая количество свободного пространства. Функция возвращает также количество секторов на кластер, байтов на сектор, количество свободных кластеров на диске и общее количество кластеров. Функция<br> <br> GetDiskFreeSpace() не предоставляет информацию о свободном дисковом пространстве, но его величина может быть вычислена на основании данных о количестве байтов на сектор, секторов на кластер и свободных кластеров Функция объявляется следующим образом:<br><br> Private Declare Function GetDiskFreeSpace Lib "kernel32" _<br><br> Alias "GetDiskFreeSpaceA" (ByVal IpRootPathName As<br><br> _ <br><br> String, IpSectorsPerCluster As Long, IpBytesPerSector_<br><br> As Long, IpNumberOfFreeClusters As Long _<br><br> IpTotalNumberOfClusters As Long) As Long<br><br> Назначение параметров этой функции понятны и соответствуют их (значимым) именам.<br><br> Чтобы определить размеры свободного пространства на диске С, используются следующие операторы:<br><br> retValue<br><br> - GetDiskFreeSpace("с:\” Sectors, Bytes,_<br><br> freeClusters, totalClusters) <br><br> FreeSpace = Sectors * Bytes *<br><br> freeClusters<br><br> Общий объем свободного пространства равен произведению количества свободных кластеров, секторов на кластер и байтов на сектор.<br><br> <b>Функция GetCurrentDirectory()</b><br><br> Эту функцию следует применять в случаях, когда необходимо определить текущий каталог, из которого была запущена программа. Данная функция аналогична свойству Арр. Path Visual Basic, и принимает два параметра, один из которых — длина буфера, а второй — указатель на строковую переменную (буфер), в которой будет сохранен путь к текущему каталогу. Функция должна объявляется следующим образом:<br><br> Private Declare Function GetCurrentDirectory Lib<br><br> "kernel32" <br><br> Alias "GetCurrentDirectoryA" (ByVal nBufferLength<br><br> _ <br><br> As Long, ByVal IpBuffer As String) As Long<br><br> После вызова функции параметр lpBuffer содержит текущий путь<br><br> <b>Функция GetWindowsDirectory()</b><br><br> Эта функция позволяет узнать, в какую папку на жестком диске инсталлирована Windows. Эта информация нужна для дополнительной инсталляции файлов инициализации или справки в каталог Windows. Параметры этой функции идентичны параметрам GetCurrentDirectory(). Ее объявление имеет вид:<br><br> Private Declare Function GetWindowsDirectory Lib "kernel32" _<br><br> <br> Alias "GetWindowsDirectoryA" (ByVal IpBuffer As _<br><br> String, ByVal nSize As Long) As Long<br><br> Полный текст программы Drives приведен ниже.<br><br> Программа 13.3.<b> Проект Drives</b><br><br> Option Explicit<br><br> Private Declare Function GetDriveType Lib "kernel32" _<br><br> Alias "GetDriveTypeA" (ByVal nDrive As String) As Long <br><br> Private Declare Function GetDiskFreeSpace Lib "kernel32" _<br><br> Alias "GetDiskFreeSpaceA" (ByVal IpRootPathName _<br><br> As String, IpSectorsPerCluster As Long,_ <br><br> IpBytesPerSector As Long, _<br><br> IpNumberOfFreeClusters As Long, _<br><br> IpTotalNumberOfClusters As Long) As Long <br><br> Private Declare Function GetCurrentDirectory Lib "kernel32" _<br><br> Alias "GetCurrentDirectoryA" (ByVal nBufferLength _<br><br> As Long, ByVal IpBuffer As String) As Long <br><br> Private Declare Function GetWindowsDirectory Lib "kernel32"<br><br> Alias "GetWindowsDirectoryA" (ByVal IpBuffer As String,_<br><br> ByVal nSize As Long) As Long <br><br> Const DRIVE_CDROM = 5 <br><br> Const DRIVE_FIXED = 3 <br><br> Const DRIVE_RAMDISK = 6 <br><br> Const DRIVE_REMOTE = 4 <br><br> Const DRIVE_REMOVABLE = 2<br><br> Private Sub Commandl_Click()<br><br> End <br><br> End Sub<br><br> Private Sub Drivel_Change()<br><br> Dim driveType As Long<br><br> Dim freeSpace As Long, Sectors As Long<br><br> Dim Bytes As Long<br><br> Dim freeClusters As Long, totalClusters As Long<br><br> Dim retValue As Long<br><br> Dim buffer As String * 255<br><br> Dim DName As String<br><br> Screen.MousePointer = vbHourglass <br><br> DoEvents<br><br> DName = Left(Drivel.Drive, 2) & "\" <br><br> driveType = GetDriveType(DName) <br><br> Select Case driveType <br><br> Case 0<br><br> Label5.Caption = "UNDETERMINED" Case DRIVE_REMOVABLE<br><br> Label5.Caption = "REMOVABLE" <br><br> Case DRIVE_FIXED<br><br> Label5.Caption = "FIXED" <br><br> Case DRIVE_REMOTE<br><br> Label5.Caption = "REMOTE"<br><br> Case DRIVE_CDROM<br><br>      Label5 Caption - "CDROM" <br><br> Case DRIVE_RAMDISK<br><br> Label5 Caption - "RAMDISK" <br><br> End Select<br><br> ‘Вычисляем свободное пространство на диске <br><br> retValue   GetDiskFreeSpace(DName, Sectors, Bytes,_<br><br> freeClusters, totalClusters) <br><br> Label6 Caption = Sectors * Bytes * freeClusters<br><br> <br> ‘Определяем путь к текущему каталогу <br><br> retValue = GetCurrentDirectory(255, buffer) <br><br> Label7 Caption = buffer<br><br> ‘Определяем путь к каталогу Windows <br><br> retValue =<br><br> GetWindowsDirectory(buffer, 255) <br><br> Label8 Caption = buffer <br><br> Screen MousePointer<br><br> = vbDefault <br><br> DoEvents <br><br> Debug <br><br> Print App = Path <br><br> End Sub<br><br> Private Sub Form_Load()<br><br> Drivel_Change <br><br> End Sub<br><br> Прочие файловые функции<br><br> Иногда пользователю требуется информация о файле, например, о его размещении, атрибутах или размере. Приложение Filelnfo (рис. 13.3) на компакт-диске демонстрирует возможности получения информации о файле с помощью API-функций.<br><br> <div style="text-align:center;"><img src="image/opredelenie-razmerov-svobodnogo-prostranstva-na_2.gif" alt="Определение размеров свободного пространства на диске"></div><br><br> <b>Рис. 13.3.</b> Приложение Filelnfo<br><br> VB6 в действии: проект Filelnfo<br><br> Приложение Filelnfo использует следующие функции:<br><br> •  GetFullPathName()<br><br> •  GetFileAttnbutes()<br><br> •   GetFileSize()<br><br> Рассмотрим их подробнее.<br><br> <b>GetFullPathName().</b> Функция возвращает полный путь к файлу. Объявляется она следующим образом:<br><br> Private Declare Function GetFullPathName Lib "kernel32" _<br><br> Alias "GetFullPathNameA" (ByVal IpFileName As String, _ <br><br> ByVal nBufferLength As Long, ByVal IpBuffer As String, _ <br><br> ByVal IpFilePart As String) As Long<br><br> В приложении Filelnfo эта функция используется для получения пути к файлу, указанному пользователем в стандартном диалоговом окне File Open (Открыть файл) <br><br> В качестве параметра функции передается имя файла, путь к которому необходимо определить, а функция возвращает путь в переменной filePath.<br><br> <b>GetFileAttributes().</b><br><br> Функция возвращает длинное целое значение, указывающее на состояние файла только для чтения, скрытый или нормальный. Она аналогична функции GetFileAttributes() в Visual Basic. Объявляется следующим образом:<br><br> Private Declare Function GetFileAttributes Lib "kernel32"<br><br> Alias<br><br> "GetFileAttributesA" (ByVal IpFileName As String) As Long<br><br> В табл. 13.3 приведены значения атрибутов файла. Использование этих функции продемонстрировано в программе Filelnfo.<br><br> <b>Таблица 13.3.</b> Атрибуты файлов<br><br><table border=1> <tr> <td> Значение<br><br> </td> <td> Описание<br><br> </td> </tr> <tr> <td> FILE_ATTRIBUTE_ ARCHIVE<br><br> </td> <td> Архивный файл<br><br> </td> </tr> <tr> <td> FILE_ATTRIBUTE_ COMPRESSED<br><br> </td> <td> Сжатый файл<br><br> </td> </tr> <tr> <td> FILE_ ATTRIBUTE_ DIRECTORY<br><br> </td> <td> Имя каталога<br><br> </td> </tr> <tr> <td> FILE_ATTRIBUTE_ HIDDEN<br><br> </td> <td> Файл или каталог является скрытым: при обычном выводе на экран его не видно<br><br> </td> </tr> <tr> <td> FILE_ATTRIBUTE_ NORMAL<br><br> </td> <td> Файл не имеет атрибутов<br><br> </td> </tr> <tr> <td> FILE_ATTRIBUTE_ READONLY<br><br> </td> <td> Файл предназначен только для чтения<br><br> </td> </tr> <tr> <td> FILE_ ATTRIBUTE_ SYSTEM<br><br> </td> <td> Файл является частью операционной системы<br><br> </td> </tr> </table>< <br><br> <br> <b>GetFileSize().</b><br><br> Чтобы определить размер файла, следует открыть его с помощью функции CreateFile(), использовав в ней параметр OPEN_EXITING (чтобы проверить, что открываемый файл существует). После этого можно воспользоваться функцией GetFileSize(), чтобы получить размер файла в байтах. Естественно, после выполнения операции файл необходимо закрыть с помощью функции CloseHandle().<br><br> Приведем исходный текст программы Filelnfo.<br><br> <b>Программа 13.4.</b> Проект Filelnfo<br><br> Option Explicit<br><br> Private Declare Function GetFileAttributes Lib "kernel32"_<br><br> Alias "GetFileAttributesA" (ByVal IpFileName As String) As     Long <br><br> Private Declare Function GetFullPathName Lib "kernel32" _<br><br> Alias "GetFullPathNameA" (ByVal IpFileName As String, _<br><br> ByVal nBufferLength As Long, ByVal IpBuffer As String,_<br><br> ByVal IpFilePart As String) As Long <br><br> Private Declare Function CreateFile Lib "kernel32" Alias _<br><br> "CreateFileA" (ByVal IpFileName As String, _<br><br> ByVal dwDesiredAccess As Long, ByVal dwShareMode As Long, _<br><br> ByVal IpSecurityAttributes As Any, _<br><br> ByVal dwCreationDisposition As Long, _<br><br> ByVal dwFlagsAndAttributes As Long, _<br><br> ByVal hTemplateFile As Long) As Long <br><br> Private Declare Function GetFileSize Lib "kernel32"<br><br> (ByVal hFile As Long, IpFileSizeHigh As Long) As Long <br><br> Private Declare Function CioseHandle Lib "kernel32" _<br><br> (ByVal h0b]ect As Long) As Long<br><br> Const FILE_ATTRIBUTE_ARCHIVE = &H20 <br><br> Const FILE_ATTRIBUTE_COMPRESSED =<br><br> &H800<br><br> Const FILE_ATTRIBUTE_DIRECTORY =<br><br> &H10<br><br> Const FILE_ATTRIBUTE_HIDDEN =<br><br> &H2<br><br> Const FILE_ATTRIBUTE_NORMAL =<br><br> &H80<br><br> Const FILE_ATTRIBUTE_READONLY =<br><br> &H1<br><br> Const FILE_ATTRIBUTE_SYSTFM &H4<br><br> Const GENERIC_READ =<br><br> &H80000000<br><br> Const OPEN_EXISTING =<br><br> 3<br><br> Const GENERIC_WRITE = &H40000000<br><br> Private Sub Commandl_Click()<br><br> Dim retValue As Long<br><br> Dim filePath As String * 255<br><br> Dim attrFlag As Long, attrStr As String<br><br> Dim fileName As String, filePointer As Long<br><br> Dim fileSize As Long<br><br> <br> CommonDialogI.ShowOpen <br><br> If CommonDialogI fileName<b> <> ""</b> Then fileName = _<br><br> CommonDialogI fileName <br><br> ‘Определение пути к файлу<br><br> retValue = GetFullPathName(fileName, 255, filePath, 0)<br><br> Label5 Caption – filePath<br><br> ‘Определение атрибутов файла <br><br> attrFlag = GetFileAttributes(fileName)<br><br> If (attrFlag And FILE_ATTRIBUTE_ARCHIVE) Then<br><br> _<br><br> attrStr =<br><br> "Archive"<br><br> If ( attrFlag And FILE_ATTRIBUTE_COMPRESSED) Then _<br><br>                      attrStr = attrStr & "Compressed" <br><br> If (attrFlag And FILE_ATTRIBUTE_DIRECTORY) Then _<br><br>             attrStr = attrStr & "Directory" <br><br> If (attrFlag And FILE_ATTRIBUTE_HIDDEN) Then _<br><br> attrStr = attrStr & "Hidden" <br><br> If (attrFlag And FILE_ATTRIBUTE_NORMAL) Then _<br><br> attrStr = attrStr & "Normal" <br><br> If (attrFlag And FILE_ATTRIBUTE_READONLY) Then _<br><br> attrStr = attrStr & "Read-Only" <br><br> If (attrFlag And FILE_ATTRIBUTE_SYSTEM) Then _<br><br> attrStr = attrStr & "System" <br><br> Label6.Caption = attrStr<br><br> ‘ Определение размера файла <br><br> filePointer = CreateFile(fileName, GENERIC_READ Or _<br><br> GENERIC_WRITE, 0&, 0&, OPEN_EXISTING, _ FILE_ATTRIBUTE_NORMAL, 0&) <br><br> fileSize = GetFileSize(filePointer, 0&) <br><br> Label7.Caption = fileSize <br><br> CloseHandle (filePointer) <br><br> End Sub<br><br><br> <h1>Основные понятия</h1> Прежде чем приводить примеры использования определенных API-функций, ознакомимся с некоторыми основными понятиями. Win32 API состоит из функций, структур и сообщений, позволяющих создавать приложения для Windows 95/98 и Windows NT.<br> API-функции Windows можно разделить на следующие функциональные группы:<br> • Windows Management (Управление Windows);<br> •  Graphic Device Interface - GDI (Интерфейс графических устройств);<br> •  System Services (Kernel) (Системные ресурсы (Ядро системы));<br> •  Multimedia (MMSystem) (Средства мультимедиа).<br> Функции, входящие в состав этих элементов, организованы в виде DLL-библиотек (Dynamic Link Libraries - библиотеки динамической компоновки), и для получения доступа к ним можно воспользоваться любым языком программирования. DLL загружается только на время выполнения программы, поэтому нет необходимости включать ее в приложение на этапе компоновки. Поскольку API-функции используются также и Windows, DLL-библитотеки всегда доступны вашим приложениям.<br> Функции группы Windows Management (Управление Windows) —<br> это функции, необходимые для создания и управления приложениями. Все операции ввода и вывода, выполняемые системой, используют эти API-функции, включая ввод с клавиатуры и работу с мышью, а также обработку сообщений, получаемых пользовательским приложением. Эти функции позволяют приложениям организовать более эффективную обработку событий мыши по сравнению с возможностями, предоставляемыми Visual Basic.<br> Graphic Device Interface (Интерфейс графических устройств) предоставляет функции, использующиеся для организации управления всеми графическими устройствами, поддерживаемыми системой, включая монитор и принтер. Кроме того, они позволяют задавать шрифты, перья и кисти. GDI также поддерживает операции вывода линий и окружностей, а также операции побитовой обработки изображений с помощью функции BitBlt(). (Подробнее с операциями обработки битов изображения можно познакомиться в гл. 7 "Цвет и пиксели в Visual Basic").<br> Функции группы System Services (Системные ресурсы) используются для получения доступа к ресурсам компьютера и операционной системы. Мы рассмотрим, как можно использовать эти функции для определения доступности некоторых ресурсов системы во время работы приложения.<br> Функции из группы Multimedia (Средства мультимедиа) позволяют воспроизводить звук, MIDI-музыку и цифровое видео. Для этого следует воспользоваться MCI-командами и интерфейсом MCI-сообщений, которые подробно рассматриваются в Приложении В "Using Multimedia Elements to Enhance Applications"<br> ("Использование элементов мультимедиа для расширения приложений") на компакт-диске.<br><br> <br><br> <h1>Основные теги</h1> HTML<br> Независимо от того, что вы собираетесь делать в Web, некоторые основные понятия HTML необходимо усвоить. Программисту на Visual Basic изучить и использовать HTML достаточно просто. В этой главе приведена информация по HTML, необходимая для создания функционирующих Web-страниц. Опишем теги, сгруппированные по категориям, для создания простых HTML-документов.<br> <b>Заголовки</b><br> Заголовки разделяют части документа. Подобно документам, подготовленным текстовым процессором, HTML-документы могут иметь заголовки, вставляемые тегом <Нn>. Существует шесть уровней заголовков от <Н1> (наивысший) до <Н6> (самый низкий). Для размещения в начале документа заголовка первого уровня используется тег <Н1>.<br> <H1>Welcome to Our Fabulous Site</H1><br> К этой же группе относится тег <HR>, который отображает горизонтальную линию и используется для разделения частей документа. Документ, изображенный на рис. 19.2 и демонстрирующий использование HTML-тегов, сгенерирован следующим HTML-файлом.<br> <HTML><br> <head> <link rel="canonical" href="https://www.e-lave.ru//index.htm"/><br> <TITLE><br> Document title<br> </TITLE> <br> </HEAD> <br> <BODY><br> <Hl>Sample HTML Document</Hl> <br> <HR><br> <H3>The Document body may contain:</H3> <br> <H4>Text, images, sounds and HTML commands<H4><br> </BODY> <br> </HTML><br> <div style="text-align:center;"><img src="image/index-image128.gif" alt="Основные теги"></div><br> <b>Рис. 19.2.</b> Простой HTML-документ с заголовками и линией<br> <b>Форматирование абзаца</b><br> HTML не разрывает строки абзаца до тех пор, пока в текстовом файле не вставить символ перехода на новую строку. Формат абзаца определяется используемыми в документе шрифтами и размером окна броузера. Чтобы начать новый абзац, нужно дать точное указание броузеру вставить символ перехода на новую строку, используя тег <Р>. Тег <Р> также заставляет броузер вставить дополнительное вертикальное пространство. Чтобы форматировать абзацы без дополнительного вертикального пространства, используется тег <BR>.<br> <b>Как протестировать HTML-теги</b><br> Хотя существуют WYSIWYG-инструменты для создания HTML-документов, простой редактор, например Notepad, также позволяет проверить несколько тегов, о которых говорилось в этой главе. Для этого создайте простой текстовый файл с описанной ранее структурой HTML-файла. Сохраните его как TEST.HTM (можно использовать любое имя, но расширение должно быть НТМ). Когда этот файл будет сохраняться впервые, выберите All Files в поле Save As Type диалогового окна Save As. Если не изменить расширение по умолчанию, то будет добавлено расширение ТХТ, и файл будет назван TEST.HTM.TXT.<br> <br> После сохранения документа переключитесь в Internet Explorer и откройте документ, выполнив команду Open меню File. Теперь можно переходить от текстового редактора в броузер и обратно, редактировать HTML-файл и сохранять его, переключаться в окно Internet Explorer и загружать обновленную версию этого файла нажатием клавиши F5.<br><br> <b>Форматирование символов</b><br><br> HTML предлагает набор тегов, предназначенных для форматирования слов и символов. В табл. 19.1 перечислены основные теги форматирования символов. Тег FONT и его аргументы описаны ниже.<br><br> <b>Таблица 19.1.</b> Основные теги форматирования символов<br><br><table border=1> <tr> <td> Тег<br><br> </td> <td> Действие<br><br> </td> </tr> <tr> <td> <В> <br><br> <I><br><br> <TT><br><br> <ЕМ> <CODE><br><br> </td> <td> Включает атрибут полужирного начертания <br><br> Включает атрибут курсивного начертания<br><br> Включает атрибут машинописного стиля, используется для распечатки листингов<br><br> Выделяет текст, идентичен тегу <I><br><br> Отображает текст шрифтом с постоянным шагом, используется для распечатки листингов<br><br> </td> </tr> </table> <b>Тег <FONT>.</b> Задает имя, размер и цвет используемого шрифта. Принимает один или более аргументов, описанных ниже.<br><br> <b>• SIZE.</b> Задает размер текста. Значение размера выражается не в точках, пикселях или других абсолютных величинах. Это число в диапазоне от 1 (наименьший шрифт) до 7 (наибольший шрифт). Следующий тег отображает текст минимального размера.<br><br> <FONT SIZE=1>tiny type</FONT> <br><br> <b>А следующий тег отображает текст максимального размера</b><br><br> <FONT SIZE=7>HUGE TYPE</FONT><br><br> <b>• FACE.</b> Задает шрифт, использующийся для отображения текста. Если заданный шрифт отсутствует на компьютере клиента, то броузер заменит его наиболее близким. Следующий тег отображает текст шрифтом Comic Sans MS<br><br> <FONT FACE = "Comic Sans MS"> Some text </FONT><br><br> Можно задать несколько шрифтов Броузер использует первый заданный шрифт. Если он недоступен, то пробует подключить следующий и т.д.<br><br> <FONT FACE = "Comic Sans MS, Arial"> Some text </FONT><br><br> Если шрифт Comic Sans MS отсутствует на клиентском компьютере, то броузер отображает текст шрифтом Arial (стандартный шрифт Windows, имеется на любой машине). Некоторые интересные шрифты используемые для оформления Web страниц (Verdana, Comic Sans MS и Tahoma), устанавливаются отдельно с Internet Explorer.<br><br><b>• COLOR.</b> Задает цвет текста шестнадцатеричным числом (#FFOOFF) либо именем Internet Explorer распознает следующие имена цветов<br><br> Aqua        Gray          Navy            Silver <br><br> Black       Green         Olive           Teal <br><br> Blue         Lime          Purple          White<br><br> Fuchsia    Maroon      Red              Yellow<br><br> Следующие строки отображают текст красным (Red) цветом.<br><br> <FONT COLOR=Red>Thi4 is red text</FONT> <br><br> <FONT COLOR= #FF0000>This is red text</FONT><br><br> Можно комбинировать несколько атрибутов в одном теге<br><br> <FONT><br><br> <FONT FACE "Arial, Sans" SIZE=5 COLOR=Red><br><br><br> <h1>Открытие базы данных</h1> Для получения доступа к базе данных NWIND из кода активной серверной страницы необходимо создать объект Connection методом Server. CteateObject.<br> Set DBConnection = Server.CreateObject("ADODB.Connection")<br> Эту переменную можно использовать для установления связи с базой данных (вызвав ее метод Open).<br> DBConnection.Open "NWINDDB"<br> Первый аргумент метода Open — имя источника данных, соответствующего открываемой базе данных. После получения из базы требуемых записей следует освободить объект Connection, вызвав его метод Close.<br> DBConnection.Close<br> Совет<br> Описанный метод предпочтительнее при работе с базами данных Microsoft Access. Если вы работаете с базами SOL Server, то переменную DBConnection следует создавать в коде обработчика события Application_OnStart. Тогда она будет доступна всем клиентам, которым необходим доступ к базе NWIND. Система управления базами данных SQL Server поддерживает многоканальный доступ, а драйвер Microsoft Access ODBC — нет. (Он создает набор подключений, из которых используется первое доступное.) Именно поэтому после завершения работы с базой данных необходимо освобождать объект Connection.<br><br> <br><br> <h1>Отображение баз данных</h1> Visual Data Manager - одно из самых простых специальных средств разработки баз данных. Эти средства позволяют исследовать и изменять структуру базы данных и, в некоторых случаях, вводить данные. Можно получить доступ к структуре базы данных из приложения с помощью ряда объектов.<br> В этом разделе разрабатывается утилита, которая отображает структуру любой базы данных. Упомянутые объекты образуют иерархию, начинающуюся с объекта Database (База данных), причем каждый элемент в базе данных представлен как уникальный объект, к которому можно обращаться как к свойству объекта Database.<br><br> <br><br> <h1>Отображение нескольких имен авторов</h1> Вы, возможно, обратили внимание на то, что данная программа отображает только имя первого автора каждого издания. Не исключено, что в подобных приложениях, возможно, захочется отображать всех авторов каждого издания.<br> Можно, например, добавлять имена авторов в элемент управления ComboBox или ListBox. Можно легко модифицировать программу, чтобы она отображала все имена авторов, если считать, что имена второго и третьего авторов любого издания появляются именно после первой совпадающей записи в таблице Title Authors. Можно вызвать метод MoveNext для объекта AUTHORISBN RecordSet и если его поле ISBN такое, как ISBN текущей книги, то у книги - другой автор и его имя можно отобразить. Если поле ISBN отлично от поля ISBN текущей книги, то у книги больше авторов нет.<br> Методы Move объекта RecordSet работают с учетом значения индекса RecordSet. Например, вызов метода MoveNext для объекта RecordSet с индексом осуществляет переход на следующую запись в индексе.<br><br> <br><br> <h1>Отслеживание перемещения мыши</h1> В практике программирования на Visual Basic часто используется событие MouseMove. Это событие позволяет пользователю контролировать движение мыши. С помощью события MouseMove можно получить информацию о координатах мыши, как только ее указатель помещен на форму. В некоторых ситуациях требуется контролировать координаты определенной точки непосредственно из обработчиков событий Click или DblClick событий (обычно они не позволяют получить информацию о координатах места, в котором выполнен щелчок) или отслеживать перемещение мыши за пределами окна формы Чтобы иметь возможность в любой момент определить текущее положение мыши, следует использовать функцию GetCursorPos.<br> Private Declare Function GetCursorPos Lib "user32" _ <br> (lpPoint As POINTAPI) As Long<br> Примечание<br> Параметры функции GetCursorPos() рассматривались в параграфе "Объявление 32-х разрядных функций и структур".<br> <b>VB6 в действии: проект MouseMov</b><br> В приложении MouseMov (рис. 13.5) для отслеживания перемещения мыши используется бескйнечный цикл. При этом предусматривается возможность передачи управления Windows с помощью оператора DoEvents. Это позволяет Windows обрабатывать другие события (например, остановку программы) при выполнении пользователем щелчка на кнопке Stop. Если бы оператор DoEvents не использовался, то приостановить выполнение программы было бы нельзя.<br> <div style="text-align:center;"><img src="image/otslezhivanie-peremeshhenija-myshi_1.gif" alt="Отслеживание перемещения мыши"></div><br> <b>Рис. 13.5.</b> Приложение MouseMov позволяет отслеживать положение указателя мыши, даже если указатель находится за пределами окна формы приложения<br> Функция GetCursorPos() возвращает переменную POINTAPI, которую затем можно передать функции WindowFromPoint(), чтобы получить дескриптор окна, на котором находится указатель мыши. Как только дескриптор окна получен, можно определить имя класса окна с помощью функции Get'ClassName(), которая возвращает имя класса окна. Если полученное имя - SysListView32, то это значит, что мышь находится на Рабочем столе Windows. В противном случае мышь находится в другом окне.<br> Большую часть программы занимает цикл отслеживания указателя мыши. Программа определяет положение указателя мыши и использует эту информацию для получения дескриптора окна и определения имени класса. После этого имя класса выводится на экран и обновляется каждый раз, когда указатель мыши перемещается в новое окно.<br> <br> <b>Программа 13.7.</b> Приложение MouseMov<br><br> Option Explicit<br><br> Private Declare Function GetCursorPos Lib "user32" _<br><br> (lpPoint As POINTAPI) As Long<br><br> Private Declare Function WindowFromPoint Lib "user32"<br><br> (ByVal xPoint As Long, ByVal yPoint As Long)    As Long <br><br> Private Declare Function GetClassName Lib "user32" Alias _ <br><br> "GetClassNameA" (ByVal hwnd As Long,_<br><br> ByVal IpClassName As String, ByVal nMaxCount As Long) As Long <br><br> Private Type POINTAPI <br><br> X As Long <br><br> Y As Long <br><br> End Type <br><br> Private gStop As Boolean<br><br> Private Sub Commandl_Click()<br><br> Dim mousePT As POINTAPI<br><br> Dim prevWindow As Long, curWindow As Long<br><br> Dim X As Long, Y As Long<br><br> Dim className As String<br><br> Dim retValue As Long<br><br> ‘ Отслеживание положения курсора <br><br> If Commandl.Caption = "Start" Then <br><br> Commandl.Caption = "Stop" <br><br> gStop = False prevWindow = 0<br><br> ‘ Отслеживать до тех пор, пока процесс не будет прерван <br><br> ‘ пользователем <br><br> Do<br><br>   ‘ Остановка отслеживания <br><br>   If gStop = True Then Exit Do <br><br>   Call GetCursorPos(mousePT) <br><br>   X = mousePT.X <br><br>   Y = mousePT.Y<br><br>        ‘ Получение информации об окне, на котором расположен<br><br>   ‘ указатель мыши<br><br>     curWindow = WindowFromPoint(X, Y) <br><br>     If curWindow о prevWindow Then <br><br>     className = String$(256, "") <br><br>     prevWindow = curWindow<br><br>          retValue = GetClassName(curWindow, className, 255)<br><br>  className = Left$(className, InStr(className,_<br><br> vbNullChar) - 1) <br><br>  If className = "SysListView32" Then<br><br>  Labell.Caption = "The mouse is over the desktop."<br><br> ‘(Указатель мыши находится на рабочем столе.) <br><br>  Else<br><br>              Labell.Caption = "The mouse is over" & className<br><br>                         ‘(Указатель мыши находится на...)<br><br> End If <br><br> End If <br><br> DoEvents <br><br>    Loop <br><br>    ‘ Остановка отслеживания положения указателя<br><br>    Else<br><br>      Command1.Caption = "Start"<br><br>      gStop = True <br><br>   End If <br><br> End Sub<br><br> Private Sub Form QueryUnload(Cancel As     Integer,<br><br>             UnloadMode As Integer) <br><br> gStop = True <br><br> End Sub<br><br>Этот проект создан на основе проекта MousePos, который находится в соответствующей папке на компакт-диске.<br><br><br> <h1>Панели</h1> Страницы, которые были показаны ранее, занимали все окно броузера. Тем не менее, используя панели (frame), на экране можно отобразить несколько документов. Панели создаются тегом <FRAMESET>. Такой подход связан с определенными издержками, поэтому мы будем создавать плавающие панели (с возможностью прокрутки содержимого) с использованием тега <IFRAME>. Плавающую панель с изображением (или несколько панелей) можно разместить на странице где угодно. Пользователь не может изменить размер плавающей панели, но в рамках этой главы нас это устраивает, поскольку плавающую панель реализовать проще, чем неподвижную, создаваемую тегом <FRAMESET>.<br> Чтобы вставить панель на страницу, используется следующий тег.<br> <IFRAME SRC=url WIDTH=xxx HEIGHT=yyy><br> Переменная<br> url — это URL документа, отображаемого на панели, а ххх<br> и ууу — размеры панели. Чтобы поместить панель посредине документа и показать домашнюю страницу Sybex, введите следующие строки в HTML-файл, а потом откройте его в Internet Explorer.<br> <CENTER><br> <Hl>Floating Frame Example</Hl><BR><br> <IFRAME SRC="http://www.sybex.corn" WIDTH =500 HEIGHT=300><br> </CENTER><br> Результат показан на рис. 19.5 (между тегами<br> <CENTER> и </CENTER> все будет центрировано).<br> Страница, изображенная на рис. 19.6, создана для одного HTML-документа, содержащего два тега <IFRAME>. Содержание каждой панели задается атрибутом SRC, а для их размещения на странице используется тег <CENTER>.<br> <div style="text-align:center;"><img src="image/index-image131.gif" alt="Панели"></div><br> <b>Рис. 19.5.</b> Плавающая панель, отображающая начальную страницу Sybex<br> <div style="text-align:center;"><img src="image/index-image132.gif" alt="Панели"></div><br> <b>Рис. 19.6.</b> Панели страницы FFRAMES НТМ вложены в другую плавающую панель<br> Ниже приведена распечатка файла FFRAMES.HTM, который можно найти в папке данной главы на компакт-диске.<br> <HTML><br> <head> <link rel="canonical" href="https://www.e-lave.ru//index.htm"/><br> <TITLE>Floating Frames</TITLE><br> </HEAD><br> <BODY BGCOLOR=black><br> <FONT NAME="Verdana" COLOR=lightyellow><br> <CENTER><br> <Hl>Here they are...</Hl><br> <br> <H4>...side by side</H4><br><br> <br><br> <IFRAME<br><br> SRC="http://home.microsoft.com/"<br><br> NAME="MS"<br><br> WIDTH=325<br><br> HEIGHT=325<br><br> SCROLLIHG=YES<br><br> MARGINWIDTH=0<br><br> MARGINHEIGHT=0<br><br> HSPACE=8><br><br> </IFRAME><br><br> <IFRAME<br><br> SRC="http://home.netscape.com/"<br><br> NAME="NS"<br><br> WIDTH=325<br><br> HEIGHT=325<br><br> SCROLLIHG=YES<br><br> MARGINWIDTH=0<br><br> MARGINHEIGHT=0<br><br> HSPACE=8> <br><br> </IFRAME> <br><br> </FONT> <br><br> </CENTER> <br><br> </BODY> <br><br> </HTML><br><br> Страница, показанная на предыдущем рисунке, на конкретном компьютере может выглядеть не так хорошо. Если окно броузера меньше 700 пикселей в ширину, то в нем не хватит места для двух рамок: отобразить их рядом нельзя, вторая рамка появится ниже первой. Такая проблема возникает при отображении рядом двух изображений в узком окне. Выходом из такой ситуации является размещение изображений в смежных ячейках таблицы без обрамления. То же можно проделать с плавающими панелями. Плавающая панель вставляется в ячейки таблицы также просто, как изображение или абзац текста.<br><br><br> <h1>Параметры API-функций</h1> При использовании API-функций необходимо предусмотреть объявление функций и их параметров. Win32 API предназначен для программистов, работающих на языке С или С ++. Поэтому в документации используются структуры данных, принятые в С. Их необходимо преобразовать к их эквивалентам в Visual Basic. В табл. 13.1 приведены объявления, предусмотренные в языке С, и соответствующие VB-эквиваленты. В последнем столбце приведено описание способа передачи параметров API-функциям. Все типы данных передаются по значению, кроме Integer Pointer и Long Integer Pointer (указатели).<br> <b>Таблица 13.1.</b><br> Соответствие типов данных в С и Visual Basic<br><table border=1><br> <tr> <td>Объявление С<br> <td> <td>Тип данных Visual Basic<br> <td> <td>Способ передачи параметров<br> <td> </tr> <tr> <td>Integer<br> <td> <td>Integer<br> <td> <td>ByVal<br> <td> </tr> <tr> <td>Integer Pointer (LPINT)<br> <td> <td>Integer<br> <td> <td>ByRef<br> <td> </tr> <tr> <td>Long<br> <td> <td>Long<br> <td> <td>ByVal<br> <td> </tr> <tr> <td>Long Integer Pointer<br> <td> <td>Long<br> <td> <td>ByRef<br> <td> </tr> <tr> <td>Stung Pointer (LPSTR)<br> <td> <td>String<br> <td> <td>ByVal<br> <td> </tr> <tr> <td>Handle<br> <td> <td>Long<br> <td> <td>ByVal<br> <td> </tr> <tr> <td>Char<br> <td> <td>String<br> <td> <td>ByVal<br> <td> </tr> <tr> <td>Void Pointer<br> <td> <td>Any<br> <td> <td>ByRef<br> <td> </tr> </table><br> Передача параметров по значению<br> Чтобы использовать API-функции в VB-приложении, необходимо ознакомиться с двумя механизмами передачи параметров — ByVal<br> и ByRef. Подробно они рассмотрены в гл. 3.<br> Когда параметры передаются по значению, вызываемая процедура работает с локальными копиями переменных. Процедура может изменить их значения, но не саму переменную в вызывающей программе. В Visual Basic для индикации такого способа передачи используется ключевое слово ByVal. Ниже приведен текст процедуры AnySub(), в которой параметр anyNumber передается по значению, ему присваивается значение 10. При выходе из процедуры исходное значение переменной восстанавливается.<br> Программа 13.1.<b> Передача параметров по значению</b><br> Sub AnySub(ByVal anyNumber as Integer)<br> anyNumber = 10<br> Debug.Print anyNumber <br> End Sub<br> Если вызвать процедуру AnySub() следующим образом,<br> х = 1<br> Call AnySub(х)<br> Debug.Print x<br> то в окне проверки появится сообщение:<br> AnyNumber = 10 <br> х = 1<br> С помощью оператора Print в процедуре AnySub() отображается значение, присвоенное переменной anyNumber внутри процедуры (локально). Значение, присвоенное переменной х в вызывающей программе (1), также появляется в окне проверки. Значение 10, присвоенное переменной anyNumber в процедуре AnySub(), вне этой процедуры недействительно.<br> <br> Передача параметров по ссылке<br> При передаче параметров по ссылке процедуре предоставляется доступ к переменной в вызывающей программе. Процедура, параметр которой передается таким образом, получает адрес области памяти, хранящей значение параметра. Это дает ей возможность изменять значение параметра. В Visual Basic такой механизм передачи значений параметров устанавливается по умолчанию. В следующем примере процедура AnySub() изменяет значение параметра.<br> Программа 13.2. Передача параметров по ссылке<br> Sub AnySub(mylnt As Integer)<br> mylnt<br> = 20      ' теперь переменная mylnt имеет значение 20 <br> End<br> Sub<br> Если теперь вызвать эту процедуру,<br> Dim x<br> As Integer<br> {Требуемые операторы} <br> х<br> = 4<br> Debug.Print "Before calling AnySub x = " &<br> x<br> ' (Перед вызовом AnySub x<br> =...) <br> Call AnySub(x) <br> Debug.Print "After calling AnySub x = " & x<br> ' (После вызова AnySub x<br> =...)<br> то в окне Debug появятся следующие строки:<br> {Перед вызовом AnySub х = 4 <br> После вызова AnySub х = 20<br> Изменение значения переменной х процедурой AnySub() носит глобальный характер, поскольку значение параметра передавалось по ссылке. Если нет оснований разрешать вызываемой процедуре глобальное изменение значений параметров, то параметры необходимо передавать по значению. Некоторые API-функции сохраняют результаты работы, изменяя значения переданных им параметров, поэтому предполагается, что параметр такой функции должен передаваться по ссылке. В языке С такие параметры называются указателями (pointers), так как они указывают на область памяти, в которой хранится значение переменной.<br><br> <h1>Печать и сохранение документов</h1> Чтобы напечатать документ, следует вызвать метод<br> Printout:<br> Printout Background, append, range, outputfilename, from, to, _ <br> item, copies, pages, PrintToFile, Collate,<br> _ <br> ActivePrinterMacGX, Manual Duplex Print<br> Все параметры необязательные и соответствуют свойствам, которые вы можете установить в диалоговом окне Print программы Word. Значение параметра Background определяет, будет ли печать выполняться в фоновом режиме. Обычно этому параметру присваивают значение True (при автоматизации приложений).<br> Совет<br> При вызове методов с большим количеством параметров (большинство из которых, как правило, опускаются), следует использовать именованные параметры, чтобы определить только некоторые из них. Например, чтобы организовать печать первых трех страниц активного документа, следует воспользоваться следующим выражением.<br> AppWord.ActiveDocument.Printout from:=1, to:=3<br> При использовании VBA для указания Word напечатать документ процесс постановки документа в очередь на печать выполняется не мгновенно. Если попытаться закрыть Word сразу после вызова метода Printout, то он сообщит, что завершение работы в данный момент приведет к отмене процедуры печати. Чтобы удостовериться в том, что документ был записан в буфер (это означает, что можно правильно завершить работу Word), необходимо организовать цикл, в котором будет выполняться проверка значения свойства BackgroundPnntingStatus. До тех пор, пока это значение не равно 0, приложение выполняет запись информации в буфер. После того как будет переписана вся информация, можно выйти из Word. Этот прием будет использован в параграфе " VB6 в действии проект WordVBA" далее в этой главе. <br> Чтобы сохранить докумет, следует воспользоваться методом SaveAs объекта Document с помощью выражения.<br> SaveAs FileName, File Format, LockComments, Password, _<br> AddToRecentFiles, WritePassword, ReadOnlyRecomitiended, _<br> EmbedTrueTypeFonts, SaveNativePictureFormat, _ <br> SaveFormsData, SaveAsOCELetter<br> Как и в случае с методом Print, параметры метода SaveAs соответствуют установкам диалогового окна Save As приложения. Если файл был предварительно сохранен, следует использовать метод Save, для обращения к которому вообще не требуется задавать параметры. Он позволяет выполнить сохранение документа в файле, используя опции, определенные в методе SaveAs (при самом первом сохранении документа) Чтобы сохранить активный документ в файле с другим именем, следует воспользоваться следующим выражением:<br> <br> AppWord.ActiveDocument.SaveAs "с:\Documents\Report99.doc"<br><br> К свойствам объекта Document также относится свойство Saved,<br><br> которое возвращает значение True<br><br> или False,<br><br> указывающее, был ли документ изменен с момента последнего сохранения. Это свойство можно использовать в программе, чтобы определить, следует ли обращаться к методу Save (Сохранить) перед завершением работы приложения.<br><br> Ниже приведен фрагмент программы, позволяющей открыть существующий документ, распечатать его, а затем закрыть приложение. Следует отметить то обстоятельство, что с целью упрощения программы для создания нового экземпляра Word используется функция Create0bject(). Способ установления связи с существующим экземпляром Word рассматривался ранее.<br><br> <b>Программа 14.9.</b> Открытие и печать DOC-файла<br><br> Dim WordApp As Word.Application <br><br> Dim thisDoc As Document <br><br> Dim prnTime As Date <br><br> Dim breakLoop As Boolean<br><br> Set WordApp = CreateOb]act ("Word Application") <br><br> WordApp.Visible - False <br><br> WordApp.Documents.Open ("c:\sarriple.doc") <br><br> thisDoc.Printout True, True <br><br> prnTime = Time <br><br> breakLoop = False<br><br> While WordApp.BackgroundPrintingStatus <> 0 And Not breakLoop <br><br> If Minute(Time - prnTime) > 1 Then<br><br> Reply = MsgBox("Word is taking too long to print." _ <br><br> & vbCrLf & "Do you want to quit7", vbYesNo)<br><br> '(Word слишком долго выполняет <br><br> 'печать ... Остановить печать?) <br><br> If Reply = vbYes Then<br><br> breakLoop = True <br><br> Else<br><br> prnTime = Time <br><br> End If <br><br> End If<br><br> Wend<br><br> WordApp.Quit<br><br> MsgBox "Document saved and printed!"<br><br> ' (Документ сохранен и напечатан')<br><br> До тех пор пока Word выполняет запись документа в буфер, значение свойства Background PrintingStatus не равно 0, а пока выполняется цикл, работа приложения не будет завершена.<br><br> Из-за аппаратных ошибок этот процесс может никогда не закончиться, и, следовательно, приложение будет заблокировано. Каждую минуту, программа спрашивает пользователя, будет ли он ждать или нет. Если пользователь принимает решение завершить распечатку, переменная breakLoop принимает значение True, что приводит к прерыванию цикла While...Wend. Это достаточно простой подход, хотя он требует больших затрат времени работы процессора. Гораздо более эффективным представляется использование в форме элемента управления Timer, позволяющего программно контролировать процесс печати документа.<br><br><br> <h1>Перечислимые свойства</h1> Если переключиться на тестовую форму и поэкспериментировать с элементом управления, то можно заметить, что он ведет себя не совсем так, как обычный элемент управления. Специальные свойства в окне свойств элемента управления могут быть установлены в любое значение Необходимо добавить код, который бы отображал только допустимые значения свойств Effect и TextAlignment и, таким образом, ограничивал выбор пользователя только допустимыми значениями. На рис. 16.6 показано окно свойств элемента упоавления. в котором выбрано свойство TextAlignment.<br> <div style="text-align:center;"><img src="image/perechislimye-svojstva_1.gif" alt="Перечислимые свойства"></div><br> <b>Рис. 16.6.</b> Некоторые специальные свойства должны иметь ограниченное число значений, которые отображаются в раскрывающемся списке<br> Тип данных, который содержит малое число значений, называется Enumerated (перечислимым) типом. Integer, Double и другие числовые типы данных являются базовыми и могут представлять числовые значения. Если приложение использует переменную, которая может принимать только ограниченное число целочисленных значений, можно использовать перечислимый тип. Свойство TextAlignment как раз и является такой переменной, поскольку может принимать только одно из нескольких целочисленных значений. Дни недели, например, или месяцы года также являются примерами данных перечислимого типа. Для того чтобы создать перечислимый тип, сначала необходимо объявить значения перечислимого типа. Таким образом VB узнает, какие из значений являются допустимыми. Вставьте следующее объявление перечислимого типа в начало кода сразу после оператора Option Explicit:<br> Enum Align<br> [Top Left]<br> [Top Middle]<br> [Top Right]<br> [Center Left]<br> [Center Middle]<br> [Center Right]<br> [Bottom Left]<br> [Bottom Middle]<br> [Bottom Right] <br> End Enum<br> Это объявление сообщает Visual Basic, что любая переменная, объявленная как Align,<br> может иметь значения от 0 до 8 (перечислимые значения соответствуют числам, начинающимся с 0). Строки в объявлении типа являются синонимами соответствующих числовых значений, которые будут отображаться в окне свойств. Квадратные скобки в объявлении необходимы только в том случае, если соответствующие строки содержат пробелы (или другие недопустимые символы).<br> <br> Теперь необходимо заменить тип свойства TextAlignment с Integer на Align (этот перечислимый тип мы только что объявили), так как тип свойства TextAlignment должен быть именно перечислимым. Откройте проект FLEXLabel и выполните следующие изменения:<br><br> <b>1. </b>Выберите объект UserControl, откройте окно с его кодом и в начале кода вставьте следующее определение типов:<br><br> Enum Align<br><br> [Top Left]<br><br> [Тор Middle]<br><br> [Top Right]<br><br> [Center Left]<br><br> [Center Middle]<br><br> [Center Right]<br><br> [Bottom Left]<br><br> [Bottom Middle]<br><br> [Bottom Right] <br><br> End Enum<br><br> <b>2. </b>Измените определения процедур Property Let и Property Get свойства TextAlignment таким образом, чтобы они имели тип Align (вместо Integer). Сделать это можно следующим образом:<br><br> Public Property Get TextAlignment() As Align<br><br> TextAlignment = m_TextAlignment <br><br> End Property<br><br> Public Property Let TextAlignment (ByVal New_TextAlignment _ <br><br> As Align)<br><br> M_TextAlignment = New_TextAlignment<br><br> PropertyChanged "TextAlignment" <br><br> End Property<br><br> Обратите внимание, что код проверки допустимости значений в процедуре Property Let более не нужен, поскольку пользователь не может выбрать недопустимое значение для этого свойства в окне свойств. Если попытаться связать недопустимое значение со свойством непосредственно в коде, то такая команда будет проигнорирована без каких либо предупреждений или сообщении об ошибке Значение свойства просто не изменится. Попытка присвоить перечислимой переменной недопустимое значение посредством кода приведет к сообщению об ошибке во время выполнения программы.<br><br><br> <h1>Первичный ключ</h1> В реляционной системе баз данных каждая запись имеет уникальный идентификатор, который используется для указания записи и связывания ее с другими записями в других таблицах. В большинстве случаев внимательное изучение данных позволяет обнаружить некую характеристику, делающую каждую запись уникальной. Она и может стать первичным ключом. Первичный ключ такого типа называется композитным. Например, в базе данных служащих фирмы номер социального обеспечения каждого работника является композитным первичным ключом.<br> Когда не имеется явного поля или набора полей, которые могут использоваться для формирования композитного первичного ключа, система управления базами данных Visual Basic (механизм JET) может автоматически генерировать уникальный числовой ключ для каждой записи. Этот ключ предназначен для добавления к таблице поля и установки его типа AutoNumber. Автонумеруемое поле автоматически увеличивается на единицу всякий раз, когда добавляется новая запись. Это гарантирует уникальность ключа, хотя сам ключ не обязательно может что-нибудь означать. До тех пор, пока все таблицы ссылаются на одну запись с помощью одного и того же ключа, последний не обязательно должен иметь содержательный смысл. Иногда автоматически нумеруемый первичный ключ создается для конкретных целей, например, при использовании автоматически нумеруемого поля для номера счета.<br> Независимо от типа первичного ключа целесообразно делать первичный ключ таблицы полем типа Long (см. гл. 3). Таким образом вы значительно упрощаете разработку других таблиц.<br><br> <br><br> <h1>Подход, ориентированный на работу с данными</h1> OLE позволяет сконцентрироваться на работе с данными. Пользователю достаточно знать, что<br> необходимо сделать, а не как<br> сделать, и какие программные средства использовать при этом. Например, пользователю многокомпонентной программы не обязательно для работы с электронными таблицами использовать только<br> Excel или для работы с текстом - только WordPerfect. OLE-приложение предоставляет пользователю доступ к функциональным возможностям электронной таблицы, текстового процессора или графической программы, и все это — внутри одной программы, называемой приложением-контейнером (container application). Visual Basic позволяет создавать компоненты, которые могут использовать функциональные возможности других прикладных программ, и приложения, содержащие составные документы.<br> Примечание<br> В прикладных программах, структурированных традиционным образом, главное внимание уделяется обработке данных, а в OLE-приложениях — тому, чем будут обрабатываться эти данные. При изучении OLE-технологии следует помнить об этом простом принципе, выражающем сущность OLE и делающем OLE полезным для пользователя, удовлетворение интересов которого является целью разработчика. Программирование с использованием OLE может оказаться сложным, но конечный продукт должен быть простым и удобным в использовании.<br><br> <br><br> <h1>Подключение к Web-серверу</h1> Чтобы подключиться к Web-серверу, запустите Internet Explorer и введите следующий адрес в поле Address броузера.<br> http://127.Ci.0.1<br> Это адрес локального компьютера, действительный на любой машине -зарезервированный IP-адрес для подключения к серверу, запущенному на компьютере, с которого поступил запрос на подключение. После введения этого адреса Web-сервер отображает документ по умолчанию. Вы можете скопировать в корневой каталог сервера любой HTML-документ и открыть его, передав его имя после адреса сервера. Еще лучше — создайте виртуальную папку для каталога C'\INETPLIB\WWWROOT, назовите ее MVB6 и скопируйте в нее HTML-файлы, которые будут тестироваться в это главе. По следующему адресу можно открыть файл Calendar.htm в окне броузера.<br> http://127.0.0.1/MVB6/Calendar.htm<br> В следующем параграфе мы научимся разрабатывать выполняемые на сервере приложения, которые можно запускать с компьютера клиента. Оказывается, что разработка таких приложений не составляег особого труда. Это такие же сценарии, которые можно встроить в HTML-страницу, только выполняются они на сервере. Их называют активными серверными страницами (Active Server Pages — ASP) и, имея навыки программирования на Visual Basic, можно немедленно присгупать к их программированию.<br> Visual Basic предоставляет специальный тип проекта — тип IIS Application — позволяющий автоматизировать процесс разработки активных серверных страниц. Даже при наличии таких средств достаточно сложно создать сценарий, имеющий практическое применение, без знания основ работы сценариев на сервере и объектов для взаимодействия с клиентом, предоставляемых ASP.<br><br> <br><br> <h1>Подключения</h1> Для явного подключения к источнику данных объявите переменную Connection с помощью выражения:<br> Dim ADOConn As New ADODB.Connection<br> Вызовите метод Open объекта ADOConn, передавая в качестве аргумента строку подключения.<br> ADOConn.Open "DSN=AdvWorks;UID=xxx;PWD=xxx"<br> (Здесь ххх -идентификатор пользователя и пароль соответственно.) Аргумент DSN — имя источника данных Data Source.<br> Когда объект Connection создан, его можно назначить свойству ActiveConnection объектов RecordSet или Command.<br><br> <br><br> <h1>Получение информации</h1> Outlook сохраняет разнотипную информацию в различных файлах. Информация о контактах хранится в файле Contacts (Контакты), входящие сообщения хранятся в папке InBox и т.д. Большинство пользователей, однако, изменяет структуру папок, предлагаемьи Outlook, добавляя дополнительные подпапки к заданным по умолчанию. Например, чтобы упорядочить информацию о контактах, можно создать подпапки Business и Personal в папке Contacts (Контакты). Аналогично, в папке InBox можно создать папки Business, Personal и Junk.<br> Типичной задачей, которую требуется решать, является поиск желаемой информации. В последующих примерах будет рассматриваться способ доступа к контактам и входящим сообщениям в папках Contacts и InBox, соответственно.<br> <b>VB6 в действии</b>: проект Contacts (Контакты)<br> В качестве первого примера того, как, используя средства OLE, можно работать с Outlook, будет рассмотрено приложение Contact, форма которого приведена на рис. 14.20. В этом приложении подразумевается, что все объекты, относящиеся к контактам, хранятся в папке Contacts. Если контакты пользователя организованы по-другому, например, в отдельных подпапках в папке Contacts, следует скопировать (на время) несколько соответствующих файлов в эту папку, чтобы можно было проверить приложение. Чуть позже, в параграфе "Рекурсивный просмотр папки Contacts" будет рассмотрена рекурсивная процедура просмотра всей папки Contacts (включая подпапки).<br> Главная форма проекта Contacts содержит два списка. Первый список заполнен названиями компаний, которые считываются из соответствующих полей каждого контакта. В этом списке названия компаний не дублируются, несмотря на то, что типичная папка Contacts может содержать несколько контактов из одной и той же компании. Чтобы просмотреть список контактов, принадлежащих одной компании, необходимо щелкнуть на ее названии. Соответствующие контакты появятся в поле списка Contacts. Теперь при каждом щелчке на имени контакта в нижней части окна формы будет отображаться подробная информация о контакте.<br> <br> Программа начинает свою работу с обращения к Outlook ( после щелчка на кнопке Start Outlook). Ниже приведен код обработчика нажатия соответствующей кнопки.<br><br> <div style="text-align:center;"><img src="image/poluchenie-informacii_1.gif" alt="Получение информации"></div><br><br> <b>Рис. 14.20.</b> В проекте Contacts выполняется поиск информации о контактах объекта в папке Contacts в Outlook<br><br> <b>Программа 14.18.</b> Обращение к Outlook<br><br> Private Sub Commandl_Click () <br><br> On Error GoTo OutlookNotStarted<br><br> Set OLApp - CreateOb^ect ("Outlook Application") <br><br> On Error GoTo NoMAPINameSpace<br><br> Set mNameSpace - OLApp GetNamespace ("MAPI")<br><br> List1.Clear<br><br> List2.Clear<br><br> Command2.Enabled = True<br><br> Exit Sub<br><br> OutlookNotStarted:<br><br> MsgBox "Could not start Outlook"<br><br> ' (Невозможно запустить Outlook) <br><br> Exit Sub <br><br> NoMAPINameSpace:<br><br> MsgBox "Could not get MAPI NameSpace"<br><br> ' (Невозможно получить место нахождения MAPI) <br><br> Exit Sub <br><br> End Sub<br><br> Если обращение к Outlook было успешным, кнопка View Contact становится доступной. Если щелкнуть на этой кнопке, программа создаст семейство, содержащее все объекты, находящиеся в папке Contacts, и отсортирует семейство allContacts согласно названиям компаний. Повторяющиеся названия будут удалены из списка (это обеспечивается оператором If, находящимся в конце подпрограммы). Текст программы обработчика кнопки View Contact приведен ниже.<br><br> <b>Программа 14.19.</b> Загрузка списка контактов<br><br> Private Sub Command2_Click() <br><br> Set allContacts = _<br><br> mNameSpace.GetDefaultFolder(olFolderContacts).Items <br><br> all Contacts.Sort = "CompanyName" <br><br> On Error Resume Next<br><br> For Each mContact In allContacts<br><br> If Trim(mContact.CompanyName)<b> <></b> "" Then _<br><br> List1.Addltem mContact.CompanyName<br><br> If List1.List(List1.Newlndex) = <br><br> List1.List(List1.Newlndex - 1) Then<br><br> List1.Removeltem List1.Newlndex<br><br> Next <br><br> End Sub<br><br> Программа, которая получает контакты из выбранной (в левом окне) папки, должна быть помещена в обработчик события Click элемента ListBox.<br><br> <b>Программа 14.20.</b> Получение списка контактов в выбранной  компании<br><br> Private Sub Listl_Click() <br><br> Dim CompanyName As String <br><br> Dim filterString As String<br><br> <br> If List1.Listlndex = -1 Then Exit Sub<br><br> CompanyName = Listi.Text<br><br> filterString = "[CompanyName] = " " " & CompanyName & " " " "<br><br> Set thiscontact =<br><br> allContacts.Find(filterString)<br><br> If IsNull(thiscontact) Then<br><br> MsgBox "Fatal error in locating a contact.Program will exit" <br><br> ' ( Фатальная ошибка при поиске контакта. Работа <br><br> ' программы будет завершена) <br><br> End <br><br> End If <br><br> List2.Clear <br><br> While Not thiscontact Is Nothing<br><br> If Trim(thiscontact.FullName)<b> <></b> " " Then _<br><br> List2.Addltem thiscontact.FullName <br><br> Set thiscontact = allContacts.FindNext <br><br> Wend <br><br> End Sub<br><br> Для вывода дополнительной информации о контакте потребуется еще одна программа, которая должна быть включена в обработчик события Click элемента управления List.<br><br> <b>Программа 14.21.</b> Вывод информации о контакте<br><br> Private Sub List2_Click() <br><br> Dim ContactName As String <br><br> Dim filterString As String<br><br> If List2.ListIndex = -1 Then Exit Sub <br><br> ContactName = List2.Text<br><br> filterString= "[FullName]= " " " & ContactName & " " " " <br><br> Set thiscontact = allContacts.Find(filterString) <br><br> If IsNull(thiscontact) Then<br><br> MsgBox "Fatal error in locating a contact. Program will exit"<br><br>  ' Фатальная ошибка при поиске контакта. Работа <br><br>  ' программы будет завершена) <br><br> End <br><br> End If<br><br> IblName.Caption = "" & thiscontact.Full Name <br><br> IblPhone.Caption = "" & thiscontact.BusinessTelephoneNumber<br><br> IblFAX.Caption = "" & thiscontact.BusinessFaxNumber<br><br> IblEMall.Caption = "" & thiscontact.EmaillAddress <br><br> End Sub<br><br> <b>VB6 в действии:</b> проект Messages<br><br> В проекте Messages демонстрируются приемы получения почтовых сообщений. Сообщения могут храниться в папках InBox и OutBox, а также в любых подпапках, созданных в этих папках. Программа Messages может получать сообщения только из папки InBox. Если в этой папке нет никаких сообщений, следует скопировать (на время) туда несколько входящих сообщений, чтобы проверить приложение. Чуть дальше в этой же главе будет рассмотрена процедура просмотра сообщений в папке InBox (включая вложенные подпапки) на любую глубину. Уместно напомнить, что это будет делать рекурсивная процедура.<br><br> <br> Приложение Messages (рис. 14.21) позволяет выбирать сообщения, основываясь на информации об их отправителе или дате отправления. Критерии поиска задаются пользователем путем ввода соответствующих значений в окна, расположенные в правом верхнем углу формы. После ввода следует щелкнуть на кнопке Show Selected Messages (Показать выбранные сообщения), чтобы отобразить сообщения, отвечающие заданным критериям. Программа будет выводить только имя отправителя сообщения и тему. Затем, каждый раз, когда пользователь будет выбирать одно из сообщений в этом списке, щелкая на нем, подробная информация о нем будет отображаться в окнах соответствующих элементов управления в нижней части формы (включая текст сообщения). Если сообщение, содержит присоединенные файлы, их имена отображаются в окне сообщения. Запустите этот проект и поэкспериментируйте с ним. Впрочем, имеются две проблемы, о которых следует знать. Во-первых, приложение Messages может просматривать только сообщения в папке InBox. Если сообщения находятся в подпапках папки InBox, следует переместить (на время) несколько сообщений в папку InBox. Вторая проблема заключается в том, что имена отправителя читаются из папки Contacts. Если имена в папке Contacts не соответствуют именам, которые появляются в сообщениях, то нельзя будет увидеть сообщения, посланные выбранным контактом.<br><br> <div style="text-align:center;"><img src="image/poluchenie-informacii_2.gif" alt="Получение информации"></div><br><br> Рис. 14.21. В проекте Messages демонстрируется возможность чтения входящих сообщении Outlook из VB-приложений<br><br><br> <h1>Пользовательские элементы управления ActiveX на Web-страницах</h1> Элементы управления ActiveX используются как на формах, так и на Web-страницах. Это достаточно смелое утверждение, поскольку Рабочий стол и Web-страница имеют различные требования, и не так просто разработать элемент управления для обеих сред. Основное различие состоит в использовании приложений этих двух типов. Приложения для Рабочего стола разрабатываются с учетом того факта, что все ресурсы находятся на локальной машине, где они и запускаются. Приложения Web запускаются на удаленном компьютере, и любые дополнительные ресурсы (изображения и звук) подгружаются по мере необходимости. К счастью, большинство элементов управления, созданных для Рабочего стола, работают и на Web-страницах, но не все они работают одинаково хорошо в обеих средах.<br> Microsoft предлагает большое количество элементов управления ActiveX для использования на Web-страницах. Некоторые из них поставляются вместе с Internet Explorer, включая такие элементы управления, как Structured Graphics, Filter и Sequencer. Дополнительную информацию и примеры использования можно найти по адресу http://www.microsoft.com/workshop. Практически, каждый элемент управления ActiveX, размещенный на форме Visual Basic, можно использовать и на Web-странице (если он загружен и проинсталлирован на компьютере клиента). В следующих параграфах рассказывается, как использовать на Web-страницах пользовательские элементы управления ActiveX, созданные в предыдущих главах.<br> <b>Страница ALARM.HTM</b><br> В этом параграфе рассматривается создание Web-страницы с использованием элемента управления ALARM (см. гл. 16). Зачем утруждать себя размещением будильника на Web-странице (кроме как для наглядной демонстрации возможностей пользовательских элементов управления при помощи VBScript)? На рис. 19.8 показана одна причина. Страница содержит таймер, который позволяет пользователю читать страницу за 60 секунд. Пользователь всегда может оставить страницу, введением другого URL в поле Address броузера или нажатием кнопки Back. Если пользователь продержит эту страницу открытой 60 секунд, то сценарий автоматически предоставит ему или ей другую страницу.<br> <br> Таймер удобен в нескольких ситуациях. Например, можно его использовать для обновления страницы "живыми" данными или отсчета времени в игре.<br><br> Знатокам элементов управления ActiveX для Web-приложений известно, что есть элемент управления Timer, который можно использовать и для Web-страниц, но это не так просто, как применение элемента управления Alarm. Во-первых, при использовании элемента управления Timer нужно вести отсчет времени в вашей программе. Во-вторых, время задержки таймера задается в миллисекундах, а сценарий должен обработать событие Timer много раз, прежде чем выполнить какое-то действие.<br><br> <div style="text-align:center;"><img src="image/index-image134.gif" alt="Пользовательские элементы управления ActiveX на Web-страницах"></div><br><br> <b>Рис. 19.8.</b> Пользовательский элемент управления Alarm на Web-странице<br><br> Элемент управления ActiveX Alarm, как и элемент управления Timer из Visual Basic, не содержит видимых компонентов и если нужно, чтобы пользователь знал, что происходит, то нужно предоставить ему видимую обратную связь из сценария.<br><br> Начнем с тегов HTML для размещения, например, экземпляра элемента управления Alarm на Web-странице.<br><br> <OBJECT ID="AlarmCtl" NAME="AlarmCtl"<br><br> classid="cisid:7282EB2E-B8A9-11CF-B2FB-005348C101FC"<br><br> border="0"<br><br> width="120" heigth="33"><br><br> <PARAM NAME="CountDown" value "True"><br><br> </OBJECT><br><br> Teг <OBJECT> вставляет элемент управления ActiveX на страницу, но его синтаксис, мягко говоря, специфический. Однако вам нет потребности вводить его вручную. Каждый элемент управления ActiveX имеет свойства NAME и ID, подобно встроенным элементам управления. Свойство CLASSID представляет собой длинную строку, которая идентифицирует элемент управления в системном реестре. Чтобы создать определение объекта на странице, используют WYSIWYG-редактор HTML, такой как Frontpage Express (поставляется вместе с Internet Explorer). Создадим новую HTML-страницу и вставим требуемый элемент управления ActiveX, выполнив следующие действия.<br><br> <b>1</b>. Выберите команду ActiveX диалогового окна Other Component меню Control Insert, чтобы открыть диалоговое окно ActiveX Control Properties.<br><br> <br> <div style="text-align:center;"><img src="image/index-image135.gif" alt="Пользовательские элементы управления ActiveX на Web-страницах"></div><br><br> <b>2</b>. Откройте  раскрывающийся  список  Pick a Control  и  найдите пункт AlarmProjectAlarmCtl. Таким образом, элемент управления ActiveX Alarm будет занесен в список Registry (Если Alarm ProJect.AlarmCtI в списке не появился, то следуйте инструкциям следующей врезки ''Регистрация пользовательских элементов управления ActiveX").<br><br> <b>3</b>. Установите имя элемента управления как<b> </b>AlarmCtl<b>.</b><br><br> <b>4</b>. Щелкните на кнопке Properties, чтобы установить дополнительные свойства пользовательского элемента управления. Для элемента управления Alarm установите в свойстве Count Down значение True.<br><br> <b>5</b>. Щелкните на кнопке ОК, чтобы закрыть диалоговое окно.<br><br> <b>6</b>. Выберите команду HTML меню View, чтобы открыть текстовый редактор, отображающий исходный код страницы. Выберите определение тега <OBJECT> и скопируйте его в Clipboard.<br><br> <b>7</b>. Переключитесь в текстовый редактор HTML-документа и вставьте определение тега <OBJECT>.<br><br> Как видите, вставить тег <OBJECT> на Web-страницу для пользовательского элемента управления не сложно. Это определение не изменяется, даже когда тег устанавливается на другом компьютере. Также тег <OBJECT> можно скопировать из любой Web-страницы, содержащей его.<br><br> <b>Регистрация пользовательских элементов управления ActiveX</b><br><br> После разработки пользовательского элемента управления<br><br> ActiveX его не нужно регистрировать для использования в тестовом проекте. Если его нужно использовать в другом проекте, то сначала нужно его зарегистрировать. Для регистрации пользовательского элемента управления ActiveX выполните следующее.<br><br> <b>1</b>. Создайте ОСХ-файл элемента управления, выбрав команду Make control.ocx (control — это имя пользовательского элемента управления) меню File.<br><br> <b>2</b>. Переключитесь на сеанс работы с DOS, чтобы отобразилась командная строка DOS, перейдите в папку, в которой сохранен ОСХ-файл, и введите команду:<br><br> С:\windows\system\regsvr32 control.ocx<br><br> Замените<br><br> control.ocx именем ОСХ-файла, необходимым для регистрации.<br><br> <b>3</b>. Выйдите из DOS.<br><br> Новый элемент управления может использоваться в любом проекте, даже на Web-страницах. В среде разработки Visual Basic имя пользовательского элемента управления появится в диалоговом окне Components (чтобы открыть это диалоговое окно, выберите команду Components меню Project). Такое же имя появится в диалоговом окне свойств элементов управления ActiveX Frontpage.<br><br> <br> Значение элемента управления CLASSID будет отличаться в конкретной системе. Поэтому, нельзя использовать файл ALARM.HTM в том виде, в котором он находится на компакт-диске. Необходимо изменить атрибут CLASSID на значение, генерируемое вашей системой.<br><br> <b>8</b>. Введите соответствующий текст и теги HTML на страницу, сохраните ее как ALARM HTM и откройте с помощью Internet Explorer.<br><br> Кроме того, пользователь должен видеть элемент управления Alarm с обратным отсчетом прямо на странице. Конечно, ничего не произойдет, когда пройдет время выдачи сигнала, потому что не добавлен соответствующий код. Как только загрузится страница, сценарий должен включить таймер, и по истечении положенного времени он предоставит пользователю другую страницу (начальную страницу Sybex).<br><br> Для этого нужно открыть страницу в текстовом редакторе и добавить следующий сценарий.<br><br> <SCRIPT LANGUAGE="VBScript"> <br><br> Sub window_onLoad()<br><br> AlarmCtl.AlarmTime = Time + #00:01.00#<br><br> Call AlarmCtl.StartTimer() <br><br> End Sub<br><br> Sub AlarmCtl_TimeOut()<br><br> Call window.navigate ("http://www.sybex.corn") <br><br> End Sub <br><br> </SCRIPT><br><br> Событие window_onLoad инициируется при загрузке страницы. В этом событии необходимо инициализировать свойства элемента управления. Установите свойство AlarmTime на минуту вперед от текущего времени и начните отсчет. Свойство CountDown было установлено при определении тега <OBJECT> следующей командой в обработчике события onLoad.<br><br> AlarmCtl.CountDown =<br><br> True<br><br> Свойство AlarmTime не может быть установлено в режиме разработки — только в сценарии страницы.<br><br> Когда истечет указанный промежуток времени, будет инициировано событие AlarmTime. В его обработчике нужно запрограммировать броузер на переход на другую страницу с использованием метода Window.Navigate.<br><br> <b>Программа 19.2.</b> Страница Alarm.htm<br><br> <HTML><br><br> <head> <link rel="canonical" href="https://www.e-lave.ru//index.htm"/><br><br> <SCRIPT LANGUAGE="VBScript"><br><br> Sub window_onLoad()<br><br> AlarmCtl.AlarmTime = Time + #00:01.00#<br><br> Call AlarmCtl.StartTimer() <br><br> End Sub<br><br> <br> Sub AlarmCtl_TimeOut()<br><br> Call window.navigate ("http://www.sybex.corn") <br><br> End Sub <br><br> </SCRIPT><br><br> <TITLE>Alarm Demo Page</TITLE> <br><br> </HEAD> <br><br> <BODY><br><br> <OBJECT id="AlarmCtl " NAME="AlarmCtl"<br><br> classid="clsid:7282EB2E-B8A9-llCF-B2FB-005348C101FC"<br><br> border="0"<br><br> width="120" heigth="33"><br><br> <PARAM NAME="CountDown" value="True"><br><br> </OBJECT><br><br> <CENTER><br><br> <Hl>The Alarm Page Demo</Hl><br><br> <FONT SIZE=4><br><br> You will be given 60 seconds to read the important information on<br><br> this page and then you'll be taken to our home page.<br><br><br> The little alarm clock at the top of the page will count down every<br><br> second and when it reaches zero, your computer will be connected to<br><br> SYBEX home page.<br><br> <FONT SIZE = 3><br><br> <HR><br><br> If you are not connected to the Internet, you'll get an error message<br><br> instead.<br><br> <HR><br><br> </BODY><br><br> </HTML><br><br> Это HTML-код, создающий страницу, показанную на рис. 19.8.   HTML-теги просты, и даже при слабом знакомстве с HTML этот код понять просто.       Чтобы увидеть этот элемент управления в действии, выполните следующее.<br><br> <b>1</b>. Откройте Internet Explorer.<br><br> <b>2</b>. Выберите команду Open в меню File, и в диалоговом окне откройте файл Alarm.htm.<br><br> <b>3</b>. Подождите 60 секунд, и сценарий загрузит домашнюю страницу SYBEX.<br><br> Элемент управления Alarm хорошо работает в Internet Explorer, и нет необходимости в его доработке. Он ведет себя точно так, как в среде Visual Basic. Он предоставляет свои свойства и методы, а его события можно программировать.<br><br> <b>Страница UINPUT.HTM</b><br><br> Страница UINPUT.HTM (рис. 19.9) демонстрирует использование элемента управления ActiveX CTextBox на Web-странице. Воспользуйтесь схемой из предыдущего параграфа для создания с помощью Frontpage определения тега <OBJECT>, a затем добавьте текст и HTML-теги Тег <OBJECT> для вставки элемента управления CTextBox показан ниже.<br><br> <OBJECT id="CTextBox"<br><br> <br> NAME= "CTextBoxl"<br><br> classid="clsid 7282EB5A-B8A9-11CF B2FB-005348C101FC"<br><br> border="0"<br><br> WIDTH="150" HEIGHT="19"><br><br> </OBJECT><br><br> <div style="text-align:center;"><img src="image/index-image136.gif" alt="Пользовательские элементы управления ActiveX на Web-страницах"></div><br><br> <b>Рис. 19.9.</b> Страница UINPUT HTM использование элемента управления CTextBox для получения от пользователя обязательных и необязательных данных<br><br> Сценарий страницы прост. Он инициализирует элементы управления, задавая их свойства Mandatory и Text.<br><br> Sub window_onLoad()<br><br> CTextBox1.Mandatory=1 <br><br> CTextBox2.Mandatory=1 <br><br> CTextBox6.Mandatory=1 <br><br> CTextBox1.Text=" " <br><br> CTextBox2.Text=" " <br><br> CTextBox3.Text=" " <br><br> CTextBox4.Text=" "<br><br> CTextBox5.Text=" " <br><br> CTextBox6.Text=" " <br><br> EndSub<br><br> Если эти элементы управления используются для сбора данных от пользователя, то на форме будет кнопка Submit. Чтобы до передачи данных на сервер удостовериться, что требуемым полям присвоены значения, используйте событие onClick кнопки. На компакт-диске находится страница LABEL3D.HTM, которая использует пользовательский элемент управления FLXLabel (гл. 16) для отображения выпуклого и тисненого текста в окне броузера. Чтобы протестировать элемент управления FLXLabel на Web-странице, необходимо зарегистрировать элемент управления в системе, а затем разместить на странице атрибут CLASSID элемента управления со значением, заданным Visual Basic.<br><br> <h1>Пример организации связывания и встраивания</h1> Давайте рассмотрим пример реализации связывания и встраивания с точки зрения пользователя. Чтобы создать составной документ с помощью программы WordPad, необходимо выполнить следующие действия.<br> 1. Запустите редактор WordPad с помощью меню Start (Пуск)/<br> 2. Выберите команду Object (Объект) в меню Insert (Вставка), чтобы вызвать на экран диалоговое окно Insert Object (Вставка объекта), как показано на рис. 14.2.<br> 3. Установите переключатель в положение Create from File (Создать из файла), а затем щелкните на кнопке Browse (Обзор).<br> 4. В диалоговом окне Browse (Обзор) (идентичном диалоговому окну File Open (Открыть)) выберите растровое изображение и щелкните на кнопке ОК. Выбранное изображение будет встроено в документ WordPad.<br> Если сохранить этот документ, то в нем сохранится растровое изображение. При этом WordPad будет выполнять функции приложения-контейнера, содержащего растровый объект, сохраненный вместе с документом. Если пользователь будет редактировать исходное растровое изображение, то его копия, вставленная в документ WordPad, не изменится.<br> <b>Inseil Object</b><br> <div style="text-align:center;"><img src="image/primer-organizacii-svjazyvanija-i-vstraivanija_1.gif" alt="Пример организации связывания и встраивания"></div><br> <b>Рис. 14.2.</b> Диалоговое окно Insert Object (Вставка объекта) позволяет выбрать существующий объект (или создать новый) и встроить его (или связать) с текущим документом<br> Если установить переключатель в положение Create New (в диалоговом окне Insert Object (Вставка объекта)), то на экране появится прокручивающийся список объектов, доступных системе. Каждое приложение, выполняющее функции приложения-сервера, регистрирует предоставляемые объекты в системе, чтобы приложения-контейнеры могли ими воспользоваться. Когда вы вставляете объект, приложение для работы с ним запускается автоматически при открытии каждого нового документа. Вернемся в диалоговое окно Insert Object (Вставка объекта), установим переключатель в положение Create New (Создать новый) и выберем из списка Object Types объект Bitmap Image (Растровое изображение). По умолчанию предполагается, что растровые изображения создаются в программе Paint. Если в системе не была заменена прикладная программа для создания и обработки растровых изображений, то WordPad установит связь с Paint и выведет на экран ее интерфейс пользователя Меню WordPad будет заменено на меню Paint, и на экране появится панель инструментов Paint (рис. 14.3). Теперь можно создать новое растровое изображение, пользуясь средствами Paint, но этот процесс будет происходить в WordPad. При этом не нужно запускать другое приложение, копировать растровое изображение, а затем вставлять его в ваш документ.<br> <br> Независимо от того, какое было вставлено растровое изображение — новое или уже существующее — для его редактирования достаточно выполнить двойной щелчок в области изображения. Операционная система обращается к Registry (Реестру), чтобы найти приложение, ассоциированное с растровым изображением. По умолчанию — это программа Paint, которая поставляется вместе с Windows. Если эта установка не была изменена, то будет запушено приложение Paint и вместо меню и панели инструментов WordPad появится меню Paint (рис 14.3). (Если же эта установка была изменена, то будет запущено иное приложение). Теперь можно отредактировать растровое изображение, а затем возвратиться в основной документ щелкнув за пределами растрового изображения. В нашем случае, приложение Paint является приложением-сервером, которое "знает", как обрабатывать растровые изображения.<br> <div style="text-align:center;"><img src="image/primer-organizacii-svjazyvanija-i-vstraivanija_2.gif" alt="Пример организации связывания и встраивания"></div><br> Рис. 14.3. Меню и панели инструментов приложения-контейнера (WordPad) заменяются меню и панелями инструментов приложения-сервера (Paint)<br> Растровое изображение, помещенное в документ WordPad, и растровое изображение, содержащееся на дисковом файле - это два отдельных объекта. Можно изменять этот файл на диске, заменять его другим, можно даже удалить его — на содержимое документа WordPad это не повлияет. В документе WordPad содержится копия растрового изображения.<br> Поскольку можно редактировать встроенный объект в том окне, в котором он находится, не нужно знать, с помощью какой программы был создан объект, и не нужно работать с этим объектом в отдельном окне. Одно из преимуществ такого подхода — упрощается выполнение операции масштабирования объекта по отношению к окружающему тексту.<br> Если в диалоговом окне Insert Object (Вставка объекта) установить флажок Link (Связать), то объект в документе WordPad будет связан с исходным объектом. При связывании объекта в системе будет только один объект (файл, содержащий растровое изображение. При этом в документе WordPad будет содержаться ссылка на него, а не копия объекта. Тот же объект может быть связан с другим документом, возможно, с другим приложением. Независимо от количества документов, ссылающихся на данный объект, в системе будет находиться только один исходный объект. Если его изменить, то во всех документах, ссылающихся на него, появится уже измененная версия объекта (рис. 14.4).<br><div style="text-align:center;"><img src="image/primer-organizacii-svjazyvanija-i-vstraivanija_3.gif" alt="Пример организации связывания и встраивания"></div><br> Рис. 14.4. Во время редактирования связанного объекта средствами приложения-сервера, связанное с ним изображение в приложении-контейнере также модифицируется по мере редактирования исходного объекта<br> Примечание<br> Если объект, вставленный в приложение-контейнер, связан с исходным объектом (файлом-источником), то его нельзя отредактировать из приложения-контейнера. Это можно сделать из приложения-сервера. Сущность связывания заключается в том, что пользователь не может редактировать объект из какого-либо приложения. В памяти компьютера находится только один экземпляр объекта, и его можно изменить только с помощью программы, в которой он был создан. Как только объект будет изменен, все программы, имеющие на него ссылки, также изменятся.<br><br> <h1>Присоединение запросов к базе данных</h1> Рассмотрим процесс определения запроса с помощью SQL-операторров и присоединения их к базе данных. Выполните следующие действия.<br> <b>1</b>. Запустите Visual Data Manadger и откройте базу данных BIBLIO.<br> <b>2</b>. В окне Database щелкните правой кнопкой мыши на запросе All Titles и из контекстного меню выберите команду Design.Visual Data Manadger отобразит другое окно с определением запроса (рис. 17.18).<br> <div style="text-align:center;"><img src="image/prisoedinenie-zaprosov-k-baze-dannyh_1.gif" alt="Присоединение запросов к базе данных"></div><br> <b>Рис. 17.18.</b> Кроме таблиц, база данных содержит запросы — SQL-операторы, входящие в проект базы данных<br> Примечание<br> Как видите, при открытии окна Database иконка запроса отличается от иконки таблицы.<br> Имя запроса появляется в свойстве RecordSource элемента управления Data, соединенного с базой данных BIBLIO. Позже мы используем этот запрос, чтобы модифицировать приложение ManyTbIs. Но сначала рассмотрим инструментальные средства Visual Data Manager для построения SQL-запросов.<br> <b>Построение SQL-запросов</b><br> Если SQL кажется вам сложным для изучения, то знайте: Visual Data Manager позволяет создавать простые SQL-операторы с помощью мыши. Щелкните правой кнопкой мыши в окне Datadase и из контекстного меню выберите New Query (Новый запрос), чтобы открыть окно Query Builder (Конструктор запросов) (рис. 17.19).<br> <div style="text-align:center;"><img src="image/prisoedinenie-zaprosov-k-baze-dannyh_2.gif" alt="Присоединение запросов к базе данных"></div><br> <b>Рис. 17.19.</b> Query Builder: построение SQL-операторов с помощью мыши<br> Используем Visual Data Manager для построения простых SQL-операторов. Выполните следующие действия, чтобы создать запрос, выбирающий названия всех изданий и их издателей.<br> <b>1</b>. Выберите имена таблиц Publishers и Titles, щелкнув кнопкой мыши на их именах в списке Tables (Таблицы). Поля выбранных таблиц появятся в списке Field to Show (Показывать поля).<br> <b>2</b>. Щелкните на именах полей, которые необходимо включить в запрос (в RecordSet, который этот запрос возвратит). Щелкните на следующих именах полей Titles Title, Titles [Year Published] и Publishers Name.<br> Построим наиболее сложную часть SQL-оператора. Щелкните на кнопке Set Table Joins (Установить связи между таблицами) для задания объединения (чтобы определить, как таблицы будут объединены) Visual Data Manager не использует оператор JOIN. Он реализует объединения с помощью ключевого слова WHERE, а это означает, что на этот инструмент нельзя полагаться при создании усовершенствованных запросов.<br> <br> <b>3</b>. В списке Select Table Pair (Выбрать пары таблиц) щелкните на именах таблиц Titles и Publishers. Поля обеих таблиц появятся в списках под заголовком Select Fields to Join On (Выбрать поля для объединения), как показано на рис. 17.20.<br><br> <div style="text-align:center;"><img src="image/prisoedinenie-zaprosov-k-baze-dannyh_3.gif" alt="Присоединение запросов к базе данных"></div><br><br> <b>Рис. 17.20.</b> Диалоговое окно Join Tables: позволяет определить внутренние объединения<br><br> <b>4</b>. Щелкните на поле PubID в обоих списках. Таблицы Titles и Publishers объединятся по значению поля PubID.<br><br> <b>5</b>. Щелкните на кнопке Add Join to Query (Добавить объединение к запросу), чтобы добавить в запрос объединение.<br><br> <b>6</b>. Щелкните на кнопке Close, чтобы возвратиться в окно конструктора запросов Query Builder. Запрос определен.<br><br> <b>7</b>. Щелкните на кнопке Show, чтобы отобразить SQL-оператор, или на кнопке Run, чтобы выполнить его. После сообщения о том, является ли данный запрос SQLPassThrough-запросом, щелкните на кнопке No. Появится новая форма с элементом управления Data, позволяющим перемещаться по выбранным записям.<br><br> <b>8</b>. Для присоединения запроса к базе данных щелкните на кнопке Save. Visual Data Manager запросит имя запроса и присоединит его к базе данных. В следующий раз при подключении элемента управления Data к базе данных в списке доступных элементов RecordSource появится имя запроса.<br><br> Можно использовать конструктор запросов Query Builder, чтобы определить критерии выбора, реализуемые с помощью ключевого слова WHERE для группирования и упорядочивания результатов запроса, а также ограничения размера RecordSet (если он слишком большой).<br><br> Чтобы добавить критерий выбора, выберите имя поля в списке Field Name, задайте операцию и определите значение в поле Value. Если вы не помните значение определенного поля, то щелкните на кнопке List Possible Values (Список возможных значений) и Visual Data Manager выведет все значения указанного списка.<br><br> SQL-операторы, сгенерированные конструктором запросов Query Builder, просты и пригодны для несложных запросов. Например, конструктор запросов Query Builder не создает множественные объединения. Но всегда можно отредактировать SQL-оператор (открывая запрос в режиме разработки) и добавить в него ключевые слова. Если необходимо создать SQL-оператор, а вы еще свободно не владеете SQL-языком, то используйте более совершенный инструмент, например, MS Access.<br><br> <br> <b>VB6 в действии: проект SQLTbIs (модификация ManyTbIs)</b><br><br> Приложение ManyTbIs объединяет все таблицы базы данных<br><br> BIBLIO для отображения названий книг с именами авторов и издателей. В нем используется метод Seek для объединения таблиц не потому, что это наиболее эффективная реализация, а чтобы продемонстрировать использование индексов в методе Seek. Реализуем подобное приложение, но для определения RecordSet с необходимыми полями будем использовать SQL-операторы. Выполните следующие действия.<br><br> <b>1</b>. Откройте приложение ManyTbIs, сохраните его как<b> SQLTbIs</b> (измените имя формы на<b> SQLTbIs)</b> и поместите его в новую папку.<br><br> <b>2</b>. Удалите все элементы управления Data формы и разместите на ней новый элемент управления Data. Назовите его<b> TITLES</b> и присвойте его свойству Caption значение<b><br><br> Titles-Authors-Publishers.</b><br><br> <b>3</b>. Соедините этот элемент управления с базой данных BIBLIO, указав в свойстве DatabaseName путь к базе данных.<br><br> <b>4</b>. Откройте список свойства RecordSource и выберите All Titles. Это имя SQL-запроса в базе данных, который возвращает необходимый RecordSet (названия изданий, их авторов и издателей).<br><br> <b>5</b>. Так как RecordSet создан с помощью SQL-оператора, то он является набором записей типа DynaSet, и для элемента управления Data необходимо установить свойство RecordSetType в<b> 1-DynaSet.</b><br><br> <b>6</b>. Теперь откорректируйте свойства DataSource и DataFields элементов управления, размещенных на форме, чтобы они были связаны с соответствующими полями RecordSet через элемент управления Datal. Для этого необходимо установить их свойство DataSource в значение<b><br><br> Datal,</b> а свойство DataField - в<b> Title, Company Name, Year Published и Author.</b><br><br> <b>7</b>. Последние два поля на основной форме приложения (Descriptions и Comments) не являются частью запроса All Titles, поэтому удалите их из формы. Можно изменить запрос или создать новый (который содержит эти поля), основанный на запросе All Titles.<br><br> <b>8</b>. Удалите весь код в приложении: он больше не нужен.<br><br> В действительности, SQL-оператор выполняет функции кода приложения, но этот подход компактнее и эффективнее.<br><br><br> <h1>Проектирование иерархии объектов</h1> Command<br> Проект, называющийся DataRep, находится в папке этой главы на компакт-диске. В этом параграфе созданы несколько объектов Command, организованных в иерархическую структуру. Названия всех компаний содержатся в таблице Customers. Найдем для каждой компании выписанные ею счета и общее их количество. А для каждого счета - его подробное описание и итоги. Отобразим иерархию записей с помощью элемента управления Grid (элемент управления типа MSHFlexGrid). Элемент управления MSHFlexGrid похож на элемент управления MSFlexGrid, однако предназначен для использования с базами данных и с иерархией элементов управления Command.<br> Первая колонка содержит имена компаний, вторая — количество счетов для каждой компании, третья - итоговую сумму по всем счетам компании. Последующие колонки должны показывать номер счета, дату заказа и сумму заказа. На рис. 18.2 представлены данные, отображаемые в элементе управления MSHFlexGrid. Обратите внимание, что детали некоторых из заказчиков скрыты. Символ плюса перед именем заказчика означает, что строки с деталями могут быть раскрыты.<br> <div style="text-align:center;"><img src="image/proektirovanie-ierarhii-obektov_1.gif" alt="Проектирование иерархии объектов"></div><br> <b>Рис. 18.2.</b> Иерархия объектов Command (заказчики-счета-сумма), отображаемые в элементе управления FlexGnd<br> Выполните следующие действия.<br> <b>1</b>. Откройте новый Data-проект и создайте объект Connection для базы NWIND, как показано в последнем параграфе.<br> <b>2</b>. Добавьте новый объект Command (Commandl), откройте диалоговое окно его свойств (щелкните правой кнопкой на имени Commandl и выберите Properties).<br> <b>3</b>. В окне Properties объекта Commandl установите значение свойства Connection в Connection 1 и выберите Source of Data (Источник данных).<br> Имена компаний приведены в таблице Customers базы данных NWIND, поэтому выберите строку Table в списке Database Object и Customers - в списке Object Name. После выбора Table в первом раскрывающемся списке появятся имена всех таблиц.<br> Мы хотим получить счета каждого заказчика. Это означает, что необходимо создать новый объект Command, который будет принадлежать уже созданному объекту Commandl, те будет дочерним для объекта Commandl. Commandl содержит данные о заказчиках, а дочерний объект — счета заказчиков.<br> <br> <b>4</b>. Щелкните правой кнопкой в окне DataEnvironment на объекте Commandl и выберите из контекстного меню команду Child.<br><br> Новый объект Command будет назван Command2. Так как Command2 — это дочерний объект Command1, то для него выполняется точно такое же подключение, как и для объекта Command1. Поэтому окно Connection недоступно. Дочерний объект Command не может иметь собственного подключения. В нашем случае дочерний объект Command возвращает счета из таблицы Orders.<br><br> <b>5</b>. Выберите строку Table в списке Database Object и укажите Orders — в списке Object Name.<br><br> Так как Command2 — это дочерний объект, то необходимо установить связь (relation) с его с родительским объектом.<br><br> <b>6</b>. Переключитесь на вкладку Relation диалогового окна Properties объекта Command2 и выберите Command 1 в качестве родительского объекта в пункте Parent Command (рис. 18.3).<br><br> Отношения между объектами определены. Таблицы Customers и Orders используют поле CustomerID в качестве связующего.<br><br> <b>7</b>. Выберите значение CustomerID в списках ParentFields и Child Fields/Parameters и щелкните на кнопке Add. В текстовом поле внизу будет показана связь поля CustomerID таблицы Customers с полем CustomerID таблицы Orders.<br><br> Добавьте следующий дочерний объект Command, принадлежащий Command2.<br><br> <div style="text-align:center;"><img src="image/proektirovanie-ierarhii-obektov_2.gif" alt="Проектирование иерархии объектов"></div><br><br> <b>Рис. 18.3.</b> Вкладка Relationship: определение отношении между дочерними и родительскими объектами Command<br><br> <b>8</b>. Щелкните правой кнопкой на объекте Command2 в окне DataEnvironmentI, выберите команду Child и откройте диалоговое окно Properties для нового объекта Command.<br><br> Новый объект Command будет возвращать сумму для каждого счета. Сумма не хранится в таблице базы данных NWIND. Она вычисляется с использованием SQL-оператора. Так как сумма счета часто пересчитывается, то в качестве источника данных следует выбрать View (Просмотр). Это эквивалентно тому, что значение OrderSubtotals будет вычисляться с помощью SQL-оператора всякий раз, когда это требуется. Результатом этого вычисления будет набор записей, как если бы источником данных была таблица. Разумеется, значения, представленные как View, не могут редактироваться.<br><br> <br> <b>9</b>. Выберите View в списке Database Object, а в списке Object Name укажите Ок. Subtotals<br><br> Диалоговое окно свойств объекта Commands должно выглядеть так, как показано на рис. 18.4.<br><br> Следующая задача - добавление отношений между объектом<br><br> Commands и его родительским объектом Command2. Для этого выполните следующие действия.<br><br> <b>1</b>. На вкладке Relation определите Command2 в качестве родительского объекта и выберите поле OrederID в обоих списках области Relationship Definition (рис. 18.5).<br><br> <b>2</b>. Чтобы добавить отношение, щелкните на кнопке Add.<br><br> Мы создали иерархию объектов Command: суммы счетов были подключены к группам счетов, которые, в свою очередь, подключены к заказчикам. Зададим способ подведения итогов. Сумма (или итог) обычно задается вначале определения дочернего объекта. Выполните следующие действия.<br><br> <b>1</b>. В диалоговом окне Command2 выберите вкладку Aggregates (Итоги).<br><br> <b>2</b>. Создайте новый итог и назовите его<b> Order Total</b> (щелкните на кнопке Add и укажите<b> Order Total</b> в приглашении ввода имени нового итога).<br><br> <b>3</b>. Для вычисления суммы используется функция SUM, поэтому выберите Sum в списке Function Нам необходимо добавить сумму всех счетов к объекту Commands, который хранит все детали счетов.<br><br> <b>4</b>. Выберите объект Commands в списке Aggregate On и имя Subtotal в списке Field.<br><br> <div style="text-align:center;"><img src="image/proektirovanie-ierarhii-obektov_3.gif" alt="Проектирование иерархии объектов"></div><br><br> <b>Рис. 18.4.</b> Источник данных объекта Command3<br><br> OrderTotal — это имя итогового значения, вычисляемого для каждого счета. Это значение содержит суммы по всем счетам, выбранным с помощью элемента управления Command2 (рис. 18.6). По отношению к элементу Command2, OrderTotal – одно из полей его набора записей (RecordSet).<br><br> <div style="text-align:center;"><img src="image/proektirovanie-ierarhii-obektov_4.gif" alt="Проектирование иерархии объектов"></div><br><br> <b>Рис. 18.5.</b> Отношение объекта Commands к родительскому объекту<br><br> <div style="text-align:center;"><img src="image/proektirovanie-ierarhii-obektov_5.gif" alt="Проектирование иерархии объектов"></div><br><br> <b>Рис. 18.6.</b> Вкладка Aggregates объекта Command2<br><br> Задайте способ подведения итогов для объекта Command 1. Выполните следующие действия.<br><br> <b>1</b>. Откройте диалоговое окно свойств Command 1 и выберите вкладку Aggregates.<br><br> <b>2</b>. Добавьте новый итог и назовите его TotalOrders. Сумма TotalOrders — количество счетов на каждого заказчика.<br><br> <br> <b>3</b>. Выберите Count в списке функций (необходимо посчитать количество счетов, а не их сумму), a Command2 в списке Aggregates и укажите OrderID в списке Field.<br><br> Итог TotalOrders вычисляет количество всех счетов в RecordSet объекта Comnnand2 для каждого заказчика. На рис. 18.7 показано задание способа вычисления первого итога объекта Command 1.<br><br> <div style="text-align:center;"><img src="image/proektirovanie-ierarhii-obektov_6.gif" alt="Проектирование иерархии объектов"></div><br><br> <b>Рис. 18.7.</b> Закладка Aggregates объекта Command 1<br><br> Вычислите полный итог по всем счетам для каждого заказчика. Выполните следующие действия.<br><br> <b>1</b>. Добавьте новый итог с именем CustomerTotal.<br><br> <b>2</b>. На этот раз необходимо добавить частичный итог для всех счетов. Для этого выберите функцию SUM, затем в списке Aggregate On - Command2, и в списке Field - OrderTotal.<br><br> OrderTotal — это еще один итог, определенный для объекта Command2. По отношению к объекту Objecti, OrderTotal является одним из его полей. После определения всех итогов окно DataEnvironmentI конструктора ActiveX выглядит так, как показано на рисунке 18.8. С помощью вертикальной полосы прокрутки можно увидеть итоги для каждого из объектов — они находятся под соответствующими объектами Command.<br><br> <div style="text-align:center;"><img src="image/proektirovanie-ierarhii-obektov_7.gif" alt="Проектирование иерархии объектов"></div><br><br> <b>Рис. 18.8.</b> Окно DataEnvironment после определения всех итогов<br><br> Мы построили объекты Command, которые возвращают нужные записи из базы данных, и определили отношения между ними. Теперь нужно вывести данные на форму. Способы вывода данных на форму описаны в следующих параграфах.<br><br><br> <h1>Проектирование с использованием конструктора</h1> ActiveX DataEnvironment<br> Создадим простое приложение для работы с базами данных с использованием конструктора ActiveX DataEnvironment. Проект Denvl — это простая форма, которая позволяет перемещаться по записям таблицы Customers в базе данных NWIND. Для разработки формы, показанной на рис. 18.1, нужно выполнить подключение к базе данных NWIND, затем получить данные из таблицы Customers и отобразить их в элементах управления, связанных с данными.<br> Для этого необходимо выполнить следующие действия.<br> <b>1</b>. Открыть новый проект и в окне типа проекта выбрать Data Project.<br> <b>2</b>. Выполнить двойной щелчок на объекте DataEnvironmentI в проводнике проекта, для того чтобы открыть окно DataEnvironment.<br> <div style="text-align:center;"><img src="image/proektirovanie-s-ispolzovaniem-konstruktora_1.gif" alt="Проектирование с использованием конструктора"></div><br> <b>Рис. 18.1.</b> Проект Denv1: основы использования конструктора элементов ActiveX DataEnvironment<br> <div style="text-align:center;"><img src="image/proektirovanie-s-ispolzovaniem-konstruktora_2.gif" alt="Проектирование с использованием конструктора"></div><br> Окно приложения DataEnvironment содержит объект<br> Connection и один или больше объектов Commandю Папка Commands пуста, но она будет заполнена позже при создании объектов Commandю<br> <b>3</b>. Щелкните правой кнопкой мыши на объекте Connection 1 и выберите Properties из контекстного меню, чтобы открыть окно Data Link Properties. Используйте вкладки в этом окне для задания базы данных, к которой нужно подключиться.<br> <b>4</b>. На вкладке Provider выберите драйвер связи между приложением и базой данных.<br> Большинство баз данных использует OLE DB-провайдер, являющийся для баз данных тем же, чем является OLE для других приложений. Выберите Microsoft OLE DB-Provider. Это простейший провайдер, который подключает приложение к базам данных Microsoft Access.<br> <b>5</b>. Выберите вкладку Connection.<br> <div style="text-align:center;"><img src="image/proektirovanie-s-ispolzovaniem-konstruktora_3.gif" alt="Проектирование с использованием конструктора"></div><br> <b>6</b>. Щелкните на кнопке с многоточием, чтобы указать путь к базе данных NWIND (в папке VB98).<br> <b>7</b>. Щелкните на кнопке Test Connection, чтобы убедиться в том, что подключение работает.<br> <b>8</b>. Если база данных требует указания имени пользователя и пароля, то будет выдано приглашение для их ввода. Введите ту же информацию в соответст вующие редактируемые поля вкладки Connection.<br> <b>9</b>. Выберите вкладку Advanced, чтобы выбрать способ открытия базы данных и опции доступа к ней для других пользователей.<br> <br> <b>6</b>. Щелкните на кнопке ОК, чтобы перейти к окну DataEnvironmentI, в котором информация представлена в виде дерева.<br><br> <b>7</b>. Нажмите на знаке плюс перед объектом Command 1, чтобы отобразить имена полей таблицы Customers.<br><br> <b>8</b>. Выберите форму проекта (если вы не переименовывали ее, то это Form1).<br><br> <b>9</b>. Перетащите на форму объект Command 1 из окна DataEnvironmentI. Visual Basic создаст столько пар "метка-текстовое поле", сколько понадобится для отображения всех полей объекта Command 1. Если вы не хотите, чтобы были показаны все поля, перетащите только выделенные поля.<br><br> <b>10</b>. Выберите форму и разместите на ней элементы управления. В этой форме отсутствуют кнопки навигации. Разместите четыре кнопки на форме (см. рис. 18.1) и введите следующие команды для их событий Click.<br><br> <b>Программа 18.1.</b> Программирование кнопок навигации<br><br> Private Sub Commandl_Click ()<br><br> DataEnvironment1.rsCommand1.MoveFirst <br><br> End Sub<br><br> Private Sub Command2_Click()<br><br> If DataEnvironment1.rsCommand1.BOF Then<br><br> Beep <br><br> Else<br><br> DataEnvironment1.rsCommand1.MovePrevious<br><br> If DataEnvironment1.rsCommand1.BOF Then<br><br> DataEnvironment1.rsCommand1.MoveFirst<br><br> End If <br><br> End If <br><br> End Sub<br><br> Private Sub Command3_Click()<br><br> If DataEnvironment1.rsCommand1.EOF Then<br><br> Beep <br><br> Else<br><br> DataEnvironment1.rsCommand1.MoveNext<br><br> If DataEnvironment1.rsCommand1.EOF Then<br><br>                 DataEnvironment1.rsCommand1.MoveLast<br><br>            End If <br><br> End  If <br><br> End Sub<br><br> Private    Sub Command4_Click ()<br><br> DataEnvironment1.rsCommand1.MoveLast <br><br> End Sub<br><br> Если вы прочитали предыдущую главу, то вам должен быть понятен этот код. Объект DataEnvironmentI предоставляет набор данных rsCommandl типа RecordSet, который содержит записи, извлеченные из таблицы Customers объектом Command 1. Имя набору данных назначается автоматически в соответствии с именем объекта Command (с префиксом "rs"). Объект DataEnvironmentI.rsCommandl — это набор данных, который поддерживает большую часть методов и свойств объекта DAO.<br><br> Для перемещения по записям используются методы Move (MoveFirst, MoveNext, MovePrevious и MoveLast). Чтобы предотвратить перемещение к несуществующей записи (перед первой или после последней), проверьте свойства BOF и EOF набора данных rsCommand 1.<br><br>Совет<br><br> Информация о свойствах EOF и BOF и об их использовании методами приведена в гл. 17.<br><br> Используя конструктор ActiveX DataEnvironment и несколько строк кода, можно разработать форму, способную перемещаться по набору записей. Этот пример не производит должного впечатления. Используя элемент управления Data это можно сделать гораздо быстрее. В следующем примере создается более сложный объект Command способом комбинирования трех таблиц из одной и той же базы данных (и все внутри конструктора ActiveX DataEnvironment) без единой строки кода.<br><br><br> <h1>Программирование операции перетаскивания для вставки объектов</h1> OLE-операции Drag-and-Drop (Перетащить-и-опустить) удобнее задавать в тексте программы, а не определять автоматически. Проект OLEDDMAN (папка OLEDD на компакт-диске) имеет тот же интерфейс, что и проект OLEDDAUTO, но в нем установлено значение Manual свойства OLEDropMode. Значение своиства OLEDragMode элемента управления TextBox установлено в Automatic, поэтому для инициализации операции писать программу не требуется. То же относится и к элементам управления RichTextBox и PictureBox.<br> Каждый из элементов управления определяет, когда на него опущен объект, и реагирует соответствующим образом. Рассмотрим самый простой элемент управления — TextBox. Когда на него опущен объект, происходит событие OLEDragDrop, эквивалентное событию DragDrop. Событие OLEDragDrop определяется следующим образом:<br> Private Sub Textl_OLEDragDrop^(Data As Data0b]ect, _<br> Effect As Long, Button As Integer, Shift As Integer, _ <br> x As Single, у As Single)<br> Data - это переменная, описывающая объект, который был опущен. Эта переменная имеет несколько свойств для доступа к объекту (они рассматриваются вкратце). Effect — константа, которая определяет тип перемещения (операция Move или Copy). Параметр Button<br> описывает кнопку, щелчок на которой инициализирует операцию помещения объекта; параметр Shift<br> содержит информацию о состоянии клавиш управления Shift, Alt и Ctrl. Последние два параметра - координаты точки, в которую помещается скопированный или перемещенный объект.<br> Методы, применяемые при работе с объектами типа Data подобны методам, используемым при работе с буфером обмена Clipboard. Метод GetFormat позволяет определить формат данных. При этом он не возвращает тип данных. При его вызове необходимо указывать предполагаемый тип данных, и если он соответствует указанному, то возвращается значение True, в противном случае — False. Чтобы выяснить, содержит ли объект Data текст, следует воспользоваться следующим оператором If:<br> If Data.GetFormat(vbCFText) Then<br> {обработка текста} <br> End If<br> (Константы, описывающие различные типы данных, точно такие же, как и используемые при работе с буфером обмена.)<br> <br> Чтобы получить сами данные, следует использовать метод GetData. Этот метод возвращает объект, который должен быть присвоен соответствующей переменой. Если данные являются текстом, можно присвоить значение, возвращенное методом GetData, свойству Text элемента управления TextBox. Если данные — растровое изображение, то можно присвоить их свойству Picture того элемента управления, который может выводить изображение.<br><br> Синтаксис метода GetData имеет вид:<br><br> Data.GetData(format)<br><br> где<br><br> formal — константа, которая определяет желаемый формат данных. Один и тот же объект может иметь различные форматы. Выделив абзац из документа Word, можно поместить его в окно элемента управления TextBox как текст, а в окно элемента управления RichTextBox - как сформатированный текст. Данные как таковые могут быть восстановлены во множественных форматах, в зависимости от возможностей элемента-получателя. Метод EditCopy элемента управления Graph работает точно так же (рассматривается в Приложении В "The MSChart Control" ("Элемент управления MSChart")). Он копирует текущее изображение из окна элемента управления Graph. Эти данные могут быть вставлены либо как растровое изображение в рабочее окно графического редактора, или как текст — в окно текстового редактора.<br><br> Если пользователь поместил один или несколько файлов на элемент управления (значение выражения GetFotmat(vbCFFiles)<br><br> равно True), можно воспользоваться семейством Files объекта Data, чтобы получить названия этих файлов:<br><br> If Data.GetFormat(vbCFFiles) Then<br><br> For i = 1 To Data.Files.Count<br><br> {обработка файла Data.Files(i)) }<br><br> Next <br><br> End If<br><br> Ниже приводится текст обработчика OLE — операции перетащить-и-опустить для окна элемента управления TextBox:<br><br> Private Sub Textl_OLEDragDrop(Data As Data0b]ect, _<br><br> Effect As Long, Button As Integer, Shift As Integer, _ <br><br> x As Single, у As Single) <br><br> Dim pie As Picture<br><br> If Data GetFormat(vbCFFlles) Then<br><br> Text1.Text   "You dropped the following files " & vbCrLf<br><br> ' (Вы поместили следующие файлы) <br><br> <br> For i =  1 To Data Files Count<br><br> Textl.Text = Textl Text & Data.Files(i) & vbCrLf <br><br> Next <br><br> End If <br><br> If Data.GetFormat(vbCFRTF) Then<br><br> Text1.Text = Data.GetData(vbCFText)<br><br> End If <br><br> If Data GetFormat(vbCFBitmap) Then<br><br> imgWidth = Round(ScaleX(Data GetData _<br><br> (vbCFBitmap).Width, vbHimetric, vbPixels)) <br><br> imgHeight - Round(ScaleY(Data GetData _<br><br> (vbCFBitmap) Height, vbHimetric, vbPixels)) <br><br> Textl.Text = " You dropped an image with the folowing _<br><br> specifications:" & vbCrLf <br><br> ' (Вы поместили изображение со следующими параметрами:)<br><br> Text1.Text = Textl.Text & "WIDTH " & imgWidth & vbCrLf <br><br> Text1.Text = Textl.Text & "HEIGHT " & imgHeight <br><br> End If<br><br> Если поместить один или несколько файлов в окно элемента управления TextBox, то будут перечислены их имена. Если вы перетащили текст из элемента управления RichTextBox, то этот же самый текст появится в окне элемента TextBox не отформатированным. И, наконец, если поместить в TextBox изображение из элемента управления PictureBox, то будут выведены характеристики изображения. Следует обратить внимание на то, как программа передает размеры изображения. Объект, полученный в результате применения метода GetData, является объектом типа Picture, следовательно, можно обратиться к его свойствам Width и Height, чтобы получить значения размеров объекта.<br><br> Текст обработчика события OLEDragDrop элемента управления RichTextBox напоминает фрагмент, приведенный выше. Однако элемент управления RichTextBox воспринимает большее количество типов данных и реагирует на них по-разному Можно открыть соответствующий проект в Visual Basic и исследовать текст программы. Если попытаться поместить изображение в окно элемента управления RichTextBox, то в результате будет получено сообщение об ошибке. Следующий фрагмента программы должен бы выполнить вставку растрового изображения в RichTextBox, но этого не происходит. Во время выполнения программы вместо перемещения изображения выдается сообщение об ошибке.<br><br> If Data.GetFormat(vbCFBitmap) Or Data.GetFormat(vbCFDIB) Then<br><br> <br> RichTextBox1.OLEObjects.Add, , Data.GetData(vbCFDIB)<br><br> GoTo PasteDone <br><br> End If<br><br> Единственный выход из данной ситуации который можно предложить - на мгновение переключить свойство OLEDropMode элемента управления RichTextBox в состояние Automatic, а затем вернуть его в состояние Manual. Первое действие должно происходить в обработчике события OLEStartDrag элемента управления PictureBox.<br><br> Private Sub Picture1_OLEStartDrag(Data As Data0bject, _<br><br> AllowedEffects As Long)<br><br> RichTextBox1.OLEDropMode = rtfOLEDropAutomatic <br><br> End Sub<br><br> После того как операция переноса завершена можно установить исходное значение свойства OLEDropMode элемента управления. Это действие должно выполняться в обработчике события OLECompleteDrag элемента управления TextBox, которое сигнализирует об окончании OLE-операции перетащить-и-опустить:<br><br> Private Sub Picture1.OLECopmpleteDrag(Effect As Long)<br><br> RichTextBox1.OLEDropMode =  rtfOLEDropManual <br><br> End Sub<br><br> OLE-операции перетащить и-опустить аналогичны обычным операциям такого типа но они могут быть несколько более сложными из-за разнообразия объектов, которые могут переносить. Получатель (элемент управления) должен быть в состоянии распознать тип переносимого объекта, чтобы обработать его. Способность обнаруживать перемещение файлов на форму Visual Basic означает, что вы можете создавать приложения, которые способны взаимодействовать с рабочим столом (получать файлы, помещенные пользователем, обрабатывать их, перемещать их в различные папки и т. п.). OLE операции перетащить-и-опустить — очень интересная возможность, которую в дальнейшем, вы можете изучить самостоятельно, обратившись к справочной системе Visual Basic.<br><br><br> <h1>Программирование</h1> ADO<br> Как видно, бескодовое приложение для работы с базами данных, созданное с помощью элемента управления ADO, не такое гибкое и мощное, как приложение, разработанное с использованием элемента управления Data. Для полноценного использования ADO необходимо уметь управлять им с помощью программного кода. В этом параграфе обсуждается объектная модель ADO и показано, как программировать его основные объекты. Оставшаяся часть этой главы посвящена объектам Active Data, даны несколько примеров, демонстрирующих сходство между ADO и DAO.<br><br> <br><br> <h1>Простое редактирование и обновление записей</h1> Основное отличие между объектами ADO RecordSet и DAO RecordSet или RDO ResultSets - это отсутствие метода Edit. He надо готовить запись к редактированию. Вместо этого полю присваивается новое значение. Не нужно вызывать метод Update для записи изменений. При перемещении к другой записи изменения автоматически записываются в базу данных.<br> Другая интересная особенность объекта ADO RecordSet — он позволяет создавать массивы имен полей и значений и использовать их для добавления новых записей. Для добавления новой записи используйте метод AddNew. Пример добавления новой записи к текущему объекту RecordSet (RecSet) с использованием массива и приведен ниже.<br> RecSet.AddNew Array ("ProductName", "CategoryID", "UnitPrice"), <br> Array ("Ma's Marmelade", 34, 3.45)<br> При перемещении к другой записи или вызове метода<br> RecSet. Update новая запись записывается в базу данных.<br> Редактировать текущую запись еще проще. Просто назначьте полям новые значения.<br> RecSet. Fields ("ProductName") = "Ma's Marmelade" <br> Для обновления нескольких полей в записи также используйте массивов:<br> RecSet.Update Array ("ProductName", "CategoryID", "UnitPrice"), <br> Array ("Ma's Marmelade", 34, 3.45)<br> Методы AddNew и Update принимают в качестве аргументов два массива. Первый содержит имена полей, а второй — их значения.<br> В последнем параграфе этой главы рассмотрены два примера программирования объектов ADO.<br> <b>VB6 в действии: проекты AD01 и AD02</b><br> На компакт-диске находятся два простых проекта, демонстрирующих некоторые методы и свойства ADO компонентов. Откройте проекты AD01 и AD02 в среде разработки Visual Basic и просмотрите их код. Проект AD01 демонстрирует операции получения и манипулирования записями. Главная форма содержит два списка имен категорий (табл. Categories в базе данных NWIND) и имен товаров в выбранной категории. Когда пользователь выбирает категорию в первом списке, второй список заполняется наименованиями ее товаров.<br> <br> В первом параграфе главы описываются протоколы, используемые в Web и Internet, рассказывается о тегах HTML и показано, как использовать HTML для создания простых документов с гиперссылками (статические Web-страницы). Далее показано, как активизировать Web-страницы, используя сценарии (scripting) VBScript и элементы управления ActiveX, как преобразовать статическую Web-страницу в интерактивное приложение (это позволит запустить ее через Internet в окне броузера). В конце главы рассмотрено создание Web-страниц, в которых используются стандартные элементы управления ActiveX.<br><br> В главе также даны основы построения динамических HTML-страниц (DHTML). DHTML - последняя тенденция в оформлении Web-страниц, переводящая HTML на новый уровень — позволяет Web-разработчикам создавать приложения HTML, аналогичные приложениям рабочего стола, обогащенным эффектами мультимедиа. Это слишком обширная тема для глубокого и подробного изучения, поэтому мы рассмотрим лишь принципы создания DHTML. Относительно Web, основное внимание уделено нескольким темам, посвященным работе Web и разработке Web-страницы как приложения. Описана роль VBScript в программировании Web-страниц. В следующих главах приведена специфическая информация о сочетании авторских технологий VB и Web в Web- и VB-приложениях. Мы научимся отображать страницы HTML на формы Visual Basic и использовать модели Web с гиперссылками в VB-приложениях.<br><br> <b>Intranet является органичной частью Web</b><br><br> Материал этой главы полезен не только при выпуске документов в Internet, но и при построении Intranet-приложений.<br><br> Широкое распространение Web — доказательство того, что он действительно прост в использовании. Средства работы с ним становятся составной частью операционных систем, и рабочий стол Windows 98 напоминает Web-броузер.<br><br> Если Web-технология позволяет упростить такую хаотичную структуру как Internet, то почему бы не использовать ее в локальных сетях? Многие локальные сети спроектированы как миниатюрные Internet. Intranet или корпоративная Internet — это локальная сеть, использующая технологию Internet. Для упрощения операций в Intranet можно использовать Web-модель, не запуская конкретную Web-страницу, и без ограничений в виде платы за модемную связь.<br><br>Intranet, как и<br><br> Internet, работает с протоколом TCP/IP, но не является глобальной сетью. Пользователи Intranet сети - работники корпорации, университета или другой организации. Эта сеть не доступна пользователям извне. В отличие от World Wide Web, Intranet-сеть имеет один сервер. Он поддерживает все документы, запрашиваемые клиентами.<br><br> Во многих корпорациях<br><br> Intranet используется для предоставления информации служащим, а Web-узел — внешним пользователям. Использование технологии, которая сделала Web столь популярным, позволяет создавать локальные корпоративные сети. Но основная особенность корпоративной Intranet заключается не столько в использовании протокола связи TCP/IP, сколько в использовании протокола HTTP (HyperText Transfer Protocol — протокол передачи гипертекста).<br><br><br> <h1>Проверка корректности данных</h1> Из первого примера главы видно, что элемент управления Data может использоваться для редактирования записей. Однако приложения баз данных должны проверять правильность (validating) данных пользователем перед их сохранением в базе. Элемент управления Data предоставляет несколько событий и методов для проверки правильности вводимых данных перед их сохранением в базе.<br><br> <br><br> <h1>Проверка орфографии документов</h1> Одна из наиболее полезных функции Word — способность к орфографической проверке документов. Эту же возможность Word предоставляет объектам VBA, и ее можно использовать в приложениях, созданных в Visual Basic. Сделать это очень просто. Чтобы обратиться к подпрограмме проверки орфографии Word, необходимо определить два объекта семейство ProofReadingErrors и семейство SpellingSiiggestions.<br> Семейство ProofReadingErrors — это свойство объекта Range Оно содержит слова с орфографической ошибкой в объекте Range. Чтобы вызвать Word для орфографической проверки фрагмента текста и расширить семейство ProofReadingErrors, следует вызвать метод SpellmgErrors объекта Range. Этот метод возвращает результат, который должен быть сохранен в объектной переменной типа ProofreadingErrors:<br> Dim SpellCollection As ProofreadingErrors <br> Set SpellCollection = DRange SpellingErrors<br> DRange — это объект типа Range (абзац или весь документ). Вторая строка заполняет переменную SpellCollection словами с орфографическими ошибками. После этого можно организовать цикл типа For Each Next, чтобы прочитать слова из указанного семейства.<br> Помимо отыскания и выделения орфографических ошибок,<br> Word может также предлагать список альтернативных вариантов написания или список слов, которые звучат подобно ошибочно написанному слову. Чтобы найти список альтернативных вариантов написания слов, следует вызвать метод GetSpellmgSuggestions<br> объекта Application, передавая ему слово с орфографической ошибкой в качестве параметра. Обратите внимание, что это метод объекта Application, а не проверяемого объекта Range. Результаты, возвращенные методом GetSpellmgSuggestions, должны быть сохранены в аналогичной объектной переменной, которая была объявлена как переменная типа SpellingSuggestions:<br> Dim CorrectionsCollection As SpellingSuggestions <br> Set CorrectionsCollection = _<br> AppWord.GetSpellmgSuggestions ("antroid")<br> Оператор, находящийся во второй строке, организует доступ к списку предлагаемых вариантов для слова antroid.<br> <br> Чтобы просмотреть список предложенных слов, следует предусмотреть цикл получения всех элементов семейства CorrectionsCollection. Пример, приведенный в следующем параграфе, демонстрирует использование обоих методов в приложении Visual Basic.<br><br> <b>VB6 в действии: проект SpellDoc</b><br><br> SpellDoc — это приложение, в котором используются методы Word для орфографической проверки документа. Приложение SpellDoc можно найти в папке, посвященной этой главе на компакт-диске. Главная форма приложения, показанная на рис. 14.15, содержит окно элемента управления TextBox, в которое пользователь может вводить некоторый текст (или вставлять текст из другого приложения) и выполнять его орфографическую проверку, щелкая на кнопке Spell Check Document.<br><br> <div style="text-align:center;"><img src="image/proverka-orfografii-dokumentov_1.gif" alt="Проверка орфографии документов"></div><br><br> <b>Рис. 14.15.</b> Главная форма приложения SpellDoc<br><br> Приложение обратится к Word и запросит список слов с орфографическими ошибками Этот список будет отображаться в окне другой формы (рис. 14.16). В окне элемента управления ListBox, расположенном слева, приводится список всех слов с орфографическими ошибками, которые Word обнаружил в тексте. Но Word не только составляет список слов, содержащих орфографические ошибки, но и предлагает возможные варианты их замены. Чтобы просмотреть список альтернативных вариантов написания определенного слова, следует с помощью мыши выбрать слово в левом списке<br><br> <div style="text-align:center;"><img src="image/proverka-orfografii-dokumentov_2.gif" alt="Проверка орфографии документов"></div><br><br> <b>Рис. 14.16.</b> Эта форма приложения SpellDoc отображает слова с орфографической ошибкой и возможные варианты замены<br><br> Чтобы заменить все вхождения выделенного слова (с орфографической ошибкой) на выбранный вариант, следует щелкнуть на кнопке<br><br> Replace (Замена). Можно разработать собственный интерфейс, предоставляющий пользователю возможность выбора, количества и вида вхождений слов с орфографической ошибкой, которые будут заменены.<br><br> В программе используются три глобальные переменные, которые объявлены следующим образом:<br><br> Public AppWord As Application<br><br> Public CorrectionsCollection As SpellingSuggestions<br><br> Public SpellCollection As ProofreadingErrors<br><br> Переменная<br><br> <br> SpellCollection<br><br> описывает семейство, содержащее все слова с орфографическими ошибками, а переменная CorrectionsCollection - семейство, содержащее предложенные программой проверки орфографии варианты замены для определенного слова. Значение переменной CorrectionsCollection присваивается каждый раз, когда пользователь выбирает другое слово с орфографической ошибкой в окне Spelling Suggestions (см. рис. 14.16).<br><br> После выполнения щелчка на кнопке Spell Check Document программа обращается к приложению Word. Сначала с помощью функции Get0bject() программа пытается соединиться с запущенным экземпляром Word. Если в настоящее время нет ни одного запущенного экземпляра Word, запускается новый экземпляр. Это выполняет следующий фрагмент программы.<br><br> <b>Программа 14.12.</b> Обращение к Word<br><br> Set AppWord = Get0bject ("Word Application") <br><br> If AppWord Is Nothing Then<br><br> Set AppWord = CreateObject ("Word.Application") <br><br> If AppWord Is Nothing Then<br><br> MsgBox "Could not start Word Application will end" <br><br> ' (Невозможно открыть Word Работа приложения<br><br> ' будет прекращена) <br><br> End <br><br> End If<br><br> End If <br><br> После того как связь с Word установлена, программа создает новый документ и с помощью метода InsertAfter объекта Range копирует содержимое окна элемента управления TextBox в новый документ. Это выполняется следующим образом:<br><br> AppWard.Documents.Add <br><br> DRange.InsertAfter Textl.Text<br><br> Теперь VB-программа вызывает метод SpellingErrors объекта Range, который возвращает семейство объектов Word. Результат метода SpellingErrors присваивается объектной переменной SpellCollection:<br><br> Set SpellCollection = DRange.SpellingErrors<br><br> Приведенный ниже фрагмент программы добавляет слова, содержащиеся в переменной SpellCollection, к левому списку второй формы и отображает эту форму.<br><br> <b>Программа 14.13.</b> Кнопка Check Document<br><br> Private Sub Command1_C1ick() <br><br> Dim DRange As Range<br><br> Me.Caption = "starting word   "<br><br> ' (начальное слово) <br><br> On Error Resume Next<br><br> Set AppWord = Get0bject ("Word.Application") <br><br> <br> If AppWord Is Nothing Then<br><br> Set AppWord = CreateObject ("Word.Application") <br><br> If AppWord Is Nothing Then<br><br> MsgBox " Could not start Word. Application will end"<br><br> '(Запустить Word невозможно. Приложение будет закрыто) End <br><br> End If<br><br> End If<br><br> On Error GoTo ErrorHandler <br><br> AppWord.Documents.Add <br><br> Me Caption = "checking words... "<br><br> '(проверка слов... ) <br><br> Set DRange = AppWord.ActiveDocument.Range<br><br> DRange.InsertAfter Text1.Text <br><br> Set SpellColiection = DRange.SpellingErrors <br><br> If SpellColiection.Count > 0 Then <br><br> SuggestionsForm.List1.Clear <br><br> SuggestionsForm.List2.Clear <br><br> For iWord = 1 To SpellColiection.Count<br><br>  SuggestionsForm!List1.Addltem _<br><br> SpellColiection.Item(iWord) <br><br> Next <br><br> End If<br><br> Me.Caption = "Word VBA Example" <br><br> SuggestionsForm.Show <br><br> Exit Sub <br><br> ErrorHandler:<br><br> MsgBox "The following error occured during the document's _<br><br> spelling"& vbCrLf & Err.Description<br><br> ' (Во время проверки обнаружена следующая ошибка ...) <br><br> End Sub<br><br> Во второй форме приложения основное внимание сконцентрировано в Word на обработке события Click в окне Words in Question. Каждый раз, когда выполняется щелчок на элементе списка в левом окне ListBox, программа вызывает метод GetSpellingSuggestions<br><br> объекта AppWord, передавая выбранное слово в качестве параметра. Обратите внимание, что к значению свойства Listlndex объекта List прибавляется 1, чтобы отобразить тот факт, что индексация элементов семейства начинается с 1, в то время как индексация элементов окна списка ListBox начинается с 0. Метод GetSpellingSuggestions возвращает другое семейство, содержащее предложенные слова, которые помещены во второе (правое) окно элемента управления ListBox, помещенное на форме с помощью следующего фрагмента.<br><br> <b>Программа 14.14.</b> Обработчик события<br><br> Click в окне списка<br><br> Private Sub Listl_Click()<br><br> Screen.MousePointer = vbHourglass <br><br> Set CorrectionsCollection = _<br><br> AppWord.GetSpellingSuggestions(SpellColiection.Item _<br><br> (List1.ListIndex + 1)) <br><br> List2.Clear <br><br> For iSuggWord = 1 To CorrectionsCollection.Count<br><br> <br> List2.AddltemCorrectionsCollection.Item(iSuggWord) <br><br> Next<br><br> Screen MousePointer = vbDefault <br><br> End Sub<br><br> Приложение Spell Doc может стать отправной точкой для создания средствами Visual Basic различных пользовательских приложении, в которых требуется проверка правильности написания, но не требуются мощные средства редактирования. В некоторых случаях может потребоваться настройка проверки правописания, хотя такая ситуация встречается достаточно редко. Например, в приложении, обрабатывающем почтовые отправления, может потребоваться выполнение орфографической проверки, позволяющей исключить неправильно введенные адреса. В этом случае сначала следует организовать просмотр списка слов, возвращенных методом SpellingErrors, проверить, содержатся ли в словах специальные символы, и удалить их.<br><br> Теперь вполне очевидно, что внести изменения в Office-приложения совсем несложно. Познакомившись с объектами этих приложений, можно установить с ними связь, управляя некоторыми свойствами и вызывая методы этих объектов.<br><br><br> <h1>Работа с графическими объектами</h1> Графические объекты являются важной частью любого приложения. Графическим объектом может быть и простой значок, и сложное растровое изображение. В параграфе рассмотрены некоторые методы вывода графических изображений с помощью API-функций. Рассмотрены функции BitBlt() и StretchBlt(), в определенном смысле эквивалентные методу PaintPicture в Visual Basic. Основное различие между ними заключается в том, что метод PaintPicture можно применять только к определенному объекту (элементу управления PictureBox или форме), а с помощью функций BitBltQ и StretchBltQ можно выполнять копирование пикселей изображения в пределах рабочего стола. Их можно использовать для создания разнообразных приложений, например программ копирования экрана, чего не позволяет метод PaintPicture.<br><br> <br><br> <h1>Работа с объектом</h1> RecordSet<br> Если создан объект RecordSet, то можно получить доступ к записям и их полям с помощью нескольких методов и свойств, идентичных методам и свойствам объекта RecordSet DAO. Количество возвращенных записей хранится в свойстве RecordCount, принимающем правильное значение только при перемещении на последнюю запись. Для RecordSet типа Forward-Only нельзя просто получить количество записей. Необходимо просканировать и обработать их все. При иных типах RecordSet можно переместиться с помощью метода MoveLast на последнюю запись, а затем вернуться к первой записи, используя метод MoveFirst. После этого для получения количества строк в объекте RecordSet можно использовать свойство RecordCount. Конечно, этот метод не будет работать с RecordSet типа Forward-Only.<br> <div style="text-align:center;"><img src="image/index-image126.gif" alt="Работа с объектом"></div><br> Доступ к индивидуальным значениям полей в строке получают с помощью семейства Fields. Количество колонок в объекте RecordSet находится в свойстве Fields Count. К каждому из полей в текущей строке можно адресоваться с помощью индекса (это порядковый номер поля в SQL-выражении) или по его имени. Например, если используется SQL-выражение, <br> SELECT ProductName, ProductID FROM Products<br> то можно получить доступ к именам товаров в текущей записи с помощью выражений двух видов:<br> RecSet.Fields(0).Value <br> или<br> RecSet.Fields ("ProductName") .Value<br> (Можно опустить Value, как свойство, установленное по умолчанию для семейства Fields.)<br> Для сканирования объекта RecordSet используйте методы Move (MoveFirst, MoveLast, MovePrevious и MoveNext). В дополнение к методам навигации, объект RecordSet содержит метод AbsolutePosition,<br> который указывает на позицию текущей записи в объекте RecordSet.<br> Для сканирования RecordSet можно использовать цикл:<br> For Each rec In RecSet<br> {обработка текущей записи} <br> Next<br> или следующий фрагмент с циклом For...Next<br> RecSet.MoveLast<br> AllRecs = RecSet.RecordCount <br> RecSet.Move First <br> For i = 1 To AllRecs<br> {обработка текущей записи} <br> RecSet.MoveNext <br> Next<br> Похожий цикл используется для сканирования колонок<br> <br> RecordSet. Имена полей получают с помощью свойства Fields(i).Name. Следующий цикл предназначен для печати имен колонок в наборе записей RecSet.<br><br> For Each fld In RecSet.Fields<br><br> Debug.Print fld.Name <br><br> Next<br><br> Можно отсортировать RecordSet в соответствии со значениями полей или отфильтровать их, чтобы отобрать записи, отвечающие определенному критерию. Извлекать рекомендуется только нужные записи в желаемом порядке. Когда это невозможно (или когда создан клиентский RecordSet и необходимо применять разные методы обработки разных записей), то используются свойства Sort и Filter объекта RecordSet.<br><br> Свойство Sort принимает в качестве аргумента имя поля, в соответствии с которым необходимо отсортировать RecordSet. Предположим, создан объект RecordSet с именами заказчиков из базы данных NWIND, и необходимо отсортировать их в соответствии с полем Country. Установите свойство Sort.<br><br> RSCustomers.Sort = "Country ASCENDING"<br><br> Для фильтрации выбранных записей в RecordSet используйте следующее выражение.<br><br> RSCustomers.Filter = "Country = 'Germany' "<br><br> RSCustomers. Filter — не метод, и он не возвращает RecordSet. А метод Move будет игнорировать записи, у которых значение поля Country не Germany.<br><br><br> <h1>Работа с</h1> ADO<br> Чтобы использовать ADO в приложении, добавьте ссылку на библиотеку ADO Object в диалоговом окне References. Выполните следующие действия.<br> <b>1</b>. Откройте меню Project<br> <b>2</b>. Выберите References меню Project, чтобы открыть диалоговое окно References.<br> <b>3</b>. Отметьте опцию Microsoft ActiveX Data Object 2.0 Library<br> После того как библиотека ADO добавлена в проект, просмотрите состав библиотеки с помощью Object Browser. Если вы знакомы с Remote Data Objects (RDO) из Visual Basic 5, то заметите, что основные объекты, предлагаемые моделью объектов ADO, похожи на RDO, включая процесс доступа к базе данных. Необходимо произвести подключение, а затем выполнить SQL-выражение или сохраненную процедуру базы данных и обработать результаты запроса, возвращаемые объектом RecordSet. В следующем параграфе этот процесс рассмотрен подробно.<br><br> <br><br> <h1>Размещение одного окна поверх других</h1> Часто приходится сталкиваться с приложениями, которые размещают свое окно поверх окон других приложений независимо от того. какое именно из них является активным. Примером такого окна может служить окно Find (Найти) редактора Microsoft Word. Чтобы предусмотреть такую возможность, воспользуйтесь API-функцией SetWindowPos().<br> Private Declare Function SetWindowPos Lib "user32" _<br>      (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _<br> ByVal x As Long, ByVal у As Long, _ <br> ByVal ex As Long, ByVal cy As Long, _ <br> ByVal wFlags As Long) As Long<br> Параметр<br> hWnd — дескриптор окна, х и у — координаты левого верхнего угла окна, сх и су — ширина и высота окна соответственно. Параметр h WndInsertAfter — дескриптор окна, после которого окно hWnd<br> находится в списке окон. Параметр hWnd<br> может принимать одно из значений, указанных в табл. 13.5.<br> <b>Таблица 13.5.</b> Значения параметра hWnd<br><table border=1><br> <tr> <td>Значение<br> <td> <td>Расположение окна<br> <td> </tr> <tr> <td>HWND_BOTTOM HWND_TOP HWND_TOPMOST <br> HWND_NOTOPMOST<br> <td> <td>Внизу списка окон <br> Поверх всех окон <br> Наверху списка окон <br> Наверху списка окон, под самым верхним окном<br> <td> </tr> </table><br> Параметр wFlags является целочисленной константой, содержащей один или несколько флагов, приведенных в табл. 13.6.<br> <b>Таблица 13.6.</b> Флаги, составляющие параметр wFlags<br><table border=1><br> <tr> <td>Флаг<br> <td> <td>Действие<br> <td> </tr> <tr> <td>SWP_DRAWFRAME<br> <td> <td>Рисует рамку окна<br> <td> </tr> <tr> <td>SWP_HIDEWINDOW<br> <td> <td>Скрывает окно<br> <td> </tr> <tr> <td>SWP_NOACTIVATE<br> <td> <td>Делает окно неактивным<br> <td> </tr> <tr> <td>SWP_JMOMOVE<br> <td> <td>Сохраняет координаты текущего положения окна (параметры х и у игнорируются)<br> <td> </tr> <tr> <td>SWP_NOREDRAW<br> <td> <td>Запрещает автоматическую перерисовку содержимого<br> <td> </tr> <tr> <td> <td> <td>окна<br> <td> </tr> <tr> <td>SWP_NOSIZE<br> <td> <td>Сохраняет данные о текущем размере окна<br> <td> </tr> <tr> <td>SWP_NOZORDER<br> <td> <td>Сохраняет текущее положение окна в списке других<br> <td> </tr> <tr> <td> <td> <td>окон<br> <td> </tr> <tr> <td>SWP_SHOWWINDOW<br> <td> <td>Отображает окно<br> <td> </tr> </table><br> Совет<br> Можно скопировать значения констант из окна API Viewer непосредственно в ваше приложение. Избегайте задания числовых констант в вашем коде.<br> Текст программы типичного приложения WinTop, демонстрирующего использование функции SetWindowPos(), приведен ниже.<br> <br> <b>Программа 13.9.</b> Приложение WinTop<br><br> Option Explicit<br><br> Private Declare Function SetWindowPos Lib "user32" _<br><br> (ByVal hwnd As Long, ByVal hWndInsertAfter As Long,_<br><br> ByVal x As Long, ByVal у As Long,<br><br> ByVal ex As Long, ByVal cy As Long,<br><br> ByVal wFlags As Long) As Long<br><br> Const HWND_TOPMOST = -1 <br><br> Const SWP_SHOWWINDOW = &H40<br><br> Private Sub Form_Load() <br><br> Dim retValue As Long<br><br> retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST,_<br><br> Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW)<br><br> End Sub       <br><br> Эту методику можно использовать для создания окна<br><br> Search & Replace (Поиск и замена) в проекте RTFPad (см. гл.9). При этом данное окно будет оставаться расположенным поверх других окон и видимым при переходе в окно формы редактора (рис. 13.7). Для этого вставьте объявление функции SetWmdowPos() и пару констант в модуль<br><br> Public Declare Function SetWindowPos Lib "user32" _<br><br> (ByVal HWND As Long, ByVal hWndInsertAfter As Long,_ <br><br> ByVal x As Long, ByVal у As Long, ByVal<b> ex</b> As Long, _ <br><br> ByVal cy As Long, ByVal wFlags As Long) As Long<br><br> Public Const HWND_TOPMOST = -1<br><br> Public Const SWP SHOWWINDOW = &H40<br><br> <div style="text-align:center;"><img src="image/razmeshhenie-odnogo-okna-poverh-drugih_1.gif" alt="Размещение одного окна поверх других"></div><br><br> <b>Рис. 13.7.</b> Диалоговое окно Search & Replace (Поиск и замена) видимо даже в том случае, когда активным становится другое окно<br><br> Кроме того, потребуется изменить программу обработчика события команды меню Find (Найти). Строку<br><br> SearchForm Show<br><br> замените следующим оператором:<br><br> SetWindowPos SearchForm.hwnd, HWND_TOPMOST, _<br><br> Me.CurrentX, Me.CurrentY, 470, 155, SWP_SHOWWINDOW<br><br> Значения 470 и 155, указанные в программе, являются размерами окна Search & Replace в пикселях. Значение свойства BorderStyle формы Search должно быть установлено в Fixed, тогда пользователь не сможет изменить размер окна.<br><br><br> <h1>Реализация семейства свойств</h1> Некоторые компоненты ActiveX предоставляют массив или семейство свойств. Например, элемент ListBox предлагает свойство List, которое является массивом. Пункты элемента ListBox сохраняются в массиве List, который является свойством этого компонента и к ним можно обратиться, указав индекс от 0 до ListCount-1. Реализовывать свойство - массив из кода компонента не очень сложно, но должны быть объявлены массив и методы для добавления выбора и удаления элементов массива. Вообще массивы - не самые лучшие структуры для хранения нескольких элементов, потому что неудобно быстро удалить элемент из массива. Чтобы удалить элемент из массива, необходимо переместить все элементы следующие за удаляемым, на одну позицию. Структура которая лучше подходит для этого - объект Collection.<br><br> <br><br> <h1>Реализация семейства</h1> Для реализации общедоступного семейства в разрабатываемом компоненте, в объекте Collection надо создать следующие свойства и методы.<br> <b>• Метод Add.</b> Добавляет новый элемент в семейство.<br> <b>•  Метод Remove.</b> Удаляет элемент из семейства.<br> <b>•  Метод Clear.</b> Удаляет все элементы из семейства.<br> <b>•  Свойство Count.</b> Возвращает количество элементов в семействе.<br> <b>•  Свойство Item.</b> Возвращает заданный элемент семейства.<br> Чтобы сделать это, вставьте следующее объявление семейства в окне Code модуля класса.<br> Dim DataCollection As New Collection<br> Data Collection —<br> это новая переменная которая может содержать несколько элементов. Затем вставьте определения следующих свойств и методов чтобы разработчик мог управлять семейством (добавлять и удалять элементы из семейства нумеровать их и отыскивать выделенные элементы по их ключу). Свойство Count класса возвращает значение свойства Count семейства.<br> <b>Программа 15.7.</b> Свойство Count переменной DataCollection<br> Public Property Get Count() As Long<br> Count = DataCollection.Count <br> End Property<br> Метод Add — это общедоступная функция, которая возвращает значение True, если ее аргументы успешно добавлены в семейство Если при выполнении возни кают ошибки, то метод возвращает False.<br> <b>Программа 15.8.</b> Метод Add переменной DataCollection<br> Public Function Add(dValue As Double) As Boolean <br> On Error GoTo AddError<br> DataCollection.Add dValue<br> Add = True<br> Exit Function <br> AddError:<br> Add = False <br> End Function<br> Метод Remove — также функция, возвращающая результат типа Boolean. Функция возвращает True, если указанный элемент успешно удален из списка. Кроме того, она генерирует прерывание ошибок выполнения, которое главное приложение может обработать с помощью оператора On Error. Заметьте, что оператор Err.Raise в программном коде 15.9 инициирует ошибку выполнения с номером и ее описанием (обязательно надо добавить константу vbObjectError, чтобы избежать конфликтов со стандартным сообщением об ошибке). Поскольку приложение использует класс — он будет получать стандартную ошибку Visual Basic. Заметьте, что Visual Basic может инициировать свою собственную ошибку 1. Но ошибка 1 существует только для нашего класса, вот почему была добавлена константа vbObjectError.<br> <br> <b>Программа 15.9.</b> Метод Remove переменной DataCollection<br><br> Public Function Remove(index As Long) As Boolean<br><br> If index < 0 Or index > DataCollection.Count Then <br><br> DataCollection.Remove index <br><br> Remove = True <br><br> Else<br><br> Err Raise vbObiectError + 2, "ClassName", _ <br><br> "Couldn't remove item"<br><br> (... элемент удалить нельзя) <br><br> Remove = False <br><br> End If <br><br> End Function<br><br> Синтаксис метода Raise для объекта Err:<br><br> Err.Raise number, source, description<br><br> где source — имя компонента, в котором появляется ошибка (возможно, что несколько компонентов инициируют одинаковую ошибку). Основное приложение должно знать одновременно номер и источник ошибки, а затем предпринять соответствующие действия (т.е. устранить причину, которая инициировала ошибку или повторить операцию).<br><br> Метод Item выбирает указанный элемент из семейства, основываясь на индексе, который служит аргументом. Если индекс выходит за границы семейства, возникает ошибка 2 выполнения.<br><br> <b>Программа 15.10.</b> Метод Item переменной DataCollection<br><br> Public Function Itemfindex As Long) As Double<br><br> If index < 0 Or index > DataCollection.Count Then <br><br> Err.Raise vbObjectError + 1, "ClassName", _ <br><br> "Index out of bounds"<br><br> '(Индекс вышел за пределы границ массива) <br><br> Else<br><br> Item = DataCollection(index) <br><br> End If <br><br> End Function<br><br> Последний метод (Clear) удаляет все элементы из семейства. Поскольку семейство не имеет собственного метода Clear, необходимо удалить все элементы из семей ства с помощью его метода Remove. Заметьте, что обход семейства осуществляет из конца в начало. Прямой обход может вызвать ошибку исполнения, поскольку сразу после удаления первого элемента свойство DataCollection Count становится меньше на единицу, но это изменение не влияет на число итераций.<br><br> <b>Программа 15.11.</b> Метод Clear переменной DataCollection<br><br> Public Function Clear() As Boolean <br><br> On Error GoTo ClearError<br><br> For i = DataCollection.Count To 1 Step -1 <br><br> DataCollection Remove i<br><br> Next<br><br> Clear = True<br><br> Exit Function<br><br> ]<br><br> ClearError:<br><br> Clear = False <br><br> <br> End Function<br><br> <b>VB6 в действии: класс AXStat</b><br><br> Проект класса AXStat демонстрирует процесс создания классов, которые предоставляют семейства. Класс AXStat предоставляет члены стандартного семейства и следующие специальные члены.<br><br> <b>•  Свойство</b> Average. Возвращает среднее значение из набора данных, который хранится в элементе управления.<br><br> <b>• Свойство Min.</b> Возвращает минимальное значение из набора данных.<br><br> <b>• Свойство Мах.</b> Возвращает максимальное значение из набора данных. <br><br> Специальные свойства достаточно просты и их реализация показана ниже.<br><br> <b>Программа 15.12.</b> Специальные члены класса AXStat<br><br> Public Property Get Average() As Double <br><br> Dim dSum As Double <br><br> Dim itm As Long<br><br> For itm = 1 To DataCollection.Count<br><br> dSum = dSum + DataCollection(itm) <br><br> Next<br><br> Average =<br><br> dSuiti / DataCollection.Count <br><br> End Property<br><br> Public Property Get Min () As Double <br><br> Dim itm As Long <br><br> Min = 1E+202 <br><br> For itm = 1 To DataCollection.Count<br><br> If DataCollection(itm) < Min Then _<br><br> Min = DataCollection(itm) <br><br> Next <br><br> End Property<br><br> Public Property Get Max() As Double <br><br> Dim itm As Long <br><br> Max =<br><br> -1E+202 <br><br> For itm =<br><br> 1 To DataCollection.Count<br><br> If DataCollection(itm) > Max Then _<br><br> Max = DataCollection(itm) <br><br> Next <br><br> End Property<br><br> Этот код считывает значения данных, которые хранятся в семействе DataCollection, и вычисляет их базовую статистику. Можно использовать процедуру Property Get, чтобы получить более полную статистику, чем показана здесь. Заметьте, что свойства предназначены только для чтения (не имеет смысла устанавливать их значения) и не определены дуальные процедуры Property Let.<br><br> Код, который реализует стандартные методы семейства, подобен коду, приведенному ранее в разделе "Реализация семейства". Достаточно просто изменить имя класса в строке, которая инициирует ошибки исполнения.<br><br> <b>Тестирование класса AXStat.</b> Тестовый проект для класса AXStat показан на рис. 15.7. Кнопка Create Data Set (Создать набор данных) добавляет 100 случайных чисел к семейству класса. Кнопка Display Data (Отобразить данные) берет данные из класса и показывает их в окне списка. И, наконец, кнопка Show Statistics (Показать статистику) вызывает методы класса для вычисления основных статистических характеристик набора данных и их отображения. Кнопки справа демонстрируют способ обработки ошибок, инициируемых в классе (но к ним вернемся позже).<br><br> <br> Для использования класса AXStat в проекте необходимо сначала добавить в проекте ссылку на класс, а затем создать объектную переменную, соответствующую классу. Следующее объявление должно появиться в самом начале окна кода тестовой формы:<br><br> Dim STATS As New Statistics<br><br> Ключевое слово New<br><br> говорит Visual Basic, что необходимо создать новый экземпляр модуля класса Statistics. Первая командная кнопка использует метод Add переменной STATS для создания набора данных из 100 значений.<br><br> <b>Программа 15.13.</b> Заполнение объекта STATS случайными данными<br><br> Private Sub Command1_C1ick() <br><br> List1.Clear <br><br> STATS.Clear<br><br> For i = 1 То 100<br><br> STATS.Add Rnd() * 1000 <br><br> Next<br><br> Command2.Enabled = True <br><br> Command3.Enabled = True <br><br> End Sub<br><br> <div style="text-align:center;"><img src="image/realizacija-semejstva_1.gif" alt="Реализация семейства"></div><br><br> <b>Рис. 15.7.</b> Тестовая форма класса AXStat<br><br> Кнопка Display Data извлекает данные из переменной STATS с помощью метода Item. Значения данных формируются в цикле, который работает в диапазоне от 1 до STATS.Count.<br><br> <b>Программа 15.14.</b> Чтение данных из объекта STATS<br><br> Private Sub Command2_Click() <br><br> Dim i As Long<br><br> List1.Clear<br><br> For i = 1 To STATS.Count<br><br> List1.AddItem Format(STATS.Item(i), "000.000000")<br><br> Next <br><br> End Sub<br><br> Кнопка Show Statistics вызывает методы Average, Min и Мах переменной для вычисления основных статистических характеристик набора данных. Код, соответствующий кнопке Show Statistics, приведен ниже.<br><br> <b>Программа 15.15.</b> Использование класса AXStat для вычисления статистических характеристик<br><br> Private Sub Command3_Click()<br><br> StatsMsg = "There are " & STATS.Count & _<br><br>            " points in the data set" & vbCrLf   <br><br> ' (В наборе присутствуют ... элементов данных) <br><br> StatsMsg = StatsMsg & "Their average is" & _    <br><br> STATS.Average & vbCrLf     <br><br> ' (Их среднее значение. .)<br><br> StatsMsg = StatsMsg & "The smallest value" & STATS.Mm & vbCrLf<br><br>                            '(Минимальное значение...) <br><br> StatsMsg = StatsMsg & "The largest value"& STATS.Max<br><br> '(Максимальное значение...) <br><br>MsgBox StatsMsg <br><br> End Sub<br><br><br> <h1>Редактирование страницы свойств</h1> Запустите тестовый проект и проверьте работоспособность страниц свойств, сгенерированных мастером. Теперь наступил момент, когда можно добавить еще несколько элементов управления на страницу Text Property, которая позволит разработчикам изменять другие заказные свойства. Законченная страница должна иметь вид, подобный представленному на рис. 16.12.<br> <div style="text-align:center;"><img src="image/redaktirovanie-stranicy-svojstv_1.gif" alt="Редактирование страницы свойств"></div><br> <b>Рис. 16.12.</b> Страница свойств со свойствами элемента управления FLEXLabel<br> Откройте страницу свойств в режиме конструирования и добавьте два элемента управления ComboBox и две соответствующие метки над ними. Установите нужный размер и шрифт для всех элементов.<br> Теперь все готово к изменению кода. Оба элемента управления ComboBox должны быть заполнены допустимыми установками для соответствующих свойств. Наилучшее место для вставки кода инициализации — событие Initialize.<br> <b>Программа 16.11.</b> Инициализация страницы CaptionProperties<br> Private Sub PropertyPage_Initialize() <br> Combo1.AddItem "Top Left" <br> Combo1.AddItem "Top Middle" <br> Combo1.AddItem "Top Right"<br> Combo1.AddItem "Center Left" <br> Combo1.AddItem "Center Middle" <br> Combo1.Addltem "Center Right" <br> Combo1.AddItem "Bottom Left" <br> Combo1.AddItem "Bottom Middle" <br> Combo1.AddItem "Bottom Right"<br> Combo2.Addltem "None" <br> Combo2.Addltem "Carved Light" <br> Combo2.Addltem "Carved" <br> Combo2.Addltem "Carved Heavy" <br> Combo2.Addltem "Raised Light" <br> Combo2.Addltem "Raised" <br> Combo2.Addltem "Raised Heavy"<br> End Sub<br> Теперь необходимо исправить обработчик события<br> SelectionChanged().   Добавим операторы, инициализирующие два элемента управления ComboBox,        которые соответствуют двум новым свойствам. Введите следующий код в обработчик события SelectionChanged страницы свойств.<br> <b>Программа 16.12.</b> Инициализация элементов ComboBox<br> Private Sub PropertyPage SelectionChanged()<br> txtCaption.Text = SelectedControls(0).Caption <br> Combol.Listlndex = SelectedControls(0).TextAlignment <br> <br> Combo2.Listlndex = SelectedControls(0).Effect<br><br> End Sub<br><br> Затем необходимо обновить переменную Changed из событий, обозначающих выбор нового значения из элемента управления ComboBox. Поскольку элементы ComboBox не позволяют вводить новые значения, то выбор может осуществляться только с использованием события Click. Значит, необходимо добавить обработчик события Click для элементов ComboBox, как показано ниже.<br><br> Private Sub Combol_Click()<br><br> Changed =<br><br> True <br><br> End Sub<br><br> Private Sub Combo2_Click ()<br><br> Changed = True <br><br> End Sub<br><br> На последнем шаге исправим обработчик события<br><br> ApplyChanges() так, чтобы он приводил в действие изменения в элементах ComboBox. Ниже приведен код, реализующий обработку щелчка на кнопке Apply.<br><br> <b>Программа 16.13.</b> Применение изменений<br><br> Private Sub PropertyPage_ApplyChanges()<br><br> SelectedControls(0).Caption = txtCaption.Text<br><br> SelectedControls(0).TextAlignment = Combol.Listlndex<br><br> SelectedControls(0).Effect = Combo2.Listlndex<br><br> End Sub<br><br> Теперь можно переключиться на тестовую форму и проверить работу страниц свойств. Как видите, страницы свойств не являются чем-то новым - это обычные формы VB, на которых можно помещать все виды элементов управления. При работе с этими страницами следует придерживаться нескольких правил, предлагаемых мастером.<br><br> <b>1</b>. Устанавливайте свойство Changed в значение True каждый раз, когда свойства меняют свое значение для разрешения использования кнопки Apply.<br><br> <b>2</b>. Модифицируйте свойства элементов управления, используя выражение SelectedControls (0) propertyName, где propertyName — фактическое имя свойства.<br><br> <b>3</b>. Инициализируйте свойства в событии PropertyPage_SelectionChanged() каждый раз, когда пользователь переключается на новую страницу свойств.<br><br> Если открыть окно свойств для объекта UserControl, то можно увидеть, что свойство PropertyPages имеет значение 4. Это указывает на то, что элемент управления имеет четыре страницы свойств. Для того чтобы исключить ненужные страницы свойств, вызовите диалоговое окно Connect Property Page, показанное на рис. 16.13 и очистите флажок перед соответствующим именем страницы свойств.<br><br> <br> <div style="text-align:center;"><img src="image/redaktirovanie-stranicy-svojstv_2.gif" alt="Редактирование страницы свойств"></div><br><br> <b>Рис. 16.13.</b> В диалоговом окне вместе со стандартными страницами свойств Visual Basic показана заказная страница свойств элемента FLEXLabel<br><br> Конструирование элемента управления ActiveX теперь не представляет большой сложности. Мастер интерфейса элементов управления ActiveX берет на себя многочисленные детали. Он создает скелет кода элемента управления, а разработчик пишет код, выполняющий специфические действия, которые что другие элементы делать не могут. Код, написанный разработчиком, представляет собой самый обыкновенный код приложения VB. И все же существует несколько различий между обычным приложением и элементом управления. Чем больше разработчик будет знать об этих отличиях, тем лучше он будет подготовлен к конструированию элементов управления ActiveX. Следующий раздел уделяет большее внимание именно таким различиям.<br><br><br> <h1>Регистрация компонентов</h1> ActiveX<br> Классы регистрируются автоматически в системе, где они разработаны. Создаваемые DLL или ЕХЕ-файлы, реализующие классы, также автоматически регистрируются Visual Basic. Но если нужно создать класс, который должен быть доступен разработчикам в других системах? Если компонент создан как ЕХЕ-сервер, то его можно распространить в виде ЕХЕ-файла. При запуске на компьютере, где компонент будет использоваться, класс зарегистрируется автоматически. Никаких сообщений или форм при этом не выдается. Все, что нужно сделать, так это запустить ЕХЕ-сервер, который сам себя зарегистрирует.<br> Для DLL-компонент ситуация отличается коренным образом, поскольку они сами не выполняются. Они должны загружаться другим приложением (вот почему ActiveX DLL называются еще внутренними серверами — они обслуживают только процессы, которые их содержат). ActiveX DLL должны регистрироваться с помощью утилиты REGSVR32, которая поставляется с Visual Basic (она находится в подпапке RegUtils папки Tools на компакт-диске Visual Basic). REGSVR32 — это программа, которая позволяет регистрировать и удалять внутренние серверы. Возможность удаления внешних серверов также важна. Например, просто удалить DLL-файлы, которые реализуют программный компонент, недостаточно. Необходимо также убрать компоненты из системного реестра, что можно сделать с помощью утилиты REGSVR32.<br> Для регистрации ActiveX DLL создайте файл, используя команду Make ClassName.dll из меню File (ClassName является именем класса). Затем скопируйте этот файл в папку Windows System или любую другую. Для регистрации DLL откройте окно Command Prompt (окно командной строки DOS), перейдите в папку, где находится DLL, и выполните следующую команду:<br> С:\WINDOWS\SYSTEM\REGSVR32 ClassName.dll<br> ClassName.dll -<br> это имя файла, в котором реализован сервер. Есть несколько опций, которые можно использовать с утилитой REGSVR32. Опция /и удаляет ранее зарегистрированный DLL.<br> Чтобы удалить файл ClassName.dll, используйте команду:<br> REGSVR32 /u ClassName.dll<br> Когда новый компонент DLL зарегистрирован, утилита REGSRV сообщает о результатах операции в диалоговом окне. Для подавления вывода этого окна можно использовать опцию /s (silent - молчаливый) REGSRV32 - это наиболее простой механизм для распространения DLL-серверов. Все, что при этом нужно сделать, это написать маленькую программу, которая копирует файл DLL в папку и затем запускает утилиту REGSRV32 для регистрации скопированного DLL. Если дистрибутивные файлы были созданы с помощью мастера Package & Deployment, то все компоненты, которые должны быть установлены вместе с приложением, будут устанавливаться программой инсталляции.<br><br> <br><br> <h1>Рекурсивное сканирование папки</h1> Рекурсивное сканирование папки (сканирование файлов папки и ее подпапок на произвольную глубину) - это стандартная операция при программировании файловой системы. В гл. 11 было показано, как рекурсивно сканировать папку, используя элементы управления File System (элементы управления DriveListBox, DirectoryListBox и FileListBox). В гл. 8 было создано приложение, которое заполняет элемент управления TreeView содержимым устройства или папки. Древовидная структура идеальна для представления папки, потому что папка является древовидной структурой. В проекте Explorer при использовании объекта FileSystemObject мы обещали вернуться к пояснению работы проекта.<br> В этом параграфе рассмотрено приложение FSystem, которое заполняет элемент управления TreeView папками диска С. Для отображения содержимого другого устройства или папки внесите в код соответствующие изменения. Форма приложения FSystem показана на рисунке 20.3. Запустите приложение и щелкните на кнопке Populate Tree, чтобы увидеть структуру папок диска С: в окне элемента управления TreeView. Время реакции приложения зависит от количества папок в корневом каталоге устройства. Будьте терпеливы или измените код для просмотра меньшего количества папок.<br> <div style="text-align:center;"><img src="image/index-image143.gif" alt="Рекурсивное сканирование папки"></div><br> <b>Рис. 20.3.</b> Приложение FSystem: некоторые методы объекта FileSystemObject<br> Начнем с простой версии приложения, которая выводит имена папок в окно проверки. Затем заменим оператор Debug. Print соответствующими операторами для добавления имен папок в элемент Tree View.<br> <b>Программа 20.4.</b> Сканирование диска с помощью объекта FileSystemObject<br> Dim FSys As New Scripting.FileSystemObject<br> Private Sub Command1_Click() <br> Dim folderSpec As String<br> Set FSys = CreateObject ("Scripting.FileSystemObject") <br> ' В следующей строке укажите папку, которую необходимо видеть<br> folderSpec = "с:\" <br> ScanFolder(folderSpec)<br> Debug.Print "*** Конец списка объектов каталога ***" <br> End Sub<br> Sub ScanFolder(folderSpec As String) <br> Dim thisFolder As Folder <br> <br> Dim sFolders As Folders<br><br> Dim fileItem As File, folderItem As Folder <br><br> Dim AllFiles As Files<br><br> Set thisFolder = FSys.GetFolder(folderSpec) <br><br> Set sFolders = thisFolder.SubFolders <br><br> Set AllFiles = thisFolder.Files <br><br> For Each folderItem In sFolders<br><br> Debug.Print<br><br> Debug.Print "*** ПАПКА " & folderltem.Path & "***"<br><br> ScanFolder (folderItem.Path) <br><br> Next <br><br> For Each fileItem In AllFiles<br><br> Debug.Print fileItem.Path <br><br> Next <br><br> End Sub<br><br> Обработчик события Click кнопки Command 1 вызывает подпрограмму ScanFolder(), чтобы просканировать папку, имя которой передается в качестве аргумента. ScanFolder() создает объектную переменную thisFolder, которая задает текущую папку. Затем программа создает семейство подпапок из сканируемой папки. Это семейство - sFolder -<br><br> сканируется, и имена подпапок отображаются в окне проверки. После вывода на экран имени текущей папки подпрограмма ScanFolder() рекурсивно вызывается для сканирования подпапок текущей папки. После сканирования текущей папки, включая ее подпапки, программа отображает файлы в текущей папке, используя семейство AllFiles.<br><br> В версии программы FSystem на компакт-диске операторы, выполняющие вывод в окно проверки, закомментированы и добавлены операторы, помещающие имена папок и файлов в элемент управления TreeView.<br><br> <b>Программа 20.5.</b> Заполнение элемента TreeView<br><br> Dim FSys As New Scripting.FileSystemObject<br><br> Private Sub Coininandl_Click () <br><br> Dim folderSpec As String<br><br> Set FSys = CreateObject("Scripting.FileSystemObject")<br><br> ' В следующей строке укажите папку, которую хотите увидеть<br><br> folderSpec = "c:\wind"<br><br> folderSpec = UCase(folderSpec)<br><br> TreeView1.Nodes.Add, ,folderSpec, folderSpec<br><br> Screen.MousePointer = vbHourglass<br><br> ScanFolder (folderSpec)<br><br> Screen.MousePointer = vbDefauit<br><br> TreeView1.Nodes(1).Expanded = True<br><br> MsgBox "File List created"<br><br> ' (Список файлов создан) <br><br> End Sub<br><br> Sub ScanFolder(folderSpec As String) <br><br> Dim thisFolder As Folder <br><br> Dim sFolders As Folders<br><br> <br> Dim fileItem As File, folderItem As Folder <br><br> Dim AllFiles As Files<br><br> Set thisFolder = FSys.GetFolder(folderSpec) <br><br> Set sFolders = thisFolder.SubFolders <br><br> Set AllFiles = thisFolder.Files <br><br> For Each folderItem In sFolders<br><br> TreeView1.Nodes.Add folderItem.ParentFolder.Path, _ <br><br> tvwChild, folderItem.Path, folderItem.Name<br><br> ScanFolder (folderItem.Path) <br><br> Next <br><br> For Each fileItem In AllFiles<br><br> TreeView1.Nodes.Add fileItem.ParentFolder.Path, _<br><br> tvwChild, fileItem.Path, fileItem.Name <br><br> Next<br><br> End Sub<br><br> Заметьте, как метод Add элемента управления TreeView добавляет папку и имена файлов в надлежащее место в дереве. Узел каждой папки является потомком узла родительской папки. Выражение folderltem.ParentFolder.Path является именем текущего пути и используется как ключ узла. Ключ каждого элемента -это имя полного пути к нему, поэтому ключи файлов с одинаковыми именами из различных папках будут помещены в требуемую позицию в дереве.<br><br> Код проекта FSystem легко модифицировать, чтобы заполнить элемент TreeView не всеми именами файлов, а только именами выделенных файлов. Критерием для выделения могут быть атрибуты файлов, например, его размер, тип и т.д. Можно выбрать файлы с изображениями, размер которых превышает 100 Кб. Или текстовые файлы, которые не использовались в течение месяца, и т.д.<br><br><br> <h1>Рекурсивный просмотр папки</h1> Contacts<br> В проекте Contacts из предыдущего параграфа подразумевалось, что все контакты хранятся в папке Contacts (точно также и в других проектах подразумевается, что все сообщения постоянно находятся в одной папке) Это приемлемо для пользователей с небольшим числом контактов (или полностью неорганизованных пользователей), но в общем случае это не так. Большинство пользователей организует контакты в подпапки для упрощения поиска. Но организовать просмотр папки Contacts вместе с подпапками не так-то просто. Для реализации такой возможности требуется использовать методы рекурсивного программирования. Если во время чтения гл. 11 " Использование рекурсивных методов" могло показаться, что рассматриваемые методы больше нигде не понадобятся, то в данном случае есть возможность убедиться в обратном. Пусть это не покажется вам навязчивой пропагандой в пользу применения рекурсии, но есть задачи, которые невозможно решить другими способами. Сколь трудным и непривычным не казался бы рекурсивный подход к программированию, но без него невозможно организовать циклический просмотр папки Contacts, при условии, что в ней содержатся подпапки (точно так же, как выполнить обход дерева Tree View).<br> <b>VB6 в действии</b>: проект AIIContacts<br> Одноименное приложение, демонстрирующее рекурсивную процедуру просмотра папки Contacts, может быть найдено в папке ALLCONTS, находящейся на компакт-диске в папке, посвященной этой главе. Если после загрузки формы приложения щелкнуть на кнопке Populate Tree, то окно элемента управления TreeView будет заполнено названиями всех подпапок папки Contacts (рис. 14.22). После этого можно открывать различные папки в окне элемента управления TreeView и просматривать список всех контактов в окне элемента управления ListBox (справа).<br> <div style="text-align:center;"><img src="image/rekursivnyj-prosmotr-papki_1.gif" alt="Рекурсивный просмотр папки"></div><br> <b>Рис. 14.22.</b> В проекте AIIContacts в окне элемента управления TreeView (слева) выводится список (дерево) всех подпапок папки Contacts приложения Outlook<br> <b>Исходный текст приложения</b><br> Программа, как всегда, начинается с описания переменных. Сначала объявляются следующие объектные переменные, используемые большинством процедур:<br> <br> Public OutlookApp As outlook.Application <br><br> Public OlObjects As outlook.NameSpace <br><br> Public OlContacts.As outlook.MAPIFolder<br><br> Затем в событии Load формы введите следующие операторы для создания нового экземпляра Outlook и объектных переменных, необходимых для обращения к его папкам.<br><br> <b>Программа 14.24.</b> Создание объектной переменной Outlook<br><br> Private Sub Form Load()<br><br> Set OutlookApp = CreateObject ("Outlook.Application.8") <br><br> If Err Then<br><br> MsgBox "Could not create Outlook Application object!"<br><br> '(He удалось создать объект Outlook Application!)<br><br> End <br><br> End If<br><br> Set OlObjects = OutlookApp.GetNamespace("MAPI") <br><br> Set OlContacts = OlObjects.GetDefaultFolder(olFolderContacts) <br><br> If Err Then<br><br> MsgBox "Could not get MAPI NameSpace" , YbCritical<br><br> ' (He удалось получить место расположения MAPI...) <br><br> End If <br><br> End Sub<br><br> Переменная<br><br> OutlookApp<br><br> представляет приложение. Переменная OlObjects - все папки, предоставленные Outlook, и переменная OlContacts -<br><br> папку Contacts. Эти переменные объявлены следующим образом:<br><br> Public OlObjects As outlook.NameSpace <br><br> Public OlContacts As outlook.MAPIFolder<br><br> Ядром приложения является обработчик события Click команды Populate Tree, который заполняет окно элемента управления TreeView с помощью рекурсивной процедуры.<br><br> <b>Программа 14.25.</b> Заполнение окна элемента управления TreeView<br><br> Private Sub Command1_Click ()<br><br> Dim allFolders As outlook.Folders<br><br> Dim Folder As outlook.MAPIFolder<br><br> Dim Folders As outlook.Folders<br><br> Dim thisPolder As outlook.MAPIFolder<br><br> Dim newNode As Node<br><br> ' Добавление корневого узла<br><br> Set newNode = TreeViewl.Nodes.Add(, , OlContacts.EntryID, "Contacts")<br><br> newNode.Expanded =<br><br> True<br><br> ' Получение списка подпапок в папке Contacts<br><br> Set allFolders = OlContacts.Folders<br><br> ' Обработка отдельных подпапок в папке Contacts<br><br> For Each Folder In allFolders<br><br> Set newNode = TreeViewl.Nodes.Add(OlContacts.EntryID, _<br><br> tvwChild, Folder.Name, Folder.Name) <br><br> Set Folders = Folder.Folders <br><br> For Each thisFolder In Folders<br><br> Set newNode = TreeViewl.Nodes.Add(Folder.Name, _<br><br> <br> tvwChild, thisFolder.EntryID, <br><br> thisFolder.Name) <br><br> newNode.Expanded = True<br><br> ' теперь просматривается содержимое подпапок текущей папки<br><br> ScanSubFolders thisFolder <br><br> Next <br><br> Next <br><br> End Sub<br><br> Чтобы заполнить окно элемента управления TreeView, сначала добавляется корневой узел, который, в данном случае, является папкой Contacts. Этот узел не имеет родительского узла, а ключом для него является значение свойства Entry ID папки Contacts:<br><br> Set newNode = TreeViewl.Nodes.Add(, , OlContacts.EntryID, _<br><br> "Contacts") <br><br> newNode.Expanded = True<br><br> Как только узел добавлен, он дополняется таким образом, чтобы пользователь видел имена подпапок под ним и знак "плюс" перед их именами. Затем необходимо создать семейство allFolders,<br><br> которое содержит все подпапки папки Contacts:<br><br> Set allFolders = OlContacts.Folders<br><br> Цикл, приведенный в программе 14.26, просматривает каждый элемент этого семейства и добавляет имя текущей папки к содержимому окна элемента управления TreeView. Новый узел становится дочерним узлом узла Contacts, а его ключом является значение свойства EntryID родительского узла.<br><br> Затем следует создать другое семейство - Folders, содержащее подпапки текущей папки. Элементы этого семейства добавляются к содержимому окна элемента управления TreeView, после чего вызывается подпрограмма ScanSubFolders(), позволяющая просмотреть подпапки каждого элемента семейства. Код подпрограммы ScanSubFoldersO приведен ниже.<br><br> <b>Программа 14.26.</b><br><br> Подпрограмма ScanSubFolders()<br><br> Sub ScanSubFolders(thisFolder As Object)<br><br> Dim subFolders As outlook.Folders <br><br> Dim subFolder As outlook.MAPIFolder<br><br> Set subFolders = thisFolder.Folders <br><br> If subFolders.Count<b> <></b> 0 Then<br><br> strFolderKey = thisFolder.EntryID <br><br> For Each subFolder In subFolders<br><br> TreeViewl.Nodes.Add thisFolder.EntryID, _<br><br> tvwChild, subFolder.EntryID, subFolder.Name<br><br> ScanSubFolders subFolder <br><br> Next <br><br> End If <br><br> End Sub<br><br> Это очень простая программа (для рекурсивной процедуры, разумеется). Она позволяет создать семейство subFolders<br><br> подпапок текущей папки. Затем программа просматривает каждый элемент семейства, добавляет его имя к содержимому окна элемента управления TreeView и, при этом, выполняет этот просмотр рекурсивно. Это означает, что она вызывает сама себя, передавая в качестве параметра имя текущей папки.<br><br> <br> <b>Просмотр контактов папки</b><br><br> После заполнения окна элемента управления TreeView подпапками папки Contacts можно с помощью мыши в этом окне выбрать папку, чтобы отобразить ее контакты в окне элемента управления ListBox (с правой стороны формы). После того как в окне элемента управления TreeView выполнен щелчок, вызывается обработчик события NodeClick.<br><br> Это событие возвращает узел, на котором был выполнен щелчок, после чего можно получить ключ узла, который является ID выбранной папки. Как только стал известен ID выбранной папки, можно создать ссылку на эту папку (переменная thisFolder)<br><br> и использовать ее для просмотра содержащихся в ней элементов (т. е. контактов). Ниже приводится текст обработчика события NodeClick в окне элемента управления TreeView.<br><br> <b>Программа 14.27.</b> Получение списка содержимого выбранной папки<br><br> Private Sub TreeViewl NodeClick(ByVal Node As ComctlLib.Node) <br><br> Dim thisFolder As outlook.MAPIFolder <br><br> Dim contacts As outlook.Items <br><br> Dim Contact As outlook.Contactltem<br><br> On Error Resume Next <br><br> List1.Clear <br><br> Labell.Caption = "Selected Folder: " & Node.Text<br><br> ' (Выбранная папка:...) <br><br> Set thisFolder = OlObjects.GetFolderFromID(Node.Key) <br><br> If Err Then<br><br> Exit Sub <br><br> Else<br><br> Set contacts = thisFolder.Items <br><br> For Each Contact In contacts<br><br> List1.AddItem Contact.LastName & ", " & _<br><br>    Contact.FirstName <br><br> Next <br><br> End If <br><br> End Sub<br><br> Программа позволяет отобразить только значения свойств<br><br> LastName и FirstName контакта. Пользователь может изменить программу, чтобы можно было отображать содержимое любых полей. Например, можно получать адрес электронной почты контакта и автоматически разослать по этим адресам сообщения (как это было сделано в предыдущем примере). Если эти примеры представляются вам интересными, можете вставить фрагмент программы AlIContacts в проект Contacts.<br><br> Этим примером заканчивается введение в автоматизацию<br><br> OLE. Если добавить ссылки на различные Office-приложениям в пользовательских проектах, а затем открыть Object Browser, то можно обнаружить, что теперь они предоставляют много объектов, которые, в свою очередь, предоставляют многочисленные свойства и методы. Автоматизация Office-приложений с помощью VBA вполне по силам среднему программисту, и, кроме того. она предоставляет возможность ознакомиться с объектами, предоставляемыми Office-приложениями (или любыми другими приложениями, которые поддерживают VBA). После чтения этой главы читатель получит знания об основах программирования в VBA и понимание того обстоятельства, что программирование в VBA не многим отличается от программирования BVB6.<br><br> <br> <b>Глава 15</b> Конструирование компонентов ActiveX<br><br> <b>• Модули и модули классов</b><br><br> <b>• Конструирование модулей классов</b><br><br> <b>• Реализация свойств и методов</b><br><br> <b>• Инициирование событий из кода класса</b><br><br> <b>• Создание и использование объектных переменных</b><br><br> <b>• Регистрация компонентов ActiveX</b><br><br> <b>• Обработка ошибок в классах</b><br><br> В предыдущей главе было показано, как установить связь с приложением-сервером и как управлять его работой с помощью объектов, которые оно предоставляет. В этой главе объясняется, как создавать свои собственные приложения-серверы или так называемые компоненты ActiveX. Компонент ActiveX — это общий термин, который относится к трем (в будущем, возможно, и более) типам проектов: ActiveX DLL, ActiveX EXE и элементам управления ActiveX. В этой главе мы познакомимся с конструированием программных компонентов<br><br> (ActiveX DLL и ActiveX EXE), которые являются приложениями-серверами, интерфейс которых состоит из свойств, методов и событий.<br><br> В следующей главе будет показано, как создавать свои собственные элементы управления ActiveX, которые могут быть добавлены на панель элементов управления любого проекта и использоваться разработчиками при конструировании пользовательских интерфейсов. В гл. 20 показано, как элементы управления ActiveX могут быть использованы на Web-страницах.<br><br> Главные отличия между элементами управления ActiveX и программными компонентами ActiveX заключаются в их интерфейсах и способе встраивания в среду разработки Visual Basic. В то время как элементы управления ActiveX полностью интегрированы в Visual Basic и имеют визуальный интерфейс, программные компоненты, напоминающие по функциональным возможностям элементы управления ActiveX, менее интегрированы со средой разработчика (их, например, нельзя поместить на форму, как это можно сделать с элементом управления) и не имеют визуального интерфейса. Программные компоненты ActiveX являются классами, которые доступны через объявляемую соответствующим образом объектную переменную.<br><br> Другой категорией компонентов ActiveX являются документы ActiveX — это приложения, которые могут располагаться в таких контейнерах, как Internet Explorer и Office Binder. В этой книге мы не будем рассматривать документы ActiveX, которые, на самом деле, очень похожи на программные компоненты ActiveX и элементы управления ActiveX.<br><br><br> <h1>Реляционные связи</h1> Базы данных, используемые в настоящее время, являются реляционными, поскольку они основаны на отношениях между таблицами. Основой системы реляционных баз данных является разбиение данных на составные таблицы, связанные общей информацией (ключами).<br> Предположим, разрабатывается база данных для хранения счетов. Эта база данных должна иметь таблицу с именами заказчиков, названиями изделий, ценами, и, конечно, таблицу счетов. Каждый счет, выписанный заказчику, содержит ряд изделий. Вместо того чтобы хранить названия изделий и имена заказчиков в счете, хранятся числа, которые уникально идентифицируют заказчиков и изделия. Эти числа - ключи, связывающие строки одной таблицы со строками другой. Ключи устанавливают связи между таблицами и делают возможным разбиение информации на отдельные таблицы во избежание ее дублирования.<br> Примечание<br> Модель реляционной базы данных создана в 1970 году Коддом (E.F. Codd) из корпорации IBM, который разработал также язык запросов, впоследствии названный SQL.<br> Рассмотрим некоторые понятия реляционной модели, а затем разработаем приложения, демонстрирующие эти принципы.<br><br> <br><br> <h1>Рисование на объекте</h1> UserControl<br> Теперь уже есть функционирующий элемент управления, при создании которого не было особых проблем, поскольку Visual Basic создал его скелет. Элемент управления интегрирован в среду разработки, его пиктограмма появилась на панели элементов управления, и он может быть уже использован, как обычный элемент управления. Он даже имеет свое собственное окно свойств. Теперь настало время сделать элемент управления реально работающим. Необходимо добавить код, уникальный для данного элемента управления, который рисует надпись.<br> Код вывода на экран видимого интерфейса элемента управления обычно помещается в событие Paint. Visual Basic инициирует это событие каждый раз, когда элемент управления должен быть перерисован. Таким образом, нужно добавить код, перерисовывающий элемент управления. Сейчас давайте скопируем процедуру DrawCaption(), разработанную ранее в этой главе, в элемент управления. Откройте окно объекта UserControl, в котором находится код элемента управления, и вставьте туда процедуру DrawCaption(). В обработчике события Paint объекта UserControl вставьте следующую строку, которая вызывает процедуру DrawCaptionQ:<br> DrawSubroutine<br> Этот вызов в событии Paint гарантирует, что каждый раз, когда разработчик изменяет размеры элемента управления, или при обновлении формы, весь объект UserControl будет также перерисован.<br> Процедура DrawCaption() рисует на объекте Form. Объект UserControl фактически идентичен объекту Form, поэтому может использовать те же самые методы рисования. Откройте окно кода объекта UserControl, вставьте код подпрограммы DrawCaption() и замените все вхождения "Me" на "UserControl", чтобы процедура рисовала на объекте UserControl.<br> Подпрограмма DrawCaption() должна также вызываться для перерисовки надписи всякий раз, когда изменяется какое-либо из специальных свойств элемента управления. Свойствами, которые влияют на вид выводимого текста наряду со стандартными свойствами Picture и BackColor, являются Caption, TextAlignment и Effect. Вставьте в коды этих свойств элемента управления процедуру Property Let со строкой, вызывающей событие UserControl_Paint. Доработанная процедура Property Let для свойства Effect показана ниже (подчеркнута вставленная строка).<br> <br> Public Property Let Effect (ByVal New_Effect As Effects) <br><br> m_Effect = New_Effect <br><br> PropertyChanged "Effect" <br><br> <u>UserControl Paint</u><br><br> End Property<br><br> Рисование на объекте UserControl идентично рисованию на объекте Form. Элементы управления, которые подобно элементу управления FLEXLabel рисуют свой видимый интерфейс и не полагаются на стандартные элементы управления, называются user-drawn<br><br> (нарисованные пользователем). Позже в главе будет показано, как строить специальные элементы управления на основе конституэнтных.<br><br> Попробуйте изменить свойство, определяющее цвет элемента управления FLEXLabel. Появится знакомое диалоговое окно, в котором можно выбрать или задать новый цвет. Заметьте, мы не предпринимали никаких мер для реализации этого свойства. Если посмотреть код элемента управления, можно заметить, что мастер объявил тип свойств Backcolor и ForeColor как OLE_COLOR. Когда Visual Basic видит тип OLE_COLOR, он знает, как обрабатывать соответствующие свойства в окне свойств.<br><br> Примечание<br><br> OLE_COLOR не является общим типом данных, который можно использовать в объявлениях обычных переменных Visual Basic, но он имеет определенный смысл. Он выводит диалоговое окно Color Selection (Выбор цвета) всякий раз, когда пользователь пробует устанавливать новое значение для свойства, определяющего цвет. Если определить тип свойств Backcolor или Forecolor как Long, то пользователь элемента управления для задания цвета должен будет вводить в окне свойств целое значение (например, HOOFFOO для зеленого цвета).<br><br><br> <h1>Сценарии для объектов</h1> ActiveX<br> Наиболее мощное свойство элемента управления Script, позволяющее использовать его для написания сценариев приложения — это его способность манипулировать элементами управления ActiveX. Из примера, приведенного в предыдущем параграфе, видно, как создавать объектные переменные для доступа к OLE-серверу. Если приложение использует классы, то можно получить к ним доступ посредством элемента управления VBScript. Необходимо только создать экземпляр класса (или нескольких классов) и сохранить его в элементе управления Script. После этого свойства и методы будут доступны с помощью объектной переменной, как обычные команды VBScript.<br> С помощью метода AddObject<br> можно добавить объект к элементу управления Script.<br> ScriptControll.AddObject Name, Object, members<br> Первый аргумент — Name —<br> это имя для доступа к классу в сценарии. Это переменная типа String. Второй аргумент - Object - действительное имя класса. Допустим, приложение предоставляет класс DisplayClass. Для добавления этого класса к элементу управления Script надо создать объектную переменную<br> Private Display As New DisplayClass <br> и воспользоваться следующим оператором<br> ScriptControll.AddObject "Output", Display<br> После выполнения этого оператора (обычно он помещается в событие Load формы) сценарий получает доступ к членам класса DisplayClass через объектную переменную Output. Если DisplayClass имеет метод Show, то к этому методу может обращаться любой сценарий.<br> Output.Show "some message"<br> ' (некоторое сообщение)<br> (Метод Show выводит сообщение в нижний элемент управления TextBox формы.) Последний (необязательный) аргумент - members — это логическое значение, определяющее, будут ли доступны члены класса через объектную переменную. Если установить значение этого аргумента в True, то члены класса будут доступны по имени, как функции VBScnpt. Если добавить класс DisplayClass в элемент управления Script оператором<br> ScriptControll.AddOb]ect "Output", Display, True<br> то к методу Show можно обратиться из сценария без указания переменной имени объекта<br> <br> Show "some message"<br><br> (некоторое сообщение)<br><br> <b>VB6 в действии: класс Display</b><br><br> Одно из ограничений VBScnpt — он не поддерживает функций ввода/вывода. Так как VBScnpt — язык написания сценариев, то он по определению не поддерживает пользовательский интерфейс. Если необходимо разработать приложение с визуальным интерфейсом, то используйте Visual Basic. Но во время проектирования, особенно на этапах отладки и тестирования, необходим способ отображения промежуточных результатов.<br><br> Форма проекта SEditor имеет окно, в котором сценарий помещает свой вывод (подобно временному окну). Эта особенность реализуется с помощью класса DisplayClass, имеющего два метода.<br><br> •  Show - для печати строки в нижнем элементе управления TextBox;<br><br> • Clear — для удаления содержимого нижнего элемента управления TextBox.<br><br> Реализация модуля класса DisplayClass требует всего нескольких строк кода. <br><br> <b>Программа 20.9.</b> Класс Display<br><br> Public Sub Show(message)<br><br> ScriptForm.Text2.Text = ScriptForm.Text2.Text _<br><br> & vbCrLf & message <br><br> End Sub<br><br> Public Sub Clear()<br><br> ScriptForm.Text2.Text = ""<br><br> End Sub<br><br> Для использования членов класса DisplayClass внутри сценария без регистрации Display DLL и создания объектной переменной с помощью функции CreateObject(), объект Display добавляется в элемент управления Script. Для этого необходимо добавить следующий оператор в событие Load формы.<br><br> Private Sub Form Load()<br><br> ScriptControll.AddObject "Output", Display, True <br><br> End Sub<br><br> Заметьте последний аргумент установлен в True, то есть Show и Clear доступны по имени.<br><br> Проект SEditor — простое приложение, позволяющее экспериментировать с VBScript. При разработке действительно сложных приложений, не требующих интенсивного ввода/вывода (не считая функции MsgBox() и метода Show), можно использовать и простой редактор. Однако на него нельзя рассчитывать, когда понадобится отобразить члены объектной переменной или проверить синтаксис.<br><br><br> <h1>Семейство</h1> Documents u объект Document<br> Первым в иерархии объектов приложения Word является объект Document, представляющий любой документ, который можно открыть в Word, или иной документ, который можно отобразить в окне Word. Все открытые документы принадлежат семейству Documents (Документы), которое состоит из объектов Document. Подобно всем другим семействам, это семейство поддерживает свойство Count (Число открытых документов), метод Add (Добавить), с помощью которого можно добавить новый документ, и метод Remove (Удалить), который позволяет закрыть существующий документ. Чтобы обратиться к уже открытому документу, можно воспользоваться методом Item (Элемент) из семейства Documents (Документы), определив индекс документа следующим образом:<br> Application.Documents.Item(1) <br> Аналогичным образом можно определить имя документа:<br> Application.Documents.Item ("MasteringVB.doc")<br> Поскольку Item — это заданное по умолчанию свойство, то можно полностью опустить его имя:<br> Application.Documents(I)<br> Чтобы открыть существующий документ, можно воспользоваться методом Open (Открыть) семейства Documents (Документы):<br> Documents.Open(fileName)<br> Параметр<br> fileName — это путь и имя файла документа.<br> Для создания нового документа, следует воспользоваться методом Add семейства Documents (Документы), который принимает два необязательных параметра:<br> Documents.Add(template, newTemplate)<br> Параметр<br> template определяет имя файла шаблона, который нужно использовать в качестве основы для нового документа. Параметр newTemplate<br> является значением типа Boolean. Если он имеет значение True, Word создаст новый файл шаблона.<br> Большинство выполняемых операций воздействуют на активный документ (документ в активном окне Word), который представляется объектом ActiveDocument, являющийся свойством объекта Application. Чтобы обращаться к выделенному тексту в активном документе, следует воспользоваться следующим выражением:<br> Application ActiveDocument.Selection<br> Можно сделать активным любой документ, вызвав метод Activate (Активизировать) объекта Document. Чтобы сделать документ My Notes doc активным, можно воспользоваться следующим оператором:<br> Documents ("MyNotes doc"). Activate<br> После выполнения этого оператора документ MyNotes doc становится активным, и программа может обращаться к нему по имени Application ActiveDocument<br> <br> Worksheets и объект Worksheet<br> Каждая рабочая книга в Excel может содержать один или несколько рабочих листов. Коллекция Worksheets, подобная коллекции Documents в Word, содержит объект Worksheet<br> для каждого рабочего листа в текущей рабочей книге. Чтобы добавить новый рабочий лист, следует воспользоваться методом Add:<br> Application.Worksheets.Add(before, after, count, type)<br> Параметры<br> before и after позволяют определить расположение нового рабочего листа в рабочей книге. Можно определить только один из двух параметров. Если опустить оба параметра, то новый рабочий лист будет вставлен перед активным рабочим листом (и станет активным). Параметр type определяет тип нового рабочего листа и может иметь одно из следующих значений.<br> <b>•   xlWorksheet.</b> Значение, установленное по умолчанию.<br> <b>•   xIExcel4MacroSheet.</b> Рабочий лист, содержащий макросы Excel 4.<br> <b>•   xlExcel4lntlMacroSheet.</b> Рабочий лист, содержащий международные макросы Excel 4. Чтобы обратиться к рабочему листу, следует воспользоваться методом Item коллекции Worksheets, передавая в качестве параметра индекс или имя рабочего листа. Если второй рабочий лист называется SalesData.xIs, то следующие выражения эквивалентны:<br> Application.Worksheets.Item(2) <br> и<br> Application.Worksheets.Item ("Sales Data.xls")<br> Поскольку Item — это установленное по умолчанию свойство коллекции, имя его можно полностью опустить:<br> Application.Worksheets (2)<br> <b>Объекты, предоставляющие доступ к ячейкам</b><br> Excel - это приложение, которое предназначено для обработки информации хранящейся в ячейках. Но основным объектом, используемым для организации доступа к содержимому рабочего листа, является объект Range, являющийся свойством объекта Worksheet. Имеются несколько способов идентификации объекта Range, но ниже приведено каноническое его описание:<br> Worksheet.Range(celll:се112)<br> Где cell1 и сеll2<br> —адреса двух ячеек, которые определяют прямоугольную область на рабочем листе. Это адреса левой верхней и правой нижней ячеек блока. В этом параграфе будет использована стандартная нотация Excel, в которой число определяет строку, а буква - столбец, например, СЗ или А103. Чтобы выбрать блок ячеек размером 10 х 10, занимающий левый верхний угол активного рабочего листа, следует воспользоваться выражением:<br><br> <br> Files<br> Семейство Files содержит объект File для каждого файла папки. Следующий сценарий обрабатывает все файлы указанной папки с помощью оператора For Each... Next.<br> Set ThisFolder = FSys.GetFolder(folderName) <br> Set AllFiles = ThisFolder.Files <br> For Each file in AllFiles<br> {обработка текущего файла} <br> Next<br> Внутри тела цикла предоставляется доступ к свойствам текущего файла. Его имя - это file. Name, дата создания - file.DateCreated и т.д. В следующих параграфах перечислены свойства и методы объекта File.<br><br> <br> Folders<br> Семейство Folders содержит объект Folder для каждой подпапки в папке. Следующий сценарий обрабатывает каждую подпапку в указанной папке, используя оператор For Each...Next.<br> Set FSys = CrateObject ("Scripting. FileSystemObject") <br> Set ThisFolder =<br> FSys.GetFolder(folderName) <br> Set AllFolders = ThisFolder.SubFolders<br> For Each folder in AllFolders <br> {обработка текущей папки} <br> Next<br> В теле цикла доступны свойства текущей папки. Ее имя – folder.Name, дата создания — folder. DateCreated и т.д.<br> Свойства объекта Folder описаны ниже. Рассмотрим метод AddFolder - единственный метод объекта Folder.<br> <b>AddFolder.</b> Этот метод добавляет новый объект Folder в семейство. Его синтаксис имеет вид:<br> FolderObject.AddFolders folderName <br> где<br> folderName - это имя новой добавляемой папки.<br> <b>Объект Folder</b><br> Этот объект представляет папку на диске. Он позволяет манипулировать реальными папками на диске с помощью своих методов и свойств. Чтобы создать объект Folder, сначала создается объектная переменная типа FileSystem Object, а затем — вызывается ее метод GetFolder, которому в качестве аргумента передается путь к папке.<br> Set FSys = CreateObject ("Scripting.FileSystemObject") <br> Set thisFolder = FSys.GetFolder("c: \windows\desktop")<br> Теперь переменная thisFolder<br> задает папку c:\windows\desktop, и вы можете работать с ней, используя свойства и объекты переменной. Кратко опишем свойства объекта Folder.<br> <b>Attributes.</b><br> Возвращает или устанавливает атрибуты файлов или папок. Подробно описано в параграфе свойств объекта File.<br> <b>DateCreated.</b><br> Возвращает дату и время создания указанного файла или папки ("только для чтения").<br> <b>DateLastAccessed, DateLastModified.</b><br> Возвращают дату и время последнего доступа/модификации файла или папки ("только для чтения").<br> <b>Drive.</b> Возвращает имя устройства (буква), на котором находится указанный файл или папка ("только для чтения").<br> <b>ParentFolder.</b><br> Возвращает родительскую папку объекта Folder. Используется в примере свойства IsRootFolder.<br><br> <br> Subfolders<br> Свойство Subfolders возвращает семейство Subfolders, содержащее все подпапки данной папки. Чтобы получить семейство Subfolders папки "C:\WINDOWS", создайте переменную FileSystem Object, воспользуйтесь методом GetFolder для получения ссылки на указанную папку, а затем создайте семейство ее подпапок, используя свойство SubFolders.<br> Set FSys =<br> CreateObject ("Scripting.FileSystemObject") <br> Set thisFolder = FSys.GetFolder ("c:\windows") <br> Set allFolders = aFolder.SubFolders <br> For Each subFolder in allFolders<br> {обработка папки subFolder} <br> Next<br> Чтобы отсканировать подпапки указанной папки, используйте оператор For Each...Next, как показано выше. Имя текущей папки в теле цикла - subFolder.Name.<br> При обработке текущей папки можно исследовать ее файлы, чему и посвящен следующий параграф.<br><br> <br> Environment<br> Свойство Environment возвращает семейство переменных среды. Для обработки этих переменных создается объект Shell и обрабатывается семейство Environment.<br> Set WShell = Wscript.CreateObject ("Wscript.Shell") <br> Set AllVars = WShell.Environment <br> For Each evar In AllVars<br> txt = txt & evar & vbCrLf <br> Next <br> MsgBox txt<br> Переменная<br> evar задает переменные среды в этой форме.<br> Variable =<br> setting<br> Результат работы ENWARS.VBS показан на рис. 20.11. Для доступа к определенным переменным среды используется объект Environment, описанный ниже.<br> <div style="text-align:center;"><img src="image/index-image152.gif" alt="Семейство"></div><br> <b>Рис. 20.11.</b> Сценарий ENWARS.VBS отображает имена и значения переменных среды<br> Переменные, возвращаемые методом Environment, по умолчанию — переменные среды PROCESS. Это встроенные переменные, такие как WinDir или WinBootDir, и переменные, созданные командой SET (команда DOS, встречающаяся несколько раз в файле AUTOEXEC.BAT). Эти переменные перечислены в табл. 20.6 (некоторые из них могут отсутствовать в системе). Можно передать аргумент методу Environment, который укажет, какой набор переменных возвращать. Windows NT поддерживает несколько наборов переменных среды. Windows 98 — только наборы PROCESS и VOLATILE. Сценарий может использовать набор VOLATILE для обмена с другими сценариями или динамически создавать и удалять эти переменные.<br> <b>Семейство SpecialFolders</b><br> Свойство SpecialFolders предоставляет доступ к специальным папкам системы. Специальные папки включают папку Desktop (Рабочий стол), папку Start-меню и папку с персональными документами.<br> Примечание<br> Свойство SpecialFolders возвращает путь к папке Desktop (Рабочий стол), а не объект Folder. Для доступа к файлам и подпапкам этой папки необходимо создать экземпляр объекта Folder с помощью метода GetFolder объекта FileSystemObject, как показано в следующем примере.<br> Семейство SpecialFolders используется для создания новых ярлыков на Рабочем столе или помещения новых приложений в меню Пуск. Следующий пример выводит список всех файлов, имеющихся в папке DeskTop, и их типы. Для просмотра файлов этот сценарий (DTOP.VBS на компакт-диске) использует объект FileSystemObject.<br><br> <br><br> <h1>Скелет элемента управления ActiveX</h1> Перед добавлением кода следует изучить, что именно сделал мастер. Переключитесь в окно Project Explorer и выполните двойной щелчок на имени созданного элемента управления, чтобы открыть режим разработки Затем выполните двойной щелчок на форме элемента UserControl, чтобы открыть окно с кодом и просмотреть строки, вставленные мастером.<br> <b>Программа 16.2.</b> ActiveX Control<br> Private m_Caption As String <br> Private m_Effect As Integer <br> Private m TextAlignment As Integer<br> ' Значения свойств по умолчанию: <br> Const m_def_Caption = "3D Label" <br> Const m_def_Effect = 2 <br> Const m_def_TextAlignment = 4<br> ' Переменные свойств:<br> ' Объявления событий: <br> Event DblClick()<br> Event Click()<br> Event KeyUp(KeyCode As Integer, Shift As Integer)<br> Event KeyPress(KeyAscii As Integer)<br> Event KeyDown(KeyCode As Integer, Shift As Integer)<br> Event MouseUp(Button As Integer, Shift As Integer, X As Single, _<br> Y As Single)<br> Event MouseMove(Button As Integer, Shift As Integer, X As Single, _<br>      Y As Single)<br> Event OLEStartDrag(Data As DataObject, AllowedEffects As Long)<br> Event OLESetData(Data As DataObject, DataFormat As Integer)<br> Event OLEGiveFeedback(Effect As Long, DefaultCursors As    Boolean)<br> Event OLEDragOver(Data As DataObject, Effect As Long, _<br>      Button As Integer, Shift As Integer, X As Single, _<br>      Y As Single, State As Integer) <br> Event OLEDragDrop(Data As DataObject, Effect As Long, _<br> Button As Integer, Shift As Integer, X As Single, _<br> Y As Single) <br> Event Resize ()<br> Public Property Get Font() As Font<br> Set Font = UserControl.Font <br> End Property<br> Public Property Set Font(ByVal New_Font As Font)<br> Set UserControl.Font = New_Font<br> PropertyChanged "Font" <br> End Property<br> Public Property Get BorderStyle() As Integer<br> BorderStyle = UserControl.BorderStyle <br> End Property<br> Public Property Let BorderStyle(ByVal New_BorderStyle As Integer)<br> UserControl.BorderStyle() = New_BorderStyle<br> PropertyChanged "BorderStyle" <br> End Property<br> Public Property Get BackStyle() As BackgroundStyle<br> <br> BackStyle = UserControl.BackStyle <br><br> End Property<br><br> Public Property Let BackStyle(ByVal New_BackStyle As _<br><br> BackgroundStyle)<br><br> UserControl.BackStyle() = New_BackStyle<br><br> PropertyChanged "BackStyle" <br><br> End Property<br><br> Public Property Get Appearance () As Integer<br><br> Appearance = UserControl.Appearance <br><br> End Property<br><br> Private Sub UserControl_DblClick()<br><br> RaiseEvent DblClick <br><br> End Sub<br><br> Private Sub UserControl_Click()<br><br> RaiseEvent Click <br><br> End Sub<br><br> Public Property Get Enabled() As Boolean<br><br> Enabled = UserControl.Enabled <br><br> End Property<br><br> Public Property Let Enabled(ByVal New_Enabled As Boolean)<br><br> UserControl.Enabled() = New_Enabled<br><br> PropertyChanged "Enabled" <br><br> End Property<br><br> Public Property Get ForeColor() As OLE_COLOR<br><br> ForeColor = UserControl.ForeColor <br><br> End Property<br><br> Public Property Let ForeColor(ByVal New_ForeColor As OLE_COLOR)<br><br> UserControl.ForeColor() = New ForeColor<br><br> PropertyChanged "ForeColor" <br><br> End Property<br><br> Public Property Get hDC() As Long<br><br> hDC = UserControl.hDC <br><br> End Property<br><br> Public Property Get hWnd() As Long<br><br> hWnd = UserControl.hWnd <br><br> End Property<br><br> Private Sub UserControl_KeyUp( KeyCode As Integer, Shift As Integer)<br><br> RaiseEvent KeyUp(KeyCode, Shift) <br><br> End Sub<br><br> Private Sub UserControl_Keypress(KeyAscii As Integer)<br><br> RaiseEvent Keypress(KeyAscii) <br><br> End Sub<br><br> Private Sub UserControl_KeyDown(KeyCode As Integer, Shift As Integer)<br><br> RaiseEvent KeyDown(KeyCode, Shift) <br><br> End Sub<br><br> Private Sub UserControl_MouseUp(Button As Integer, Shift As Integer, _<br><br> X As Single, Y As Single) <br><br> RaiseEvent MouseUp(Button, Shift, X, Y) <br><br> End Sub<br><br> Public Property Get MousePointer() As Integer<br><br> MousePointer = UserControl.MousePointer <br><br> End Property<br><br> Public Property Let MousePointer(ByVal New_MousePointer As Integer)<br><br> UserControl.MousePointer() = New_MousePointer<br><br> PropertyChanged "MousePointer" <br><br> End Property<br><br> Private Sub UserControl_MouseMove(Button As Integer, Shift As Integer,     _<br><br> <br> X As Single, Y As Single)<br><br> RaiseEvent MouseMove(Button, Shift, X, Y) <br><br> End Sub<br><br> Private Sub UserControl_OLEStartDrag(Data As Data0bject, _<br><br> AllowedEffects As Long)<br><br> RaiseEvent OLEStartDrag(Data, AllowedEffects) <br><br> End Sub<br><br> Private Sub UserControl_OLESetData(Data As DataObject, _<br><br> DataFormat As Integer)<br><br> RaiseEvent OLESetData(Data, DataFormat) <br><br> End Sub<br><br> Private Sub UserControl_OLEGiveFeedback(Effect As Long, _<br><br> DefaultCursors As Boolean)<br><br> RaiseEvent OLEGiveFeedback(Effect, DefaultCursors) <br><br> End Sub<br><br> Public Property Get OLEDropMode() As Integer<br><br> OLEDropMode = UserControl.OLEDropMode <br><br> End Property<br><br> Public Property Let OLEDropMode(ByVal New_OLEDropMode As Integer)<br><br> UserControl.OLEDropMode() = New_OLEDropMode<br><br> PropertyChanged "OLEDropMode" <br><br> End Property<br><br> Private Sub UserControl_OLEDragOver(Data As DataObject, _<br><br> Effect As Long, Button As Integer, Shift As Integer, _ <br><br> X As Single, Y As Single, State As Integer)<br><br> RaiseEvent OLEDragOver(Data, Effect, Button, Shift, X, Y, State)<br><br> End Sub<br><br> Private Sub UserControl_OLEDragDrop(Data As Data0b]ect, Effect As    Long, _ <br><br> Button As Integer, Shift As Integer, X As Single, _ <br><br> Y As Single)<br><br> RaiseEvent OLEDragDrop(Data, Effect, Button, Shift, X, Y) <br><br> End Sub<br><br> Public Sub OLEDrag()<br><br> UserControl.OLEDrag <br><br> End Sub<br><br> Public Property Get Picture() As Picture<br><br> Set Picture = UserControl.Picture <br><br> End Property<br><br> Public Property Set Picture(ByVal New Picture As     Picture)<br><br> Set UserControl.Picture = New_Picture<br><br> PropertyChanged "Picture" <br><br> End Property<br><br> Private Sub UserControl_Resize ()<br><br> RaiseEvent Resize <br><br> End Sub<br><br> Public Property Get Caption() As String<br><br> Caption = m_Caption <br><br> End Property<br><br> Public Property Let Caption(ByVal New_Caption As     String)<br><br> m_Caption = New Caption<br><br> PropertyChanged "Caption" <br><br> End Property<br><br> Public Property Get Effect() As Integer<br><br> Effect = m_Effect <br><br> End Property<br><br> Public Property Let Effect(ByVal New_Effect As Integer)<br><br> <br> m_Effect = New_Effect<br><br> PropertyChanged "Effect" <br><br> End Property<br><br> Public Property Get TextAlignment() As Integer<br><br> TextAlignment = m_TextAlignment <br><br> End Property<br><br> Public Property Let TextAlignment(ByVal New_TextAlignment As Integer)<br><br> m_TextAlignment = New_TextAlignment<br><br> PropertyChanged "TextAlignment" <br><br> End Property<br><br> ' Инициализация свойств <br><br> Private Sub UserControl_InitProperties()<br><br> Set Font = Ambient.Font<br><br> m_Caption = m_def_Caption<br><br> m_Effect = m_def_Effect<br><br> m_TextAlignment = m_def_TextAlignment<br><br> UserControl.BorderStyle = 1<br><br> UserControl.BackStyle = 1 <br><br> End Sub<br><br> ' Загрузка значений свойств <br><br> Private Sub UserControl_ReadProperties(PropBag As PropertyBag)<br><br> Set Font = PropBag.ReadProperty("Font",Ambient.Font)<br><br> UserControl.BorderStyle = PropBag.ReadProperty ("BorderStyle", 0)<br><br> UserControl.BackStyle = PropBag.ReadProperty ("BackStyle", 1)<br><br> UserControl.Enabled = PropBag.ReadProperty ("Enabled", True)<br><br> UserControl.ForeColor = PropBag.ReadProperty ("ForeColor", _<br><br>    &H80000012)<br><br> UserControl.MousePointer = PropBag.ReadProperty ("MousePointer", 0)<br><br> UserControl.OLEDropMode = PropBag.ReadProperty ("OLEDropMode", 0)<br><br> Set Picture = PropBag.ReadProperty ("Picture", Nothing) <br><br> m_Caption = PropBag.ReadProperty ("Caption", m_def_Caption)<br><br> m_Effect = PropBag.ReadProperty ("Effect", m_def_Effect)<br><br> m_TextAlignment = PropBag.ReadProperty ("TextAlignment", _<br><br>   m_def_TextAlignment) <br><br> UserControl.BackColor = PropBag.ReadProperty ("BackColor", _<br><br>   SH8000000F) <br><br> End Sub<br><br> ' Сохранение значений свойств <br><br> Private Sub UserControl_WriteProperties(PropBag As PropertyBag)<br><br> Call PropBag.WriteProperty("Font", Font, Ambient.Font) <br><br> Call PropBag. WriteProperty("BorderStyle",<br><br> UserControl.BorderStyle,0)<br><br> Call PropBag.WriteProperty("BackStyle", UserControl.BackStyle, 1)<br><br> Call PropBag.WriteProperty("Enabled", UserControl.Enabled, True) Call PropBag.WriteProperty ("ForeColor", UserControl.ForeColor, _<br><br> <br> &H80000012) <br><br> Call PropBag. WriteProperty ("MousePointer", _<br><br> UserControl.MousePointer, 0) <br><br> Call PropBag. WriteProperty ("OLEDropMode", _<br><br> UserControl.OLEDropMode, 0) <br><br> Call PropBag.WriteProperty("Picture", Picture, Nothing) <br><br> Call PropBag. WriteProperty ("Caption", m_Caption, _<br><br> m_def_Caption) <br><br> Call PropBag.WriteProperty("Effect", m_Effect,<br><br> m_def_Effect) <br><br> Call PropBag. WriteProperty ("TextAlignment", _<br><br> m_TextAlignment, m_def_TextAlignment) <br><br> Call PropBag.WriteProperty ("BackColor", _<br><br> UserControl.BackColor, &H8000000F) <br><br> End Sub<br><br> ' ВНИМАНИЕ! НЕ УДАЛЯЙТЕ И НЕ ИЗМЕНЯЙТЕ <br><br> ' СЛЕДУЮЩУЮ ЗАКОММЕНТИРОВАННУЮ СТРОКУ <br><br> ' MappingInfo=UserControl,UserControl,-1,BackColor <br><br> Public Property Get BackColor() As OLE_COLOR<br><br> BackColor = UserControl.BackColor <br><br> End Property<br><br> Public Property Let BackColor(ByVal New_BackColor As OLE_COLOR)<br><br> UserControl.BackColor() = New_BackColor<br><br> PropertyChanged "BackColor" <br><br> End Property<br><br> Программа довольно длинная, но не так сложна, как выглядит. Рассмотрим каждый раздел кода подробно, начиная с раздела объявлений.<br><br> Option Explicit<br><br> ' Значения свойств по умолчанию <br><br> Private m_Caption As String <br><br> Private m_Effect As Integer <br><br> Private m_TextAlignment As Integer<br><br> Эти переменные содержат значения специальных свойств элемента управления. Свойства элемента управления отображены на закрытые переменные кода элемента управления. Как и в случае с компонентом ActiveX, чьи свойства доступны извне, эти свойства являются, фактически, простыми переменными. Позже будет видно, как элемент управления получает значение, введенное пользователем в окне свойств (или код во время выполнения), и связывает их с закрытыми переменными. (Вспомните манипулирование свойствами OLE-сервера с помощью процедур Property Let и Property Get, рассмотренное в предыдущей главе. Тот же самый подход работает и с элементами управления ActiveX, но об этом позже.).<br><br> Дальше следуют определения нескольких констант, которые соответствуют значениям определенным в окне Set Attributes мастера. Эти константы будут использоваться дальше в коде как начальные значения для различных свойств. Учтите, что нет необходимости запускать мастер для того, чтобы просто поменять эти значения. Можно отредактировать код элемента управления. Обратите также внимание имена констант основаны на именах свойств, и код можно легко редактировать.<br><br> <br> ' Значения свойств по умолчанию: <br><br> Const m_def_Caption = "3D Label" <br><br> Const m_def_Effect = 2 <br><br> Const m_def_TextAlignment =  4<br><br> Дальше следуют объявления событий. Это события, которые были определены в первых двух окнах мастера и отображены на объект UserControl. Щелчок на элементе управления генерирует событие Click, которое передается приложению, как будто оно было сгенерировано самим элементом управления ActiveX. В списке определено несколько больше событий, но нет нужды повторяться.<br><br> ' Объявления событий:<br><br> Event DblCllck()<br><br> Event Click()<br><br> Event KeyUp(KeyCode As Integer, Shift As Integer)<br><br> Event Keypress(KeyAscii As Integer)<br><br> Event KeyDown(KeyCode As Integer, Shift As Integer)<br><br> Event MouseUp(Button As Integer, Shift As Integer,<br><br> X As Single, Y As Single) <br><br> Event MouseMove(Button As Integer, Shift As Integer, _<br><br> X As Single, Y As Single)<br><br> Примечание<br><br> Если событие Click не было отображено на объект UserControl, то только UserControl будет видеть событие Click. Если нужно выполнять специальные действия, когда на элементе выполнен двойной щелчок, следует запрограммировать событие Click в коде элемента управления. Пользователь не сможет программировать событие Click, пока оно не будет инициировано из кода элемента управления.<br><br> В нашем элементе управления не требуется как-то по особенному использовать событие Click (и другие обычные события мыши и клавиатуры), поэтому предоставим их приложению, которое использует элемент управления ActiveX.<br><br> <b>Установка и чтение значений свойств</b><br><br> Теперь рассмотрим несколько подпрограмм: по две для каждого свойства. <br><br> <b>Программа 16.3.</b> Процедуры свойства Caption<br><br> Public Property Get Caption() As String<br><br> Caption =<br><br> m_Caption <br><br> End Property<br><br> Public Property Let Caption(ByVal New Caption As String)<br><br> m_Caption = New Caption<br><br> PropertyChanged "Caption" <br><br> End Property<br><br> Каждое свойство определено двумя Public-процедурами:<br><br> •   Property Let,<br><br> •   Property Get.<br><br> Процедура Property Let вызывается каждый раз, когда свойство изменяется либо через окно свойств (во времени конструирования) либо из программы (во время выполнения). При изменении свойства работает код, состоящий из двух строк. Первая строка получает значение, передаваемое в параметре процедуры (которое является новым значением свойства), и присваивает его закрытой переменной, которая представляет свойство в элементе управления. Остальной код видит только локальное свойство m_Caption, а не фактическое свойство. Вторая строка сообщает Visual Basic, что свойство изменило значение. Метод PropertyChanged важен и должен быть включен в процедуру Property Let, так как именно так VB сохраняет любые изменения свойства, сделанные во время конструирования, чтобы эти значения имели эффект во время выполнения.<br><br> <br> Процедура Property Get вызывается всякий раз, когда программа обращается к значению свойства. Эта процедура читает значение закрытой переменной m_Caption и присваивает его свойству Caption. Для каждого свойства должны быть определены процедуры Property Get и Property Let, включающие приведенные строки. Они составляют минимальный механизм для установки или чтения значений свойств.<br><br> Конечно, в эти процедуры можно добавлять и код проверки допустимости значений. Значение свойства TextAlignmen должно быть в диапазоне от 0 до 9. На данный момент элемент управления позволяет пользователю ввести любое значение этого свойства в окне свойств. Добавим проверку допустимости значения в процедуру Property Let для свойства TextAlignment. Сам код прост: он отвергает любые значения меньше 0 и больше 8.<br><br> <b>Программа 16.4.</b> Код проверки допустимости свойства TextAlignment в процедуре Property Let<br><br> Public Property Let TextAlignment(ByVal New_TextAlignment As _<br><br> Integer)<br><br> If m_TextAlignment >=0 And m_TextAlignitient<=8 Then <br><br>    m_TextAlignment = New_TextAlignment<br><br> PropertyChanged "TextAlignment"<br><br> Else<br><br> MsgBox "Invalid value for this property"<br><br>   ' (Недопустимое значение для этого свойства) <br><br> End If<br><br> End Property<br><br> Оператор If проверяет допустимость введенного значения, и, если новое значение находится вне допустимого диапазона, попытка изменить свойство отклоняется. Измените процедуру Property Let согласно приведенной схеме и затем переключитесь на тестовую форму проекта. Выберите элемент управления FLEXLabel на форме, откройте окно свойств и установите свойство TextAlignment в заведомо недопустимое значение (13 или 1000, например). При попытке изменить свойство, установив его в недопустимое значение, элемент управления выдаст предупреждение и отклонит изменения. Пока не совсем понятно, как добиться, чтобы допустимые значения свойства отображались в раскрывающемся списке, как в других элементах управления VB? Это требует написания еще небольшого количества кода, о чем чуть позже.<br><br> <br> После процедур<b> Property Let и Property Get</b><br><br> для всех свойств идет код инициализации некоторых переменных.<br><br> <b>Программа 16.5.</b> Код инициализации<br><br> ' Инициализация свойств элемента управления <br><br> Private Sub UserControl_InitProperties ()<br><br> Set Font = Ambient.Font<br><br> m_Caption = m_def_Caption<br><br> m_Effect = m_def_Effect<br><br> m_TextAlignment = m_def_TextAlignment<br><br> UserControl.BorderStyle = 1<br><br> UserControl.BackStyle = 1 <br><br> End Sub<br><br> Операторы подпрограммы InitProperties() присваивают начальные значения закрытым переменным, которые представляют свойства элемента управления. Константы m_def_Caption, m_def_TextAlignment и m_def_Effect были определены ранее в программе. При помещении этого элемента управления на форму Visual Basic читает значения переменных m_Caption, m_TextAlignment и m_Effect и выводит их в соответствующих строках окна свойств элемента.<br><br> <b>Сохранение и чтение значений свойств</b><br><br> Далее в тексте идут две интересные подпрограммы:<br><br> •  ReadProperties;<br><br> •   WriteProperties.<br><br> При изменении каких-либо свойств через окно свойств новые значения должны быть где-то сохранены. Зачем?<br><br> Приложение может (и обычно так и делает) изменять значения некоторых свойств во время выполнения. Но когда приложение останавливает свою работу и возвращается обратно в режим конструирования, свойства, измененные во время выполнения, должны принять те значения, которые они имели до старта программы - не значения по умолчанию, а те значения, которые они имели в режиме конструирования.<br><br> Visual Basic предусматривает специальный объект для сохранения всех значений свойств - PropertyBag. Этот объект предусматривает два метода: один - для сохранения значения свойства, другой - для его чтения. Разработчику элемента управления необязательно знать все подробности сохранения значений. Visual Basic сохраняет значения свойств и при запросе предоставляет их.<br><br> Первый метод имеет следующий синтаксис:<br><br> WriteProperty propertyName, value, defaultValue<br><br> где<br><br> propertyName - имя свойства (например, Effect), value<br><br> может иметь буквальное значение(1 или "some sizzling effect"), но почти всегда - это имя закрытой переменной, которая содержит значение свойства, defaultValue - значение свойства по умолчанию.<br><br> <br> Примечание<br><br> Зачем нужно указывать одновременно и собственно значение и значение по умолчанию при вызове метода? Дело в том, что VB сравнивает эти два параметра, и, если значения совпадают, то VB не выполняет сохранение (для ускорения процесса сохранения и восстановления значений свойства). При последующем запросе значения свойства с помощью метода ReadProperty Visual Basic просто возвращает значение по умолчанию.<br><br> Метод ReadProperty имеет следующий синтаксис:<br><br> ReadProperty propertyName, defaultValue<br><br> где propertyName — имя свойства, defaultValue — значение этого свойства, сохраненное ранее в объекте PropertyBag. В коде события Write Properties объекта UserControl необходимо вызвать метод WriteProperty для каждого из свойств. Аналогично, в коде процедуры ReadProperties для каждого свойства необходимо вызвать метод ReadProperty. Ниже приведен код процедур Write Properties и ReadProperties сгенерированный мастером для элемента управления FLEXLabel.<br><br> <b>Программа 16.6.</b> Процедура ReadProperties элемента управления<br><br> ' Загрузка значений свойств <br><br> Private Sub UserControl_ReadProperties(PropBag As PropertyBag)<br><br> Set Font == PropBag.ReadProperty("Font", Ambient.Font)<br><br> UserControl.BorderStyle = PropBag.ReadProperty ("BorderStyle", 0)<br><br> UserControl.BackStyle = PropBag.ReadProperty ("BackStyle", 1)<br><br> UserControl.Enabled = PropBag.ReadProperty("Enabled", True)<br><br> UserControl.ForeColor = PropBag.ReadProperty ("ForeColor", _<br><br> &H80000012)<br><br> UserControl.MousePointer = PropBag.ReadProperty ("MousePointer", 0) <br><br> UserControl.OLEDropMode = PropBag.ReadProperty ("OLEDropMode", 0)<br><br> Set Picture = PropBag.ReadProperty ("Picture", Nothing) <br><br> m_Caption = PropBag.ReadProperty("Caption", m_def_Caption) <br><br> m_Effect = PropBag.ReadProperty("Effect", m_def_Effect)<br><br> m_TextAlignment = PropBag.ReadProperty ("TextAlignment", _<br><br> m_def_TextAlignment)<br><br> UserControl.BackColor = PropBag.ReadProperty ("BackColor", _<br><br> <br> &H8000000F) <br><br> End Sub<br><br> <b>Программа 16.7.</b> Процедура WriteProperties элемента управления<br><br> ' Сохранение значений свойств <br><br> Private Sub UserControl_WriteProperties(PropBag As PropertyBag)<br><br>    Call PropBag.WriteProperty("Font", Font, Ambient.Font) <br><br>    Call PropBag.WriteProperty ("BorderStyle", UserControl.BorderStyle, 0) <br><br>    Call PropBag.WriteProperty("BackStyle", UserControl.BackStyle, 1) <br><br>    Call PropBag.WriteProperty("Enabled", UserControl.Enabled, True) <br><br>    Call PropBag.WriteProperty("ForeCoior", UserControl.ForeColor, _<br><br> &H80000012) <br><br>    Call PropBag.WriteProperty ("MousePointer", _<br><br> UserControl.MousePointer, 0) <br><br>    Call PropBag.WriteProperty ("OLEDropMode", _<br><br> UserControl.OLEDropMode, 0) <br><br>    Call PropBag.WriteProperty ("Picture", Picture, Nothing) <br><br>    Call PropBag.WriteProperty("Caption", m_Caption, m_def_Caption) <br><br>    Call PropBag.WriteProperty("Effect", m_Effect, m_def_Effect) <br><br>    Call PropBag. WriteProperty ("TextAlignment", _<br><br> m_TextAlignment, m_def_TextAlignment) <br><br>    Call PropBag.WriteProperty ("BackColor", _<br><br> UserControl.BackColor, &H8000000F) <br><br> End Sub<br><br> Передача событий<br><br> Последний раздел кода отображает различные события элемента управления на эквивалентные события объекта UserControl. Когда пользователь щелкает мышью на элементе управления ActiveX, Windows отправляет событие Click объекту UserControl. Разработчик элемента управления может обработать это событие в самом элементе управления (в этом случае приложение, которое использует элемент, не видит события Click), или передать событие приложению-контейнеру (в этом случае разработчик приложения, использующего элемент управления, сможет обработать сообщение), или сделать и то, и другое (сначала обработать событие в элементе управления, а затем передать его контейнеру).<br><br> Передать событие приложению можно с помощью метода<br><br> RaiseEvent. Событие Click объекта UserControl определено таким образом.<br><br>Private Sub UserControl_Click()<br><br> RaiseEvent Click <br><br> End Sub<br><br> Код остальных событий практически идентичен. Эти события вызывают оператор ReiseEvent для передачи события приложению-контейнеру. Если событие имеет параметры, например KeyPress, эти параметры перечисляются в круглых скобках после имени события.<br><br> Все, что сделал мастер — это вставил достаточно простой код. За исключением методов ReadProperty и WriteProperty, все остальное должно быть более или менее знакомо большинству программистов на Visual Basic. ActiveX — элемент управления, следовательно, не намного сложнее по сравнению со стандартным проектом. Осталось добавить еще несколько строк кода. В конце концов, необходимо указать элементу управления, как выравнивать надпись и обрисовывать ее с трехмерным эффектом.<br><br><br> <h1>Смешанные серверные и клиентские сценарии</h1> ASP-файл может содержать текст как серверного, так и клиентского сценария. Если вы хотите включить раздел сценария в Web-страницу, то поместите команды сценария между тегами <SCRIPT>. На рис. 22.4 показан вывод другого ASP-файла, являющегося вариантом сценария для вывода даты и времени сервера на экране клиента. Страница TIMESRVR.ASP выводит время клиента с помощью клиентского сценария и время сервера с помощью серверного сценария. Если сервер и клиент находятся в разных часовых поясах, то разница между временем сервера и клиента составит целое число часов и несколько секунд, необходимых для передачи HTML-кода клиенту.<br> Рассмотрим листинг файла TIMESRVR.ASP. Обратите внимание: клиентский сценарий размещен между тегами <SCRIPT>, как на обычной HTML-странице. Серверный сценарий, вообще говоря, не является сценарием — это просто вызов функции Time(). Однако в пару тегов <% и %> можно поместить столько операторов, сколько необходимо.<br> После ознакомления со структурой ASP-файлов изучим объекты активного сервера и их использование для построения интерактивных Web-страниц. Основное внимание уделено не написанию сложных HTML-кодов, а процессу взаимодействия с сервером.<br> <div style="text-align:center;"><img src="image/index-image174.gif" alt="Смешанные серверные и клиентские сценарии"></div><br> <b>Рис. 22.4.</b> Страница TIMESRVR.ASP: серверный и клиентский сценарии — время сервера и время клиента.<br> <b>Программа 22.3.</b> Страница TIMESRVR.ASP<br> <HTML><br> <BODY><br> <% theTime = Time %><br> <% theDate = Date %><br> <FONT FACE-VERDANA SIZE=3><br> <Hl>Server's Local Time</Hl><br><br> The time at the server's location is <% = theTime %><br><br> and the date is <% = theDate %><br> <br> <HR><br> <Hl>Clitent's Local Time</Hl><br> SCRIPT LANGUAGE = VBScript><br> Document.write "The local time is " & Time<br> Document.write "<BR>"<br> Document.write "and the date time is " & Date<br> Document.write "<HR>"<br> Document.write "The time difference is " & DateDiff ("s", "<% - theTime<br> %>", Time) & " second(s)"<br> Document.close<br> </SCRIPT><br> </BODY><br> </HTML><br> Также рассмотрим разработку серверных сценариев: чтение данных, поступающих от клиента, их обработку на сервере (в большинстве случаев для этого используются элементы управления ActiveX, расположенные на сервере) и построение Web-страниц в реальном времени для передачи их обратно клиенту. Независимо от типа сервера этот процесс требует использования Си-подобного программирования. Однако при использовании ASP и встроенных объектов задачи, которые обычно требуют применения Peri или C++, разрешимы средствами VBScript.<br> В оставшейся части этой главы мы ознакомимся с этими объектами и узнаем, как с их помощью упростить написание серверных сценариев. В конце главы рассмотрены некоторые основные компоненты (например,<br> Database (База данных)), позволяющие сценарию получить доступ к базам данных на сервере.<br><br> <br><br> <h1>Проверку правильности вводимых данных выполняет </h1> Validate<br> Проверку правильности вводимых данных выполняет событие<br> Validate элемента управления Data. Объявим это событие.<br> Private Sub object_Validate (action As Integer, save As Integer)<br> Параметр<br> action (действие) — это целое число, задающее операцию, выполнение которой вызывает данное событие. Его значения приведены в табл. 17.7.<br> Таблица 17.7. Значения параметра action (действие) события Validate<br><table border=1><br> <tr> <td> Константа<br> </td> <td> Значение<br> </td> <td> Описание<br> </td> </tr> <tr> <td> vbDataActionCancel<br> </td> <td> 0<br> </td> <td> Отмена операции при выходе из процедуры<br> </td> </tr> <tr> <td> vbDataAction Move First<br> </td> <td> 1<br> </td> <td> Метод MoveFirst (Перейти к первой записи)<br> </td> </tr> <tr> <td> vbDataActionMovePrevious<br> </td> <td> 2<br> </td> <td> Метод MovePrevious (Перейти к предыдущей записи)<br> </td> </tr> <tr> <td> vbDataActionMoveNext<br> </td> <td> 3<br> </td> <td> Метод MoveNext (Перейти к следующей записи)<br> </td> </tr> <tr> <td> vbDataActionMoveLast<br> </td> <td> 4<br> </td> <td> Метод Move Last (Перейти к последней записи)<br> </td> </tr> <tr> <td> vbDataActionAddNew<br> </td> <td> 5<br> </td> <td> Метод AddNew (Добавить новую запись)<br> </td> </tr> <tr> <td> vbDataAction Update<br> </td> <td> 6<br> </td> <td> Операция обновления (не LfpdateRecord)<br> </td> </tr> <tr> <td> vb DataAction Delete<br> </td> <td> 7<br> </td> <td> Метод Delete (Удалить)<br> </td> </tr> <tr> <td> vb DataAction Find<br> </td> <td> 8<br> </td> <td> Метод Find (Найти)<br> </td> </tr> <tr> <td> vbDataAction Bookmark<br> </td> <td> 9<br> </td> <td> Установлено свойство<br> Bookmark (Закладка)<br> </td> </tr> <tr> <td> vb DataActionClose<br> </td> <td> 10<br> </td> <td> Метод Close (Закрыть)<br> </td> </tr> <tr> <td> vbDataActionUnload<br> </td> <td> 11<br> </td> <td> Выгрузка формы из памяти<br> </td> </tr> </table><br> Чтобы отменить операцию,  вызвавшую событие Validate,  значение vbDataActionCancel может устанавливаться с помощью кода. Например, если пользователь изменяет данные в элементе управления, а затем щелкает на кнопке MoveNext, то можно отменить изменения и операцию MoveNext.<br> Параметр<br> save (сохранить) — это выражение типа Boolean, указывающее, изменялись ли данные. Можно установить его значение в False, чтобы отменить изменения.<br><br> <br> Error<br> Другим полезным событием при проверке правильности данных является событие Error (Ошибка). Когда модифицируется запись в базе данных, механизм JET гарантирует, что введенные данные не противоречат правилам, определенным при проектировании базы данных. Например, если требуется, чтобы указанное поле было уникальным, то запись не будет модифицирована, если введенное значение уже использовалось. Если поле превышает максимальную длину, изменения будут также отклонены. Другими словами, механизм JET производит проверку данных самостоятельно. Он также выполняет проверку данных в соответствии с правилами, определенными в поле Validation Rule.<br> Если данные не удовлетворяют правилам, определенным в проекте базы данных, то генерируется ошибка выполнения программы. Перед сообщением об ошибке генерируется событие Error. Можно выявить причину ошибки, вызвав ее обработчик.<br> Объявим событие Error.<br> Sub Error (dataerr As Integer, response As Integer)<br> Параметр<br> dataerr (данные об ошибке) — номер ошибки, a response<br> (отклик) — целое число, которое устанавливается при появлении события, чтобы затем в обработчике ошибки выполнить соответствующие действия. Значения параметра response<br> перечислены в табл. 17.8. Ошибку необходимо обработать внутри процедуры Error и затем установить параметр response в 0, чтобы предотвратить генерирование ошибки выполнения программы.<br> Таблица 17.8. Значения параметра Response события Error<br><table border=1><br> <tr> <td> Константа<br> </td> <td> Значение<br> </td> <td> Описание<br> </td> </tr> <tr> <td> vbDataErrContinue vbDataErrDisplay<br> </td> <td> 0 <br> 1<br> </td> <td> Продолжать выполнение<br> Отображение сообщения об ошибке (установлена по умолчанию)<br> </td> </tr> </table> <br><br> <h1>События элемента</h1> WebBrowser и объекта InternetExplorer<br> События элемента управления WebBrowser и объекта InternetExplorer вызываются тогда, когда пользователь перемещается к другому URL с помощью кнопок навигации Internet Explorer или методов передвижения элемента управления WebBrowser. Они контролируют процесс каждой загрузки и позволяют приложению узнать, когда загрузка страницы завершена.<br> <b>BeforeNavigate2 (Перед перемещением).</b><br> Генерируется, когда WebBrowser собирается переместиться к другому LJRL. Это может быть вызвано внешней (вызов метода Navigate) или внутренней автоматизацией из сценария или когда пользователь щелкает на гиперссылке в текущем документе. Можно отменить передвижение в приложении, установив значение параметра Cancel метода в True.<br> Совет<br> Событие BeforeNavigate2 не срабатывает, если гиперссылка недопустима. Элемент управления, прежде всего, устанавливает контакт с Web-сервером, а затем перемещается к документу.<br> Метод BeforeNavigate2 имеет следующее объявление.<br> Private Sub WebBrowserI BeforeNavigate2(ByVal pDisp As Object, _ <br> URL As Variant, Flags As Variant, <br> TargetFrameName As Variant, PostData As Variant, _ <br> Headers As Variant, Cancel As Boolean)<br> Первый параметр — pDisp — представляет объект, на котором документ воспроизводится. Обычно этот объект - WebBrowser. Этот параметр можно использовать, чтобы обратиться к свойствам элементам управления. Его имя — PDisp.Name, pDisp Width и pDisp. Height — размеры элемента управления и т.д.<br> Параметр URL — это адресат URL (определенный методом Navigate или гипер-ссылкой), Flags - зарезервированный параметр. Параметр TargetFrameName — имя фрейма, в котором воспроизводится документ или значение NULL, если документ не должен отобразиться ни в каком фрейме. Параметры PostData и Header подобны соответствующим параметрам метода Navigate.<br> Приложение может устанавливать параметр Cancel (обратите внимание: он передается по ссылке) для отмены перемещения. Если установить этот параметр в True, то перемещение не будет даже начато. Для остановки уже начатого перемещения используется метод Stop.<br> <br> NavigateComplete (Перемещение завершено). Генерируется после того, как элемент управления успешно переместился к новому положению. Некоторые ресурсы документа все еще могут загружаться (загрузка большого изображения продолжительна), но часть документа загружена с сервера и выполнение началось. Для прерывания этого процесса вызывается метод Stop.<br> Событие NavigateComplete объявляется следующим образом.<br> Sub WebBrowserl_NavigateComplete(ByVal URL As String) <br> Параметр<br> URL — это URL загружаемого документа.<br> DownloadBegin (Начало загрузки). Генерируется, когда стартует операция передвижения. Это событие инициируется после того, как сгенерировано событие BeforeNavigate (если передвижение не было отменено), которое сообщает прилйжению, что необходимо отобразить сообщение о занятости программы или изменить форму указателя мыши.<br> Событие DownloadBegin объявляется следующим образом.<br> Sub WebBrowserl_DownloadBegin()<br> DownloadComplete (Загрузка закончена). Генерируется, когда операция передвижения закончена, остановлена или завершена неудачно. В отличие от события NavigateComplete, которое не инициируется в случае неудачи, это событие всегда инициируется после начала передвижения. Любая индикация о занятости приложения управляется из обработчика этого события. Событие DownloadComplete объявляется следующим образом.<br> Sub WebBrowserl_DownloadComplete()<br> ProgressChange (Состояние процесса загрузки). WebBrowser прослеживает развитие операции загрузки и периодически выдает событие ProgressChange, чтобы сообщить приложению о степени загрузки. Событие ProgressChange объявляется следующим образом.<br> Sub WebBrowserl_ProgressChange(ByVal Progress As Long, _ <br> ByVal ProgressMax As Long)<br> Оба параметра являются длинными целыми числами. Параметр Progress — количество уже загруженных данных, a ProgressMax — общее количество данных, которые будут загружены.<br> Совет<br> Процент загруженных данных — это отношение Progress ProgressMax.<br> Необходимо всегда проверять значение ProgressMax, потому что его значение может быть нулевым (если элемент управления не знает общего объема данных, которые будут загружены). Более того, событие ProgressChange вызывается для каждого из ресурсов документа, и не существует способа узнать заранее полный размер элементов управления, которые загружаются. Отметим: InternetExplorer воспроизводит прогресс загрузки каждого элемента управления, а не всего документа.<br><br> <br> TitleChange (Изменение заголовка). Генерируется, когда заголовок текущего документа изменяется. Заголовок HTML-документа может изменяться: когда документ загружается, его заголовком является URL. После того, как реальный заголовок (если он определен с помощью метки TITLE) проанализирован, вызывается событие TitleChange. Его можно использовать для модификации свойства Caption на форме Visual Basic. Событие TitleChange объявляется следующим образом.<br> Sub WebBrowserl_TitleChange(ByVal Text As String) <br> Параметр<br> Text - это строка, которая появляется в строке заголовка InternetExplorer.<br> NewWindow (Новое окно).<br> Хотя результат большинства гиперссылок воспроизводится в том же окне, что и содержащий их документ, некоторые гиперссылки требуют открытия нового окна для отображения документа. Событие NewWindow вызывается непосредственно перед созданием нового окна.<br> Это событие можно вызвать, если удерживать нажатой клавишу SHIFT и щелкнуть кнопкой мыши на гиперссылке или выбрать команду Open в меню New Window контекстного меню. Событие NewWindow позволяет приложению отменить создание нового окна. Когда это событие используется с InternetExplorer, то новое окно является еще одним экземпляром InternetExplorer.<br> Когда событие NewWindow используется при работе с элементом управления WebBrowser, то приложение должно создать новый элемент управления WebBrowser и показать в нем документ или потребовать, чтобы новый документ отображался в том же окне. Если приложение создает новый элемент управления WebBrowser, то необходимо передать все параметры из события NewWindow непосредственно методу Navigate последнего созданного элемента управления WebBrowser. При отображении нового документа на том же элементе управления необходимо опять-таки передать параметры этого события в метод Navigate существующего окна.<br> Событие NewWindow объявляется следующим образом.<br> Sub WebBrowser_NewWindow (ByVal uri As String, _<br> ByVal Flags As Long, ByVal TargetFrameName As String, _ <br> PostData As Variant, ByVal Headers As String, _ <br>Processed As Boolean)<br> Параметры события NewWindow идентичны параметрам метода Navigate, кроме последнего, принимающего значения True или False и указывающего, создаст приложение новое окно (True) или нет (False).<br> FrameBeforeNavigate, FrameNavigateComplete, FrameNewWindow. Эти события идентичны событиям BeforeNavigate, NavigateComplete и NewWindow, но вызываются из фреймов.<br><br> <h1>и Application поддерживают события Start </h1> Start и End<br> Объекты Session и Application поддерживают события Start (Начать) и End (Завершить), которые сигнализируют о начале и завершении сеанса и приложения соответственно. Эти события имеют следующий вид:<br> •  Scssion_OnStart<br> •  Application_OnStart<br> •  Session_OnEnd<br> • Application_OnEnd<br> Обработчики этих событий содержат код, который выполняется, когда приложение или сеанс стартуют и завершаются. Если приложение запускается одновременно с началом сеанса, то первым происходит событие Application_OnStart. Оба эти события важны при разработки ASP-приложсний. К сожалению, они недоступны из кода сценария. Их обработчики следует поместить в файл GLOBAL.ASA, который находится в корневой папке приложения (в ней находится первый ASP-файл, запрошенный клиентом). Обычно файл GLOBAL.ASA содержит обработчики событий Start и End объектов Session и Application, а также объявления переменных.<br> Например, если нужна переменная для хранения количества пользователей, подключенных к вашему узлу, то ее нужно инициализировать в обработчике события Application_OnStart. Для этого введите в файл GLOBAL.ASA следующие строки.<br> <SCRIPT LANGUAGE=VBScript RUNAT=Server> <br> Sub Application_OnStart<br> Application ("Visitors") = 0 <br> End Sub <br> </SCRIPT><br> Это событие происходит каждый раз, когда запускается программное обеспечение сервера. Поскольку разумнее не инициализировать переменную при каждом рестарте сервера, сохраните значение переменой Visitors в текстовом файле на диске сервера, как показано в гл. 20. Теперь можно в обработчике события Application_0n Start читать значение этой переменной и увеличивать его на 1 в обработчике события Session_OnStart.<br> <SCRIPT LANGUAGE=VBScript RUNAT=Server> Sub Session_OnStart<br> Application.Lock<br> Application ("Visitors") = Application ("Visitors") + 1<br> Application.Unlock <br> End Sub <br> </SCRIPT><br> Эту процедуру также следует поместить в файл<br> GLOBAL.ASA. При таком подходе значение счетчика не увеличивается, когда пользователь обращается к начальной странице в течение одного сеанса, поскольку событие Session_OnStart происходит только при первом обращении к начальной странице.<br><br> <br> Отображение счетчика в какой- либо оригинальной форме является отдельной задачей. Пока можно просто выводить его значение шрифтом большого размера или генерировать GIF-файл и отображать его на стартовой странице. Элемент управления Structured Graphics, поставляемый с Internet Explorer 4.0, позволяет создавать достаточно сложные изображения несколькими строками кода. Использование этого элемента — простейший способ красочного отображения счетчика пользователей.<br> Если ваши Web-страницы во время сеанса часто обращаются к некоторому компоненту, то можно объявить объектную переменную в событии<br> Session_OnStart. Эта переменная будет доступна всем страницам в течение текущего сеанса. Приведем пример, в котором создается объектная переменная, ссылающаяся на компонент MyObject.<br> <CRIPT LANGUAGE=VBScript RUNAT=Server> <br> Sub Session_OnStart<br> Set Session ("MyObj") "Server.CreateObject ("MyObject")<br> End Sub <br> </SCRIPT><br> Во время текущего сеанса любая страница может обращаться к пергменной MyObj, и одноименные переменные, принадлежащие разным сеансам, являются абсолютно независимыми.<br><br> <h1>Составные документы</h1> Документ, содержащий объекты нескольких типов, называется составным. Например, Word-документ, содержащий таблицу Excel или изображение, является составным документом. Попытки разработать многофункциональные прикладные программы, позволяющие работать с текстом, числами, изображениями, средствами связи и выполнять прочие функции, необходимые среднему пользователю, были неудачными до тех пор, пока не появилась технология OLE.<br> Парни из Microsoft учли потребность среднего пользователя в средстве, позволяющем объединять любимые прикладные программы. Они также поняли, что создать универсальное приложение невозможно и придумали OLE, позволяющее приложениям обмениваться данными и функциями. Поскольку OLE-приложения могут быть связаны друг с другом, пользователи могут использовать их отдельные компоненты для создания собственных приложений. Красота OLE состоит в том, что для использования в вашем приложении возможностей другого приложения нет необходимости знать детали его реализации. Аналогично, тому, кто программирует на Visual Basic, нет нужды знать подробности выполнения операций элементом управления RichTextBox или функционирования элемента MSFlexGrid.<br><br> <br><br> <h1>Создание активных серверных страниц</h1> Простейшим способом создания ASP является изменение расширения файла, содержащего HTML-документ, с НТМ на ASP. Перенесите этот файл в новую папку корневой папки Web-сервера. Во всех примерах этой главы предполагается, что ASP-страницы находятся в папке ASPages, а сами примеры - на прилагаемом компакт-диске в папке с тем же именем.<br> <b>ASP-файлы и права исполнения</b><br> Содержимое ASP-файлов является текстом, но, с другой стороны, это -программа. При вызове этого файла его содержимое компилируется, и его исполняемая часть помещается в кэш. Поэтому ASP-файлы хранятся в папках, обладающих правом Scripts.<br> С помощью административной утилиты Web-сервера создайте виртуальную папку, назовите ее ActivePages и отобразите ее на ASPages в корневом каталоге Web. Назначьте этой папке право Scripts. Назначать право Execution (Выполнение) необязательно, поскольку ASP-файлы не являются исполняемыми.<br> Начнем с тривиального примера (см. гл. 20). Это простой HTML-файл, который отображает время на экране клиента (рис. 22.3).<br> <div style="text-align:center;"><img src="image/index-image173.gif" alt="Создание активных серверных страниц"></div><br> <b>Рис. 22.3.</b> Страница DATETIME.HTM<br> <b>Программа 22.1.</b> Файл DATETIME.HTM<br> <HTML><br> <head> <link rel="canonical" href="https://www.e-lave.ru//index.htm"/><br> <TITLE>Simple ASP Demo<\TITLE><br> <SCRIPT LANGUAGE=VBScript><br> Document.Write "<FONT SIZE=3 FACE='Verdana'>"<br> Document.Write "<H1>Welcome to the Active Server     Pages<\H1>"<br> Document. Write "The date is <B>" & Date () & "</B>  and  the  time is<br> <B>" & Time()S "</B>"<br> Document.Write ""<br> </SCRIPT><br> </HEAD><br> <BODY><br> <B>Active Server Pages</B> contain text, HTML code and scripts that<br> are executed on the client, ]ust like ordinary HTML documents. The<br> DateTime.asp file contains a client-side script, which prints   the<br> date and the time on the client and then displays the document's<br> body.<br> </BODY><br> </HTML><br> Это клиентский сценарий, который вызывает функции<br> Date() и Time(). Он выполняется на компьютере клиента и, как следствие, отображает дату и время, считанные с его системных часов.<br> <br> Изменим эту страницу так, чтобы она отображала дату и время сервера. Для этого необходимо добавить операторы, которые будут исполняться на сервере. Скопируйте файл DATETIME.HTM в файл SRVRTIME.ASP и замените сценарий следующим.<br><br> <CRIPT LANGUAGE = VBScript RUNAT = Server><br><br> Response. Write "<FONT SIZE=3 FACE='Verdana'>"<br><br> Response.Write "<Hl>Welcome to the Active Server Pages</Hl>"<br><br> Response. Write "The date is <B>" & Date() & "</B> and the time is <B>"<br><br> & Timef) & "</B>"<br><br> Response.Write ""<br><br> </SCRIPT><br><br> Объект Response (Отклик) эквивалентен объекту Document (Документ), но сервер, в отличие от клиента, не имеет доступа к объекту Document. Вместо этого он должен использовать метод Write (Писать) объекта Response для вывода на экран клиента. Все, что вы "пишете" в объект Response, помещается в выходной поток и пересылается клиенту, как если бы это был существующий HTML-документ. Переработанная страница осуществляет вывод, аналогичный выводу предыдущей страницы, однако при этом отображается дата и время сервера. Модификатор RUNAT в теге <SCRIPT> предписывает ASP выполнять сценарий на сервере, а не на клиентском компьютере.<br><br> Серверные сценарии можно заключать в пару тегов <% и %>. Между тегами помещаются все операторы, выполняющиеся на сервере. Эти операторы рассматриваются как серверный сценарий, поэтому на компьютере клиента они замещаются выполняемым выводом, и увидеть их на экране клиента нельзя.<br><br> Примечание<br><br> При выполнении двойного щелчка на имени ASP-файла на экран выводится HTML-код, но операторы серверного сценария не исполняются. Броузер пропускает теги серверного сценария <% и %>, поскольку не знает, как их отображать.<br><br> Приведем пример более полезной ASP-страницы (GREET.ASP), которая отображает различные приветствия в зависимости от времени суток.<br><br> <b>Программа 22.2. </b>Страница GREET.ASP<br><br> <HTML><br><br> <br> <BODY><br><br> <b><%</b><br><br> If Time() >=#12:00:00 AM# And Time() < #12:00:00 PM# Then<br><br> greeting = "Good Morning!" <br><br> Else<br><br> greeting = "Good Afternoon!" <br><br> End If <br><br> %><br><br> <H1> <% =greeting %> </H1> <br><br><br> <H2> and welcome to the Active Server Pages.</H2> <br><br><br> {Другие строки HTML-кода}<br><br> </BODY> <br><br> </HTML><br><br> Операторы между первой парой тегов <% и %> не выполняют вывод на экран клиента. Они присваивают требуемое значение переменной greetings (приветствие). Значение этой переменной пересылается клиенту строкой <% =greeting %>. Выражение вида "=переменная" (разумеется, без кавычек) при выполнении сценария на сервере заменяется значением переменной. Остальное — обычный HTML-код, который отображается на экране клиента.<br><br> HTML-код и операторы серверного сценария могут сосуществовать в одной строке. Альтернативным вариантом последнего примера является следующий.<br><br> <HTML><br><br> <BODY><br><br> <% If Time() > = #12:00:00 АМ# And Time() < #12:00:00 PM# Then %<br><br> <Hl>Good Morning!</H1><br><br> <» Else %><br><br> <Hl>Good Afternoon!</H1><br><br> <% End If %><br><br><br> <H2>and welcome to the Active Server Pages.</H2><br><br><br> {Другие строки HTML-кода}<br><br> </BODY> <br><br> </HTML><br><br> Наряду со встроенными (например, Date() и Time()), серверный сценарий может вызывать процедуры, написанные вами. Предположим, вы написали функцию, которая получает в качестве параметра число и возвращает его строковое представление (для числа 96 она вернет строку "девяносто шесть"). Чтобы вызвать эту функцию из вашего сценария, заключите ее имя в пару тегов.<br><br> <% =NumToString(96) %><br><br> При этом определение функции должно располагаться в этом же файле. Поскольку она выполняется на сервере и не содержит HTML-код, который нужно переслать клиенту, поместите ее в пару тегов <SCRIPT>, добавив модификатор RUNAT.<br><br> <SCRIPT RUNAT=SERVER LANGUAGE=VBScript><br><br>function NumToString(Number)<br><br> {<br><br> операторы функции<br><br> } <br><br> </SCRIPT><br><br> Строка, возвращаемая функцией, может использоваться в сценарии.<br><br><br> <h1>Создание базового прототипа элемента управления</h1> Начнем с создания прототипа элемента управления. <br> Для этого выполните следующие шаги.<br> <b>1</b>. Выберите команду New Project меню File, чтобы открыть окно нового проекта.<br> <b>2</b>. Щелкните на пиктограмме ActiveX Control. Visual Basic создаст новый проект, который содержит UserControl, с названием UserControll. Он представляет собой форму, на которой будет построен видимый интерфейс.<br> <b>3</b>. Выберите команду Add Project меню File, чтобы добавить Standard ЕХЕ-проект. Visual Basic создаст новый проект с одной формой Formi, которую будем использовать в качестве тестовой (Formi часто называют тест-формой, а проект, которому она принадлежит - тест-проект). Перед вами базовый прототип элемент управления.<br> <b>4</b>. Сейчас можно переименовать и сохранить проект. Для данного проекта можно использовать имена, заданные по умолчанию.<br> <b>5</b>. Закройте окно конструирования элемента управления для активизации его пиктограммы на панели элементов управления.<br> <b>6</b>. Поместите экземпляр нового элемента управления на форму. Вновь созданная форма элемента управления не должна имеет цвета фона или рамки, что отличало бы ее от формы, на которой она лежит.<br> <b>7</b>. Выберите элемент управления и откройте окно Properties.<br> По умолчанию, объект UserControl имеет следующие свойства:<br><table border=1><br> <tr> <td>Draglcon<br> <td> <td>Left<br> <td> <td>Top Left<br> <td> </tr> <tr> <td>DragMode<br> <td> <td>Tablndex<br> <td> <td>Visible<br> <td> </tr> <tr> <td>Height<br> <td> <td>TabStop<br> <td> <td>WhatIsThisHelpID<br> <td> </tr> <tr> <td>HelpContextID<br> <td> <td>Tag<br> <td> <td>Width<br> <td> </tr> <tr> <td>Index<br> <td> <td>ToolTipText<br> <td> <td> <td> </tr> </table><br> Эти свойства, фактически, поддерживаются контейнером. Свойство Left определено контейнером и имеет значение только в контексте контейнера. Аналогично, Tablndex и TabStop не управляются элементом непосредственно, потому что элемент управления не знает, какие еще элементы управления существуют на форме. Только форма знает это и, следовательно, должна поддерживать эти свойства для элементов управления.<br> Испытайте несколько свойств. Присвойте значение "My generic control" свойству ToolTipText. Запустите приложение, а затем наведите указатель мыши на элемент управления. Введенная строка появится над элементом управления. Подобным способом можно проверить свойство Tag, присваивая ему строку или свойство Index, создавая экземпляры одного элемента управления на форме с одинаковым именем и различным значением Index. При этом не нужно добавлять ни строчки кода для реализации этих свойств.<br><br> <br><br> <h1>Создание элементов меню, содержащих растровые изображения</h1> Элементы меню, создаваемые средствами Menu Editor (Редактор меню) Visual Basic, не всегда содержат только текст. В некоторых прикладных программах может потребоваться, чтобы элемент меню содержал растровое изображение. Добавить растровые изображения к элементам меню можно с помощью нескольких API-функции. Разработка таких элементов меню занимает немало времени, но результат того стоит Приложение MenuBMP (рис 13.4) позволяет создавать элементы меню с растровыми изображениями.<br> <b>VB6 в действии: проект MenuBMP</b><br> В этом приложении используются такие API-функции:<br> • GetMenu()<br> • GetSubMenu()<br> • ModifyMenu() <br> • CreateCompatibleDC() <br> • CreateCompatibleBitmap() <br> • Select0bject()<br> <div style="text-align:center;"><img src="image/index-image004.gif" alt="Создание элементов меню, содержащих растровые изображения"></div><br> <b>Рис. 13.4.</b> Приложение MenuBMP<br> Чтобы манипулировать элементами меню с помощью API-функций, необходимо получить дескриптор элемента меню. Элементы меню являются объектами, и поэтому им поставлены в соответствие дескрипторы, которые идентифицируют их с точки зрения операционной системы (точно так идентифицируются формы и растровые изображения). Более того, можно манипулировать элементами меню других приложений, запущенных в настоящий момент, если получить дескриптор этого элемента меню.<br> Для получения дескриптора элемента меню используется функция GetMenu(). Объявим ее:<br> Private Declare Function GetMenu Lib "user32" (ByVal hWnd _ <br> As Long) As Long<br> Параметр<br> hWnd является дескриптором формы, элементами меню которой требуется манипулировать. Для получения дескриптора меню текущей формы используется следующее выражение.<br> MenuHandle = GetMenu(Me.hWnd)<br> Меню первого уровня содержат подменю, которые идентифицируются их порядком в главном меню. Подменю имеют свои дескрипторы, которые можно получить с помощью функции<br> GetSubMenu().<br> Private Declare Function GetSubMenu Lib "user32" _<br> (ByVal hMenu As Long, ByVal nPos As Long) As Long<br> Параметр<br> hMenu - это дескриптор меню, возвращаемый функцией GetMenu(), а параметр nPos — номер текущей позиции подменю. Если значение параметра nPos равно 0, то функция GetSubMenu() возвращает дескриптор первого подменю (им часто оказывается меню File (Файл)).<br> <br> После того как дескриптор подменю получен, его можно модифицировать с помощью функции<br><br> ModifyMenu().<br><br> Private Declare Function ModifyMenu Lib "user32" Alias _<br><br> "ModifyMenuA" (ByVal hMenu As Long, ByVal nPosition _<br><br> As Long, ByVal wFlags As Long, ByVal wIDNewItem As _<br><br> Long, ByVal IpString As Any) As Long<br><br> Эта функция позволяет изменить элемент меню. Поясним это. Параметр hMenu — это дескриптор подменю, полученный с помощью функции GetSubMenu() Параметр nPosition<br><br> идентифицирует элемент меню, который требуется изменить. Если в параметре wFlags установлен флаг MF_BYCOMMAND, то этот параметр относится к ID (Идентификатору) команды меню, которая будет изменена. Если же установлен флаг MF_BYPOSITION, то параметр определяет номер позиции элемента подменю. Параметр wFlags является комбинацией флагов, описанных в табл. 13.4.<br><br> <b>Таблица 13.4.</b> Флаги меню<br><br><table border=1> <tr> <td> Значение<br><br> </td> <td> Описание<br><br> </td> </tr> <tr> <td> MF_BITMAP<br><br> </td> <td> Указывает, что элемент меню содержит растровое<br><br> </td> </tr> <tr> <td> </td> <td> изображение. Растровое изображение остается в<br><br> </td> </tr> <tr> <td> </td> <td> памяти, пока используется указанный элемент меню<br><br> </td> </tr> <tr> <td> MF_BYCOMMAND<br><br> </td> <td> Определяет элемент меню командой ID меню<br><br> </td> </tr> <tr> <td> MF_BYPOSITION<br><br> </td> <td> Определяет элемент меню его позицией в подменю:<br><br> </td> </tr> <tr> <td> </td> <td> номер позиции первого объекта равен нулю<br><br> </td> </tr> <tr> <td> MF_CHECKED<br><br> </td> <td> Отображает метку выбора, устанавливая ее слева от<br><br> </td> </tr> <tr> <td> </td> <td> элемента меню<br><br> </td> </tr> <tr> <td> MF_DISABLED<br><br> </td> <td> Делает элемент меню недоступным<br><br> </td> </tr> <tr> <td> MF_ENABLED<br><br> </td> <td> Делает элемент меню доступным<br><br> </td> </tr> <tr> <td> MF_G RAYED,<br><br> </td> <td> Делает элемент меню недоступным и выводит его,<br><br> </td> </tr> <tr> <td> </td> <td> заливая изображение серым цветом (вместо того, чтобы<br><br> </td> </tr> <tr> <td> </td> <td> сделать его невидимым)<br><br> </td> </tr> <tr> <td> M F_MENUBARBREAK<br><br> </td> <td> Помещает элемент меню в новый столбец, отделяя его<br><br> </td> </tr> <tr> <td> </td> <td> вертикальной линией<br><br> </td> </tr> <tr> <td> MF_MENUBREAK<br><br> </td> <td> Помещает элемент меню в новый столбец<br><br> </td> </tr> <tr> <td> MF_POPUP<br><br> </td> <td> Подключает дополнительное раскрывающееся меню к<br><br> </td> </tr> <tr> <td> </td> <td> элементу меню<br><br> </td> </tr> <tr> <td> MF_SEPARATOR<br><br> </td> <td> Помещает горизонтальную линию разделителя под<br><br> </td> </tr> <tr> <td> </td> <td> элементом меню<br><br> </td> </tr> <tr> <td> MF_STRING<br><br> </td> <td> Помещает строку в элемент меню<br><br> </td> </tr> <tr> <td> MF_JJNCHECKED<br><br> </td> <td> Снимает метку выбора слева от элемента меню (если<br><br> </td> </tr> <tr> <td> </td> <td> элемент был выделен)<br><br> </td> </tr> </table>< <br><br> <br> Чтобы связать растровое изображение с пунктом меню, необходимо установить флаг MF_BITMAP в параметре wFlags<br><br> функции ModifyMenuO. Процедура изменения меню относительно проста, но с заданием растрового изображения, помещенного в заголовок элемента меню, дело обстоит иначе. Сначала необходимо создать контекст устройства (т.е. область памяти, в которой будет храниться растровое изображение) с помощью функции CreateCompatibleDC().<br><br> Набор данных, составляющих растровое изображение (обычно это BMP-файл), загружается в скрытый элемент управления PictureBox. Из него растровое изображение копируется в контекст устройства с помощью функции CreateCompatibleBitmap(). После того как растровое изображение помещено в контекст устройства, его можно связать с элементом меню, как строку текста Фрагмент программы 13.5 содержит код, реализующий добавление растрового изображения к элементу меню приложения MenuBMP.<br><br> Обратите внимание размеры растрового изображения должны быть переданы как параметры функции CreateCompatibleBitmap(). Создавая растровое изображение с помощью графического редактора, необходимо задавать изображению такие размеры, чтобы они соответствовали размерам элемента меню. Не следует делать его слишком высоким или слишком узким Растровые изображения в рассматриваемых примерах были созданы в программе PaintShopPro. Для создания растровых изображений можно использовать любой графический редактор, включая ImageEdit (папка Tools прилагаемого компакт-диска).<br><br> Меню Bitmaps приложения MenuBMP содержит три команды, соответствующие трем различным шрифтам (см. рис. 13.4). Три растровых изображения хранятся в файлах Verdana.bmp, Serif.bmp и Comic.bmp в той же папке, что и приложение. После разработки растровых изображений можно начинать работать с программой. Полный текст программы MenuBMP приведен ниже.<br><br> <b>Программа 13.5.</b> Приложение MenuBMP<br><br> Option Explicit<br><br> Private Declare Function GetMenu Lib "user32" _<br><br> (ByVal hwnd As Long) As Long <br><br> Private Declare Function GetSubMenu Lib "user32"<br><br> <br> ( ByVal hMenu As Long, ByVal nPos As Long) As Long<br><br> Private Declare Function GetMenuItemID Lib "user32"<br><br> (ByVal hMenu As Long, ByVal nPos As Long) As Long<br><br> Private Declare Function ModifyMenu Lib "user32"<br><br> Alias "ModifyMenuA" (ByVal hMenu As Long, _ <br><br> ByVal nPosition As Long, ByVal wFlags As Long, _ <br><br> ByVal wIDNewItem As Long, ByVal IpString As Any) As Long <br><br> Private Declare Function CreateCompatibleDC Lib "gdi32" _<br><br> (ByVal hdc As Long) As Long <br><br> Private Declare Function CreateCompatibleBitmap Lib "gdi32" _<br><br> (ByVal hdc As Long, ByVal nWidth As Long,<br><br> _<br><br> ByVal nHeight As Long) As Long <br><br> Private Declare Function SelectObject Lib "gdi32" _<br><br> (ByVal hdc As Long, ByVal hObject As Long) As Long <br><br> Private Declare Function BitBIt Lib "gdi32" _<br><br> (ByVal hDestDC As Long, ByVal x As Long, ByVal у As Long, _<br><br> ByVal nWidth As Long, ByVal nHeight As Long, _<br><br> ByVal hSrcDC As Long, ByVal xSrc As Long, _<br><br> ByVal ySrc As Long, ByVal dwRop As Long) As Long <br><br> Private Declare Function DeleteDC Lib "gdi32" _<br><br> (ByVal hdc As Long) As Long<br><br> Const SRCCOPY   &HCC0020 <br><br> Const MF_BYPOSITION - &H400&<br><br> Const MF_BITMAP   &H4&<br><br> Private Sub Form_Load() <br><br> Dim Width As Integer, Height As Integer<br><br> Dim hTmpDC As Long, hMenuID As Long<br><br> Dim hBitmap As Long, retValue As Long<br><br> Dim tmpID As Long<br><br> Dim fileName As String<br><br> Dim menuPos As Integer, menuID As Long<br><br> ‘ Установка позиции меню и имени файла<br><br> menuPos = 0<br><br> fileName = App.Path & "\verdana.bmp"<br><br> Picturel.Picture = LoadPicture(fileName)<br><br> Width = 64<br><br> Height = 16<br><br> ‘ Получение дескриптора меню<br><br> hMenuID = GetSubMenu(GetMenu(Me.hwnd), menuPos)<br><br> ‘ Создание контекста устройства для хранения растрового<br><br> ‘изображения<br><br> hTmpDC = CreateCompatibleDC(Picturel.hdc) <br><br> ‘ Создание растрового изображения<br><br> hBitmap = CreateCompatibleBitmap(Picturel.hdc, Width, Height)<br><br> ‘ Выбор растрового изображения во временный контекст <br><br> tmpID = SelectObject(hTmpDC, hBitmap)<br><br> ‘ Копирование содержимого из элемента управления в   контекст<br><br> <br> ‘ устройства <br><br> retValue = BitBIt(hTmpDC, 0, 0, Width, Height, _<br><br> Picturel.hdc, 0, 0, SRCCOPY)<br><br> ‘ Отмена выбора<br><br> tmpID = SelectObject(hTmpDC, tmpID)<br><br> ‘ Модификация меню<br><br> menuID = GetMenuItemID(hMenuID, menuPos)<br><br> retValue = ModifyMenu(hMenuID, menuPos, _<br><br> MF_BYPOSITION Or MF_BITMAP, menuID, hBitmap)<br><br> ‘ Второй пункт меню <br><br> menuPos = 1<br><br> fileName = App.Path & "\serif.bmp"<br><br> Picture1.Picture = LoadPicture(fileName)<br><br> ‘ Создание растрового изображения для элемента меню <br><br> hBitmap = CreateCompatibleBitmap(Picturel.hdc. Width, Height)<br><br> ‘ Выбор растрового изображения во временный контекст<br><br> ‘ устройства<br><br> tmpID = SelectObject(hTmpDC, hBitmap) <br><br> retValue = BitBIt(hTmpDC, 0, 0, Width, Height, _<br><br> Picture1.hdc. О, О, SRCCOPY)<br><br> tmpID = SelectObject(hTmpDC, tmpID) <br><br> menuID = GetMenuItemID(hMenuID, menuPos) <br><br> retValue = ModifyMenu(hMenuID, menuPos,<br><br> MF_BYPOSITION Or MF_BITMAP, menuID, hBitmap)<br><br> ‘Третий пункт меню menu <br><br> Pos = 2<br><br> fileName = App.Path & "\comic.bmp" <br><br> Picture1.Picture = LoadPicture(fileName)<br><br> ‘ Создание растрового изображения для элемента меню<br><br> hBitmap = CreateCompatibleBitmap(Picturel.hdc, Width, Height)<br><br> ‘ Выбор растрового изображения во временный контекст устройства<br><br> tmpID = SelectObject(hTmpDC, hBitmap) <br><br> retValue = BitBIt(hTmpDC, 0, 0, Width, Height, _<br><br> Picturel.hdc. О, О, SRCCOPY)<br><br> tmpID = SelectObject(hTmpDC, tmpID) <br><br> menuID = GetMenuItemID(hMenuID, menuPos) <br><br> retValue = ModifyMenu(hMenuID, menuPos, _<br><br> MF_BYPOSITION Or MF_BITMAP, menuID, hBitmap)<br><br> ‘ Очистка<br><br> retValue = DeleteDC(hTmpDC) <br><br> End Sub<br><br> Private Sub MyMenu Click(Index As Integer) <br><br> Dim fName(3) As String <br><br> fName(0) = "Verdana" <br><br> fName(l) = "Serif" <br><br> fName(2) = "Comic Sans MS"<br><br> Me.CIs<br><br> Me.CurrentX = (Me.ScaleWidth - TextWidth(fName(Index)))/2<br><br> Me.CurrentY = (Me.ScaleHeight - TextHeight(fName(Index)))/2<br><br> Me.Font.Name = fName(Index)<br><br> Me.Print fName(Index) <br><br> End Sub<br><br><br> <h1>Создание набора записей</h1> Если связь с базой данных установлена, то можно использовать SQL-операторы для манипулирования записями. Чтобы выполнить SQL-оператор, используйте метод Execute объекта Connection, передав ему этот оператор в качестве аргумента.<br> DBConnection.Execute SQLStatement<br> Аргумент<br> SQLStatement - это строка, содержащая SQL-оператор или имя сохраненной процедуры. Если SQL-оператор возвращает набор записей (Recordset), как оператор SELECT, то его следует вызывать следующим образом.<br> Set SelRecords = DBConnection.Execute(SQLStatement)<br> Метод Execute принимает два необязательных аргумента:<br> •  количество записей, на которые воздействует данная операция (значение этого параметра устанавливается драйвером);<br> •  признак, указывающий, является аргумент SQLStatement SQL-оператором или именем сохраненной процедуры.<br> Полный синтаксис метода имеет следующий вид.<br> DBConnection.Execute SQLStatement, numRecords, SQLText<br> Аргумент<br> SQLText принимает значения adCmdText (для SQL-оператора) и adCmdStoredProc (для сохраненной процедуры).<br> Другим способом выполнения SQL-оператора является создание объекта Command с помощью оператора:<br> Set SQLCornmand = Server. CreateObject ("ADODB. Command")<br> и выполнение SQL-оператора с помощью метода<br> Execute объекта SQLCommand. Объект Command предоставляет несколько свойств, позволяющих уточнить, какой оператор и каким образом будет выполняться.<br> Например, можно указать объект Connection, к которому будет применяться объект Command (в случае нескольких открытых соединений), задать значения параметров для сохраненных процедур и т.п.<br> Обычно объект Command используется следующим образом.<br> Set DBConnection = Server.CreateObject ("ADODB.Connection") <br> Set SQLCommand = Server. CreateObject ("ADODB. Command") <br> Set Paramltetri = Server. CreateObject ("ADODB. Parameter")<br> SQLCommand.ActiveConnection = DBConnection <br> SQLCommand.CommandText = "ProductsByCategory" <br> SQLCommand.CommandType = adCmdStoredProc <br> ParamItem.Name = "@ProductCategory" <br> <br> ParamItem.Value = 31<br><br> SQLCommand.Parameters.Append ParamItem <br><br> SQLCommand.Execute<br><br> Здесь<br><br> ProductCategory — имя параметра, который одновременно является именем сохраненной процедуры. Во время выполнения этой переменной присваивается значение (в предыдущем примере - 31). Приведенные операторы используют объект Command для выполнения сохраненной процедуры с параметрами. Этот код можно упростить с помощью оператора With.<br><br> Set DBConnection = Server.CreateObject("ADODB.Connection") <br><br> Set SQLCommand = Server. CreateObject ("ADODB. Command") <br><br> Set Paramltem = Server.CreateObject ("ADODB. Parameter")<br><br> With SQLCommand<br><br> .ActiveConnection = DBConnection <br><br> .CommandText = "ProductsByCategory" <br><br> .CommandType = adCmdStoredProc <br><br> With Paramltem<br><br>      .Name = "@ProductCategory"<br><br> .ParamItem.Value =31<br><br> .Parameters.Append ParamItem <br><br> EndWith <br><br> .Execute <br><br> End With<br><br><br> <h1>Создание объектных переменных</h1> В предыдущей главе было показано, как получать доступ к объектам посредством объектной переменной. Также были изучены два метода объявления объектной переменной:<br> <b>1</b>. Объявление объектной переменной с ключевым словом New.<br> Private objectVar As New objectType<br> <b>2</b>. Объявление объектной переменной с последующим присваиванием ей объекта, который необходимо использовать:<br> Private objectVar As objectType <br> Set objectVar = New objectType<br> Оба метода требуют, чтобы Visual Basic знал тип объекта.<br> Можно ожидать, что Visual Basic знает о формах, элементах управления и других типах встроенных объектов, но что можно сказать об объектах, созданных разработчиком? Так как Visual Basic ничего не знает об вновь созданном объекте, необходимо обеспечить доступ проекта к объекту посредством добавления в него ссылки на этот объект. Например, если нужно добавить к проекту класс CTimer, откройте меню Project и выберите References. В появившемся диалоговом окне References найдите объект, на который нужно сослаться в коде, и нажмите ОК.<br> Если после добавления в проект новой ссылки открыть окно Object Browser, можно увидеть список Type Library (Библиотеку типов) с только что добавленным объектом. Выберите его в списке Type Library для просмотра классов, которые он предоставляет. Проект CTimer предоставляет один класс - CTimer. Щелкните на его имени для просмотра его членов.<br> Итак, пока к проекту не добавлена ссылка на определенный объект, невозможно объявить переменную этого типа. Существует третий метод объявления объектных переменных - функция Create0bject(), которая требует предоставления имен приложения и класса. Сначала объявите объектную переменную, а затем присвойте ей экземпляр объекта:<br> Private TMR As Object <br> Set TMR = CreateObject ("TimerProject.CTimer")<br> Оператор Set обычно помещается в событии Form_Load или в процедуре, которой необходим доступ к объекту. Можно заменить объявление объектной переменной TMR в тестовом приложении на способ, использующий функцию CreateObject. Остальная часть программного кода останется прежней.<br><br> <br><br> <h1>Создание проекта</h1> Data<br> Чтобы увидеть новый визуальный инструмент в действии, создайте новый проект и в диалоговом окне типа проекта выберите Data Project. Проект Data — это не специальный тип проекта, а стандартный ЕХЕ-проект, но Visual Basic при этом загружает, на панель элементов управления все инструменты для работы с базами данных.<br> В окне проводника проекта отобразится, как обычно, новая форма и два конструктора ActiveX. Конструктор ActiveX - это специальная надстройка (add-in), предназначенная для упрощения разработки двух типов компонентов:<br> •  DataEnvironment,<br> •  DataReport.<br> Компонент<br> Data Environment<br> предназначен для подключения к базе данных и получения из нее записи. Компонент DataReport позволяет создавать отчеты и использовать их в приложении. Оба компонента основаны на визуальных инструментах для работы с базами данных и не требуют программирования. Конечно, нельзя обойтись без программирования, но его способы программирования напоминают способы, рассмотренные в предыдущей главе.<br> Панель элементов управления проекта Data содержит большое количество элементов управления ActiveX. Перечислим некоторые из них.<br> • ADODC (ADO Data Control — элемент управления данными ADO) — эквивалентен элементу управления Data.<br> •  DataList и DataCombo — усовершенствованные версии элементов управления ListBox и ComboBox, предназначенные для работы с базами данных (data-bound -связанные с данными). Работают с элементами управления ADO, но не с элементами управления DAO.<br> •  MSHFlexGrid - иерархический элемент управления Grid (Сетка), который работает с элементами управления DAO. Элемент MSHFlexGrid похож на элемент управления MSFlexGrid (см. гл. 9), но заполняется автоматически с помощью конструктора DataEnvironment.<br> В следующем параграфе будут рассмотрены конструкторы ActiveX — DataEnvironment и DataReport. Чтобы понять, что такое конструктор ActiveX и как он облегчает разработку проекта Data, рассмотрим основные требования к приложению, работающему с базами данных.<br> <br> Для доступа к базе данных с помощью ADO (или другого инструмента) необходимы объекты двух типов:<br><br> •  один или более объектов Connection и<br><br> • один или более объектов Command.<br><br> Объект Connection соединяет приложение с базой данных, a Command —<br><br> извлекает записи из базы данных. Он может использоваться и для изменения содержимого базы данных, но мы не будем это рассматривать подробно. Объект Command принимает, а затем выполняет SQL-оператор. Если это — SQL-запрос, то командный объект возвращает набор записей (RecordSet), соответствующих запросу. Если это — SQL-операция, то командный объект выполняет ее, и одна или больше записей обновляются (командный объект может возвращать записи, измененные операцией).<br><br> Другая операция, широко используемая при разработке приложений для баз данных - генерация отчетов. Получить нужные данные из базы данных несложно, но создание многостраничного отчета (с подведением итогов и т.д.) в общем случае является нетривиальной задачей. Многие разработчики используют инструменты третьих фирм для создания отчетов, особенно если они печатаются на разных принтерах — для них это действительно проблема. Конструктор<br><br> DataReport позволяет создавать структуры отчетов, используя операции типа "укажи и нажми". При этом сначала нужно определить данные, которые будут включены в отчет с помощью объекта DataEnvironment, работающего в связке с конструктором ActiveX элемента DataReport. Он позволяет без программирования реализовать дополнительные операции для работы с базами данных (запросы и отчеты).<br><br><br> <h1>Создание строки параметров</h1> Можете воспользоваться одним из двух способов построения URL для запроса приложения на сервере и передачи ему параметров.<br> •  Поместите требуемые параметры в тег <FROM> и предоставьте броузеру право соединения с сервером и передачи параметров, заданных значениями элементов управления на форме.<br> •  Создайте строку параметров с использованием команд VBScript и передайте ее на сервер, вызвав метод Navigate объекта Window.<br> Рассмотрим первый и наиболее простой способ. Для этого вернемся к странице FORM.HTM (см. гл. 19). Раздел Form на странице (рис. 22.2) создан с помощью следующего тега.<br> <FROM ACTION="ASPages/Register.asp" METHOD="GET"><br> Атрибут ACTION указывает URL приложения, которое нужно запустить. В данном случае — это ASP-приложение в виртуальной папке ASPages на Web-узле, на который передается страница. Атрибут METHOD определяет один из двух методов передачи данных от клиента на сервер. В примерах этой главы используется метод GET. Альтернативным является метод POST, который имеет ограничения на длину строки, передаваемой на сервер.<br> Раздел Form страницы FORM.HTM (рис. 22.2) содержит элементы управления и значения, перечисленные в табл. 22.1.<br> После нажатия кнопки Submit (Передать) в нижней части формы, клиент передает на сервер показанную ниже строку. При этом броузер автоматически создает ее (на этой странице сценарий не требуется).<br> http://127.0.0.I/Register.asp?LName=Brannon&FName=Andrea&Mail= ABrannon@USA.net&hardware=PC&browser=IE&Sports=ONSStock=ON& Bargains=ON&mail=YESsRegister=Register+Now%21<br> <div style="text-align:center;"><img src="image/index-image171.gif" alt="Создание строки параметров"></div><br> <b>Рис. 22.2.</b> Страница FORM.HTM запускает приложение на сервере и передает значения элементов управления в виде параметров<br> <b>Таблица 22.1.</b> Элементы управления и их значения из раздела Form<br><table border=1><br> <tr> <td>Элемент управления<br> <td> <td>Значение<br> <td> </tr> <tr> <td>Lname<br> <td> <td>Brannon<br> <td> </tr> <tr> <td>Fname<br> <td> <td>Andrea<br> <td> </tr> <tr> <td>Email<br> <td> <td>Abrannon@USA.net<br> <td> </tr> <tr> <td>Hardware<br> <td> <td>PC<br> <td> </tr> <tr> <td>Browser<br> <td> <td>IE<br> <td> </tr> <tr> <td>Sports<br> <td> <td>ON<br> <td> </tr> <tr> <td>News<br> <td> <td>OFF<br> <td> </tr> <tr> <td>Stock<br> <td> <td>ON<br> <td> </tr> <tr> <td>Weather<br> <td> <td>OFF<br> <td> </tr> <tr> <td>Bargains<br> <td> <td>ON<br> <td> </tr> <tr> <td>Mail<br> <td> <td>YES<br> <td> </tr> </table><br> Другой способ передачи параметров на сервер — создание строки параметров с помощью команд VBScript и передача ее на сервер вызовом метода Navigate объекта Window. Вот как может выглядеть обработчик события Click кнопки Command, выполняющий эту функцию.<br> Sub button1_onClick()<br> URLString = <br> "http://www.servername.com/Register.asp?Lname=<br> Brannon&Fname=Andrea&Email=Abrannon@USA.net"<br> Window.Navigate URLString <br> End Sub<br> Переменная<br> URLString является обычной длинной строкой. Однако чтобы поместить ее на печатной странице, ее придется разорвать. Обычно такие строки строятся по частям с использованием операции сцепления строк.<br> Как видите, первый способ намного проще. Если нет необходимости передавать значения, хранящиеся в элементах управления, то используйте именно этот способ.<br><br> <br><br> <h1>Создание</h1> Internet-совместимых элементов управления<br> С приходом эры Интернет и объединения рабочего стола с Web, что демонстрируют Active Desktop и последняя версия Internet Explorer, средства управления ActiveX должны обладать возможностью подсоединения к Интернет и загрузки информации с HTTP-серверов. Независимо от того, как много информации можно получить с помощью имеющихся средств, на сервере всегда остается новейшая информация. Интересная, и во многих случаях необходимая, возможность, которую можно добавить к элементам управления - соединение с HTTP и загрузка информации по запросу.<br> Элементы ActiveX, разрабатываемые с помощью Visual Basic, поддерживают асинхронную загрузку значений свойств. Это значит, что значением свойства может быть файл на Web-сервере, а элементы управления пользователя могут обращаться к серверу и загружать с него информацию. Для загрузки файла из URL используют метод AsyncRead со следующим синтаксисом.<br> UserControl_AsyncRead Target, AsyncType [, PropertyName]<br> Строка<br> Target определяет адрес, по которому находятся данные. Это URL удаленного HTTP-сервера или путь к файлу на локальном или сетевом диске. Например, URL - http://www.servername.corn/Updates/Latest.txt, путь к локальному файлу - file://m:\Software\Updates\Latest.txt.<br> Тип файла для загрузки определяется аргументом AsyncType, значения которого перечислены в табл 21.5.<br> <b>Таблица 21.5.</b> Возможные значения аргумента AsyncType метода AsyncRead<br><table border=1><br> <tr> <td>Константа<br> <td> <td>Описание<br> <td> </tr> <tr> <td>vbAsyncTypeFile <br> vbAsyncTypeByteArray <br> vbAsyncTypePicture<br> <td> <td>Данные находятся в файле, который можно будет открыть с помощью Visual Basic<br> Данные в виде массива байтов. Приложение должно обрабатывать элементы массива<br> Данные — объект<br> Picture (изображение)<br> <td> </tr> </table><br> Последний необязательный аргумент — имя свойства, которое будет загружено. Имя - это просто идентификатор, использующийся для получения значения загруженного свойства или отказа от загрузки данных. Далее в примерах показано различие между аргументом PropertyName<br><br> <br> и другими свойствами, подгружаемыми параллельно. Параметр PropertyName — произвольное имя. Его единственная функция — служить идентификатором загружаемых данных.<br><br> Когда данные запрашиваются методом AsyncRead, управление возвращается приложению, продолжающему обработку других задач. Загрузка требует времени, поэтому метод AsyncRead выполняется как асинхронная операция. Когда загрузка завершается, происходит событие AsyncReadComplete. Код обработчика события AsyncReadComplete имеет следующий вид.<br><br> Sub UserControl_AsyncReadComplete(PropertyValue As AsyncProperty) <br><br> Аргумент<br><br> PropertyValue является объектом, свойства которого описаны в табл. 21.6.<br><br> <b>Таблица 21.6.</b> Свойства объекта AsyncProperty<br><br><table border=1> <tr> <td> Константа<br><br> </td> <td> Описание<br><br> </td> </tr> <tr> <td> Value <br><br> PropertyName<br><br> AsyncType<br><br> </td> <td> Переменная, содержащая результат асинхронной загрузки.<br><br> Имя свойства, определяемое последним аргументом метода AsyncRead.<br><br> Целочисленное значение, определяющее тип данных, в свойстве Value. Принимает такие же значения, как и аргумент AsyncType метода AsyncRead.<br><br> </td> </tr> </table> Событие AsyncReadComplete происходит даже в случае, если во время передачи возникает ошибка. Если загрузка не завершилась успешно, то при обращении к свойству Value объекта AsyncProperty происходит ошибка исполнения. Необходимо включать оператор On Error в код обработчика события AsyncReadComplete, чтобы перехватить ошибки при загрузке.<br><br> Свойство Value является фактическим значением загружаемого свойства. Если тип запрошенных данных — VbAsyncTypeFile, то свойство Value — имя временного файла, который Visual Basic создает на диске в папке Temp. Для работы с таким файлом используются стандартные функции ввода/вывода. Если тип запрошенных данных - VbAsyncType Picture, то свойство Value является объектом Picture, содержащим битовое представление. Можно присвоить свойство Value свойству Picture элемента управления (или объекту UserControl) или преобразовать битовое представление с помощью метода PaintPicture. Если тип запрошенных данных — VbAsyncTypeByteArray, то свойство Value<br><br> <br> является массивом байтов.<br><br> Прекратить асинхронную загрузку данных можно с помощью метода CancelAsyncRead. Метод CancelAsyncRead имеет следующий синтаксис.<br><br> UserControl.CancelAsyncRead PropertyName<br><br> PropertyName — это имя загружаемого свойства (последний аргумент метода AsyncRead). Если PropertyName не был передан при последнем вызове метода AsyncRead, то его выполнение отменяется.<br><br> <b>VB6 в действии: разработка элемента управления<br><br> Rates</b><br><br> Асинхронная разгрузка значений свойства из Интернет демонстрируется в проекте Rates (Курсы обмена валюты) (рис. 21.12). Rates Control Demo имеет графический интерфейс, содержащий элемент управления ListBox, в котором отображаются последние курсы валюты Rates Control Demo обеспечивает методы поиска курсов различных валют, чтобы элемент управления мог остаться скрытым.<br><br> <div style="text-align:center;"><img src="image/index-image167.gif" alt="Создание"></div><br><br> <b>Рис. 21.12.</b> Rates Control Demo: загрузка и вывод данных из Интернет с HTTP-сервера<br><br><br> <h1>Спецификации элемента управления</h1> FLEXLabel<br> Элемент управления FLEXLabel должен отображать надпись (как и обычный элемент Label), то есть в нем должны быть предусмотрены свойства Caption и Font, которые позволяют разработчику задавать текст и его вид. В дополнение, элемент управления FLEXLabel может выравнивать надпись по вертикали и горизонтали. Эта возможность будет обеспечиваться свойством TextAlignment, возможные значения которого показаны в табл. 16.1.<br> <b>Таблица 16.1.</b> Значения свойства TextAlignment элемента управления FLEXLabel<br> <b>Значение            Описание</b><br> 0                           Слева вверху<br> 1                           Вверху посередине<br> 2                           Справа вверху<br> 3                           В центре слева<br> 4                           В центре<br> 5                           В центре справа<br> 6                           Слева внизу<br> 7                           Внизу посередине<br> 8                           Справа внизу<br> Названия, указанные в колонке Описание,<br> отображаются в раскрывающемся списке свойства TextAlignment. Заметим, что свойства с ограниченным набором значений отображаются в виде раскрывающегося списка в окне свойств. Этот список содержит описательные имена (вместо чисел), и разработчик может выбрать только корректное значение.<br> Аналогично, текстовые эффекты управляются с помощью свойства<br> Effect, чьи значения приведены в табл. 16.2.<br> <b>Таблица 16.2.</b> Значения свойства Effect элемента управления FLEXLabel<br><table border=1><br> <tr> <td>Значение<br> <td> <td>Описание<br> <td> </tr> <tr> <td>0<br> <td> <td>Нет<br> <td> </tr> <tr> <td>1<br> <td> <td>Слабо тисненный<br> <td> </tr> <tr> <td>2<br> <td> <td>Средне тисненный<br> <td> </tr> <tr> <td>3<br> <td> <td>Сильно тисненный<br> <td> </tr> <tr> <td>4<br> <td> <td>Слабо выпуклый<br> <td> </tr> <tr> <td>5<br> <td> <td>Средне выпуклый<br> <td> </tr> <tr> <td>6<br> <td> <td>Сильно выпуклый<br> <td> </tr> </table><br> Подобно свойству TextAlignment, свойство Effect имеет мало значений, которые задаются в окне свойств содержательными именами.<br> В дополнение к новым свойствам, элемент FLEXLabel должен также предусматривать стандартные для элемента управления Label свойства, такие как Font, Tag, BackColor и т.д. Разработчики ожидают увидеть эти свойства в окне свойств и, следовательно именно там необходимо их реализовать. Элемент управления FLEXLabel не имеет никаких дополнительных методов, но он должен предусматривать стандартные методы элемента управления Label, как например, метод Move. Аналогично, хотя элемент не инициирует никаких специальных событий, он должен поддерживать стандартные события элемента управления Label например, события мыши и клавиатуры.<br> Большая часть функциональных возможностей элемента управления уже реализованы, и должен существовать простой способ заимствования их у других элементов вместо того чтобы реализовывать их самостоятельно. На самом деле так и есть Visual Basic снабжен мастером который генерирует код стандартных частей элемента управления а разработчику только остается написать код для дополни тельных свойств.<br><br> <br><br> <h1>SQL-объединения</h1> Объединения определяют, как связываются несколько таблиц в запросе. Существует три типа объединений.<br> •   Left Outer (Левое внешнее)<br> •   Right Outer (Правое внешнее)<br> •   Inner (Внутреннее)<br> Операция объединения соединяет все строки одной таблицы со строками другой таблицы. Объединения обычно сопровождаются условием, которое определяет какая запись на каждой стороне объединения появится в RecordSet.<br> <b>Left Outer (Левое внешнее объединение).</b> Это объединение отображает все записи из левой таблицы и только те записи правой таблицы, которые удовлетворяют задаваемым пользователем критериям. Это объединение имеет следующий синтаксис.<br> FROM (первичная таблица) LEFT JOIN (вторичная таблица) ON<br> (первичная таблица).(поле) (сравнение) (вторичная таблица).(поле)<br> В левом внешнем объединении всем записям в первичной таблице поставлены в соответствие записи из вторичной таблицы, отвечающие заданным критериям. Записи из левой таблицы (имя которой указано слева от ключевого слова LEFT JOIN) включаются даже тогда, если для них нет соответствующих записей во вторичной таблице.<br> <b>Right Outer (Правое внешнее объединение).</b> Это объединение подобно левому внешнему объединению, но в данном случае отображаются все записи правой таблицы и соответствующие критерию записи левой таблицы. Это объединение имеет следующий синтаксис.<br> FROM (вторичная таблица) RIGHT JOIN (первичная таблица) ON <br> (вторичная таблица).(поле) (сравнение) (первичная таблица).(поле)<br> В правом внешнем объединении всем записям в первичной таблице поставлены в соответствие отвечающие заданным критериям записи вторичной таблицы. Записи первичной таблицы включаются даже тогда, если для них нет соответствующих записей во вторичной таблице.<br> Внешние объединения возвращают огромные наборы записей. Поэтому необходимо избегать их использования без особой необходимости. С другой стороны, внутренние объединения просты и с ними строят большинство команд SQL.<br> <b>Inner (Внутреннее объединение).</b> Это объединение возвращает строки обеих таблиц включаемых в операцию, которые соответствуют заданным критериям. Внутреннее объединение имеет следующий синтаксис.<br> <br> FROM (первичная таблица) INNER JOIN (вторичная таблица) ON <br><br> (первичная таблица).(поле) (сравнение) (вторичная таблица).(поле)<br><br> Рассмотрим подробнее несколько примеров. В простейшем виде внутренние объединения похожи на предложения WHERE. Следующий SQL-оператор объединяет записи из таблиц Titles и Publishers базы данных BIBLIO, если у них совпадают поля PubID. Она возвращает набор записей с именами всех книг и их издателей.<br><br> SELECT Titles.Title, Publishers.Name FROM Titles, Publishers <br><br> WHERE Titles.PubID = Publishers.PubID<br><br> Можно получить такой же RecordSet, используя внутреннее объединение.<br><br> SELECT Titles.Title, Publishers.Name FROM Titles, Publishers, <br><br> INNER JOIN Titles ON Titles.PubID = Publishers.PubID<br><br> Результаты работы этой команды показаны ниже.<br><br> <div style="text-align:center;"><img src="image/sql-obedinenija_1.gif" alt="SQL-объединения"></div><br><br> Рассмотрим более сложную операцию объединения. На этот раз необходимо получить из базы данных BIBLIO все названия изданий наряду с их авторами и издателями. Следующее утверждение действительно сложно и отражает реальную ситуацию.<br><br> SELECT Titles.Title, Titles.ISBN, Authors.Author, <br><br> Titles.[Year.Published], Publishers.[Company Name] FROM <br><br> (([title author] INNER JOIN Titles ON <br><br> [title author].ISBN = Titles.ISBN) INNER JOIN Authors ON <br><br> [title author].Au ID = Authors.Au ID) INNER JOIN Publishers ON <br><br> Titles.PubID = Publishers.PubID ORDER BY Titles.Title<br><br> Результаты работы команды показаны ниже.<br><br> <div style="text-align:center;"><img src="image/sql-obedinenija_2.gif" alt="SQL-объединения"></div><br><br> В предыдущей команде в квадратные скобки заключены имена полей, которые содержат пробелы. Все имена полей предваряются соответствующим именем таблицы (хотя большинство имен полей уникально), чтобы сделать команду более легкой для чтения.<br><br> В списке полей устанавливаются следующие поля:<br><br> <b>•   Titles.TitIe</b> - название книги;<br><br> <b>• Titles.ISBN</b> - ISBN код книги;<br><br> <b>•  Authors.Author</b> — автор книги;<br><br> <b>•  Titles.[Year Published]</b> — год публикации книги;<br><br> <b>•  Publishers. [Company Name]</b> — издатель книги.<br><br> Вы, возможно, помните, что база данных BIBLIO содержит четыре таблицы, а наш запрос требует данных из всех таблиц Фактически, никакие данные из таблицы Title Author в результатах запроса не отображаются, но эта таблица связывает названия и имена авторов (через ISBN код книги), поэтому ее необходимо использовать в SQL-запросе.<br><br> <br> Поля не выбираются из каждой конкретной таблицы непосредственно. Их получают из ряда внутренних объединений. Первое внутреннее объединение следующее.<br><br> [title author] INNER JOIN Titles ON [title author].ISBN =<br><br> Titles.ISBN<br><br> Это выражение извлекает (и соединяет) каждое название издания с иден тификатором его автора, если ISBN код в обеих таблицах совпадает. В сущности, будет получен идентификатор автора для каждого издания. Назовем это выражение (которое является объектом RecordSet) Title-AuthorIDs. Этот RecordSet помещен в круглые скобки и соединен с другим RecordSet.<br><br> (Title-AuthorIDs) INNER JOIN Authors ON [title author].Au_ID = <br><br> Authors Au ID<br><br> Этот RecordSet соединяет идентификаторы авторов предыдущего RecordSet с фактическими именами авторов. Мы создали RecordSet с именами авторов и названиями изданий. Назовем его Titles-Author. Последняя операция объединения соединяет RecordSet, который содержит имена авторов и изданий, с таблицей Publishers следующим образом.<br><br> (Titles-Author) INNER JOIN Publishers ON Titles.PubID = <br><br> Publishers.PubID<br><br> На этот раз идентификаторы издателей должны совпадать. Результирующий RecordSet содержит названия изданий, авторов и издателей и является источником данных. Последнее ключевое слово в этой SQL-команде — ORDER BY — задает порядок отображения заказов.<br><br><br> <h1>Страница</h1> ALLPRODS.ASP<br> Страница ALLPRODS.ASP отображает список категорий товаров в базе NWIND (рис. 22.8).<br> ASP-страница читает наименования категорий товаров и отображает их в виде гиперссылок. Когда пользователь выбирает гиперссылку, он переходит на другую страницу (PRODCAT.ASP), которая отображает все товары, принадлежащие этой категории, их цены и количество (рис. 22.9).<br> Если посмотреть на код страницы PRODCAT.ASP, то можно заметить, что в ней мало HTML-кода, поскольку это серверный сценарий, который открывает базу данных NWIND, создает набор записей с наименованиями категорий и отображает их в виде гиперссылок.<br> Наибольший интерес представляет строка, создающая гиперссылки. Если не обращать внимания на обрамление этого выражения тегами серверного сценария, то выглядит оно как обычный HTML-тег для создания гиперссылки. Поскольку имя гиперссылки и ее целевая страница в момент создания этого файла неизвестны, поместим в него выражения, которые будут замещены при обработке файла активной серверной страницей.<br> <div style="text-align:center;"><img src="image/index-image181.gif" alt="Страница"></div><br> <b>Рис. 22.8.</b> Страница ALLPRODS.ASP: категории товаров в базе данных NWIND в виде гиперссылок<br> <div style="text-align:center;"><img src="image/index-image182.gif" alt="Страница"></div><br> <b>Рис. 22.9.</b> файл PRODCAT.ASP: товары в категории, выбранной на рис. 22.8<br> Обратите внимание: все гиперссылки обращаются к одному<br> URL на сервере (файл PRODCAT.ASP), но каждая ссылка передает другое значение параметра. Этим значением является идентификатор (ID) категории - поле записи, хранящей сведения о каждом товаре. Страница PRODCAT ASP использует это значение для выбора товаров заданной категории. В качестве второго параметра передается наименование категории. Этот параметр не используется при выборке записей -он нужен только для отображения наименования категории. Если опустить этот параметр, то страница PRODCAT.ASP откроет таблицу Categories (Категории), чтобы найти наименование выбранной категории, отобразить его в заголовке страницы, а затем открыть таблицу Products (Товары) для извлечения наименований товаров. Передавая наименование категории в качестве второго параметра, мы избавляем сценарий от необходимости установления еще одной связи с базой данных для получения уже известной информации.<br> <br> <b>Программа 22.8.</b> Файл ALLPRODS ASP<br><br> <HTML><br><br> <b><%</b><br><br> Set DBObj =<br><br> Server.CreateObject("ADODB.Connection")<br><br> DBObj.Open "NWindDB"<br><br> SQLQuery = "SELECT CategoryID, CategoryName FROM Categories"<br><br> Set RSCategories = DBObj.Execute(SQLQuery)<br><br> %><br><br> <CENTER><br><br> <H1>List Of Product Categories</H1><br><br> </CENTER><br><br> <TABLE><br><br> <% Do While Not RSCategories.EOF %> <br><br> <TR> <br><br> <TD> <FONT FACE-"Verdana" SIZE=2><br><br> <% CategoryName = RSCategories ("CategoryName") %><br><br> <A HREF="/ASPages/ProdCat.asp?CategoryID= _<br><br> <% "RSCategories ("CategoryID") %>&CategoryName= _<br><br> <% =CategoryName %> "> <% = CategoryName %> </A> <br><br> </FONT> <br><br> </TD> <br><br> </TR> <br><br> <%<br><br> RSCategories.MoveNext <br><br> Loop<br><br> DBObj.Close <br><br> %> <br><br> </HTML><br><br> Файл PRODCAT ASP, обрабатывающий запросы, сделанные страницей ALLPRODS ASP, несколько сложнее Сначала он извлекает значения параметров, переданных клиентом Операторы<br><br> ReqCategory=Request.QueryString ("CategoryID")<br><br> ReqName=Request.QueryString ("CategoryName")<br><br> сохраняют эти значения в переменных ReqCategory и ReqName<br><br> Семейство QueryString хранит эти значения для дальнейшего использования Прочесть их, воспользовавшись соответствующими именами, не составляет труда Значение переменной ReqCategory необходимо для построения SQL-оператора, извлекающего записи из таблицы Products<br><br> SQLQuery = "SELECT ProductName, UnitPrice, UnitInStock _ <br><br> FROM Products WHERE CategoryID = " & ReqCategory & " _<br><br> ORDER BY ProductName"<br><br> Этот SQL-оператор возвращает набор записей, содержащий сведения о товарах из выбранной категории. Затем сценарий просматривает записи и выводит их в строках таблицы. Фрагмент кода, который строит таблицу, выглядит достаточно сложно, поскольку в него входят HTML-операторы и операторы сценария. Чтобы понять, как он работает, замените каждое выражение, заключенное в теги <% и %>, соответствующем значением (например, наименованием товара в выражении <% = RSProducts ("ProductName") %> и т.д.).<br><br> <br> <b>Программа 22.9. </b>Файл PRODCAT.ASP<br><br> <HTML><br><br> <b><%</b><br><br> ReqCategory=Request. QueryString ("CategoryID")<br><br> ReqName=Request. QueryString ("CategoryName")<br><br> Set DBObj = Server.CreateObject ("ADODB.Connection")<br><br> DBObj.Open "NWindDB"<br><br> SQLQuery = " SELECT ProductName, UnitPrice, UnitsInStock FROM Products<br><br> WHERE CategoryID = " & ReqCategory S " ORDER BY ProductName"<br><br> Set RSProducts = DBObj.Execute(SQLQuery)<br><br> <b>%></b><br><br> <CENTER><br><br> <H1>Query Results</H1><br><br> <H3>List of products in category <% = ReqName %></H3><br><br> </CENTER><br><br> <TABLE><br><br> <% Do While Not RSProducts.EOF %> <br><br> <TR> <br><br> <TD> <FONT FACE="Verdana" SIZE=2><br><br> <% = RSProducts ("ProductName") & " (" &<br><br> RSProducts ("UnitPrice") & ")" %> <br><br> </FONT></TD> <br><br> <TD><FONT FACE="Verdana" SIZE=2><br><br> <% = RSProducts ("UnitsInStock") %> <br><br> </FONT></TD> <br><br>   </TR> <br><br> <%<br><br> RSProducts.MoveNext <br><br> Loop <br><br> %><br><br> </TABLE> <br><br> </HTML><br><br> Этот пример достаточно прост. Если некоторые его фрагменты выглядят непонятно, то отделите выражения, вычисляющиеся на сервере, от HTML-кода. При этом можно использовать символические имена - ProductName и UnitPrice. Убедившись, что код работает, замените их действительными переменными серверного сценария.<br><br><br> <h1>Структура базы данных</h1> BIBLIO<br> Одна из двух стандартных баз данных, поставляемых с Visual Basic, называется BIBLIO. База данных BIBLIO имеет простую структуру, почти тривиальную, но демонстрирует многие из рассмотренных ранее тем. Откройте базу BIBLIO с помощью Visual Data Manager и исследуйте ее структуру.<br> База BIBLIO содержит заголовки книг имена авторов и издателей в виде четырех таблиц (рис. 17.11). Вместо имен полей каждой таблицы на рисунке отображены некоторые содержащиеся в них данные. Приведены только те поля, которые необходимы, чтобы показать связи между таблицами. Имена полей отображены как заголовки столбцов. Первое правило при проектировании базы данных — не дублировать данные. Хранение имени автора совместно с заголовками нарушило бы это правило, поскольку автор обычно пишет больше одной книги. В этом случае необходимо было бы повторить имя автора в более чем одной строке таблицы Titles. Имена авторов хранятся в отдельной таблице – Authors. Это же справедливо и для издателей. Так как каждый издатель появляется во многих книгах то информация об издателях в таблице Titles не хранится. Зачем повторять адрес издателя с каждым заголовком?<br> Пока обосновано существование трех таблиц в базе данных. Но в базу данных BIBLIO входит четвертая таблица. Каждая книга может иметь более одного автора, а имя автора может появляться не только в одном заголовке Хранение имен каждого из авторов или их ID для каждого наименования книги потребовало бы соответствующих полей в таблице Titles. Отличие поля с ID автора от поля PubID (ID издателя) состоит в том, что книга может иметь несколько авторов, и необходимо предусмотреть ряд полей для хранения идентификаторов Author ID (AuthorIDl, AuthorID2 и т.д.). Очевидно, что имена авторов не могут обрабатываться подобно именам издателей.<br> <div style="text-align:center;"><img src="image/struktura-bazy-dannyh_1.gif" alt="Структура базы данных"></div><br> <b>Рис. 17.11.</b> Структура базы данных BIBLIO<br> Таблица Title Author находится между таблицами Titles и Authors и соединяет их с парой полей — ISBN книги и ID автора. Для просмотра имени автора конкретной книги необходимо выполнить следующие действия.<br> <br> <b>1</b>. Найдите искомый заголовок в таблице Titles.<br><br> <b>2</b>. Прочитайте значение ISBN в Title и используйте его как ключ для нахождения соответствующей строки (строк) в таблице Title Author.<br><br> <b>3</b>. Из каждой соответствующей строки таблицы Title Author прочтите ID автора и используйте его в качестве ключа для поиска имени автора в таблице Authors.<br><br> Тем, кто не знаком с программированием баз данных, эта процедура может показаться сложной, но это не так. Далее в этой главе показаны два способа поиска конкретных записей с помощью ключей. Описанная методика не сможет эффективно работать, если нет способа быстрого поиска записи по значению конкретного поля. А он может быть выполнен при соответствующей индексации таблиц.<br><br> Как видно, индексы - неотъемлемая часть разработки базы данных. Например, таблица Title Author (Автор книги) индексируется по полю ISBN. Если необходимо обеспечить поиск в противоположном направлении (дано имя автора, а требуется найти книги, в которых оно появляется), необходимо проиндексировать таблицу Title Author по полю AuID. Очевидно, таблица Authors (Авторы) должна быть индексирована по полю AuID, так как в таблице Title Author хранятся ID авторов, а не их имена. Таблица Publishers (Издатели) индексируется по полю PubID, чтобы можно было быстро перейти от названия книги к ее издателю.<br><br><br> <h1>Структура HTML-документов</h1> HTML-файлы — это файлы, которые содержат текст и команды форматирования. Командами являются строки со специальным синтаксисом, что позволяет броузеру отличить их от текста. Каждый тег HTML заключен в угловые скобки (<>). Тег <I> подключает атрибут курсива, и текст выделяется курсивом, пока не встретится тег </I>. Следующая строка<br> HTML is <I>the</I> language of the Web. <br> воспроизводится броузером без тегов, а слово the выделяется курсивом.<br> HTML is the<br> language of the Web.<br> Большинство тегов (обычно они следуют парами) влияет на часть текста. Один тег включает данный атрибут, а другой - отключает его. Примером может служить тег <I>, <В> и <U>, которые включают атрибуты курсив,<b> полужирный</b> и <u>подчеркивание.</u> Тегу, отключающему атрибут, всегда предшествует символ "/". Для отображения части текста полужирным шрифтом ее заключают в теги <В> и </В>.<br> Теги не чувствительны к шрифтам. Можно ввести теги курсива в виде <i> и </i>. В этой книге и на прилагающемся компакт-диске используются заглавные буквы для HTML-команд (чтобы выделить их из остального текста документа). Большинство WYSIWYG-редакторов HTML вставляют HTML-теги в виде строчных символов.<br> Примечание<br> Наличие второго тега — для отключения атрибута — не всегда является обязательным. Например, не нужно использовать пару<b><br> <Р></b> и </Р> для вставки новой строки: это с успехом сделает один тег <Р>.<br> Структура HTML-документа показана ниже. Если сохранить следующие строки в текстовом файле с расширением htm, а затем открыть его с помощью Internet Explorer, то вы увидите традиционное приветствие.<br> <HTML><br> <head> <link rel="canonical" href="https://www.e-lave.ru//index.htm"/><br> <TITLE>Your Title Goes Here </TITLE><br> </HEAD><br> <BODY><br> Hello, World!<br> </BODY><br> </HTML><br> Базовый HTML-документ следует начинать тегом<br> <HTML> и завершать тегом </HTML>. Раздел заголовка документа выделяется тегами <head> <link rel="canonical" href="https://www.e-lave.ru//index.htm"/> и </HEAD>. Обычно в него помещаются следующие элементы:<br> <br> •  название документа;<br><br> • теги МЕТА и BASE;<br><br> •  сценарий.<br><br> Название документа — это текст в заголовке окна броузера. Он задается тегами <TITLE> и </TITLE>. МЕТА-теги не отображаются на экране, но содержат полезную информацию о содержании документа: описание и ключевые слова, используемые устройством поиска. Например:<br><br> <HTML><br><br> <head> <link rel="canonical" href="https://www.e-lave.ru//index.htm"/><br><br> <TITLE>Your Title Goes Here</TITLE><br><br> <META NAME="Keywords" CONTENT= _<br><br> "health, nutrition, weight control, _<br><br> chronic illness"> <br><br> </HEAD> <br><br> </HTML><br><br> <b>Атрибуты</b><br><br> Многие теги HTML распознают специальные ключевые слова, которые называются атрибутами. Например тег <BODY>, отмечающий начало тела документа, распознает атрибуты BGCOLOR и BACKGROUND, задающие цвет фона и изображение являющееся фоном документа. Можно задать цвет фона документа (если нет фонового изображения) и ею текста используя атрибуты BGCOLOR и TEXT<br><br> </HTML> <br><br> </HEAD><br><br> <TITLE>Your Title Goes Here</TITLE> <br><br> </HEAD><br><br> <BODY BACKGROUND="paper.jpg"> <br><br> <Hl>Tiled Background</Hl><br><br> The background of this page was created with a small image, <br><br> which is tiled vertically and horizontally by the browser. <br><br> (Фон страницы создан с помощью небольшого изображения, <br><br> воспроизведенного броузером в виде повторяющейся мозаики) <br><br><br> The image was designed so that its left edge matches with its <br><br> riqht edge and its top edge matches with the bottom edge. Notice <br><br> that you can't detect where one instance ends and the next one <br><br> begins.<br><br> (Верхний срез изображения соответствует нижнему срезу. Заметьте: обнаружить, где оно начинается и кончается, нельзя.) <br><br> </BODY> <br><br> </HTML><br><br> Мозаика фонового изображение начинается в левом верхнем углу и проходит через весь экран вниз (рис. 19.1). Можно создать привлекательный фон, используя непрерывную мозаику и составить фоновое изображение из мелких и крупных фрагментов. Будьте внимательны, соединяя границы фрагментов изображения, иначе можете увидеть не то, что ожидали. Конечно, в этом примере текст любого цвета будет нечитабельным кроме случая когда он будет достаточно крупным и иметь хорошую контрастность.<br><br><div style="text-align:center;"><img src="image/index-image127.gif" alt="Структура HTML-документов"></div><br><br> <b>Рис. 19.1.</b> Фоновое изображение в виде мозаики<br><br><br> <h1>Связывание и встраивание объектов во время выполнения программы</h1> Рассмотрим создание и встраивание объектов во время выполнения приложения на примере приложения OLERTime (папка этой главы на компакт диске). Приложение OLERTime демонстрирует следующие возможности:<br> •  вставку объекта;<br> • выбор между связыванием и встраиванием;<br> •  установку размеров окна контейнера элемента управления или размера объекта;<br> • отображение информации об объекте.<br> Возможность встраивания и связывания объектов с элементом управления OLE Container позволяет открыть диалоговое окно Insert Object (Вставка объекта) из кода программы. В предыдущих примерах это выполнялось вручную. Операции выполняются непосредственно из окна VB-приложения пользователь может выби рать объекты и самостоятельно устанавливать некоторые их свойства. Главная форма приложения показана на рис. 14.9.<br> <div style="text-align:center;"><img src="image/svjazyvanie-i-vstraivanie-obektov-vo-vremja_1.gif" alt="Связывание и встраивание объектов во время выполнения программы"></div><br> <b>Рис. 14.9.</b> Главное окно приложения OLERTime<br> После щелчка на кнопке Insert Object (Вставка объекта), приложение отображает диалоговое окно Object Type (Тип объекта) (рис. 14.10), в котором можно установить режим изменения размеров (Stretch Object) и тип OLE-связи (встраивание или связывание). Если щелкнуть на кнопке ОК, то на экране появится диалоговое окно Insert Object, в котором определяется новый объект или выбирается существующий.<br> <div style="text-align:center;"><img src="image/svjazyvanie-i-vstraivanie-obektov-vo-vremja_2.gif" alt="Связывание и встраивание объектов во время выполнения программы"></div><br> <b>Рис. 14.10.</b> Диалоговое окно Object Type приложения OLERTime<br> Для проверки приложения установите переключатели в диалоговом окне Object Type (Тип объекта) в положение Stretch Container Control и Embedded, после чего щелкните на кнопке ОК. В открывшемся диалоговом окне Insert выберите объект Excel Chart. В окне элемента управления появится диаграмма, содержащая произвольные данные. Из приложения OLERTime ее можно редактировать, масштабировать (так как установлен переключатель Stretch Container Control) и даже изменять, сохраняя в отдельном файле. Приложение можно остановить, запустить и загрузить в него диаграмму из отдельного файла.<br> <b>VB6 в действии: приложение OLERTime</b><br> Для разработки приложения выполните следующие действия.<br> <b>1</b>. Откройте новый проект и присвойте форме имя<b> frmOLE.</b> Эта форма содержит элемент управления OLE Container, пять командных (Command) кнопок (см. рис. 14.9) и элемент управления Common Dialogs.<br> <br> <b>2</b>. При помещении элемента управления OLE Container на форму появится диалоговое окно Insert Object (Вставка объекта). Щелкните на кнопке Cancel, чтобы поместить на форму пустой контейнер. Затем измените размеры окна элемента управления OLE Container и поместите на него командные кнопки (см. рис. 14.10).<br><br> <b>3</b>. Добавьте к проекту новую форму и поместите на нее элементы управления (см. рис. 14.10).                                               <br><br> <b>4</b>.<br><br> Сохраните все формы и проект в новой папке. После этого добавьте фрагмент программы, который позволит выполнять следующие действия:<br><br> •  отображать на экране второе окно (frmType) и активизировать диалоговое окно Insert Object;<br><br> • отображать информацию об объекте.<br><br> Откройте программу обработчика события Click кнопки Insert Object и введите следующие строки.<br><br> Private Sub cmdInsObj_Click()<br><br> frmType.Show <br><br> End Sub<br><br> Для отображения информации об объекте предусмотрена кнопка Object Info (вскоре мы узнаем, как объект выбирается и вставляется). После щелчка на этой кнопке выполняется следующий фрагмент программы (oleDisplay —<br><br> имя элемента управления OLE).<br><br> <b>Программа 14.3.</b> Обработчик события<br><br> Click для кнопки Object Info<br><br> Private Sub cmdObjInfo_Click() <br><br> Dim SourceText As String <br><br> Dim TypeText As String <br><br> Dim MsgText As String <br><br> SourceText = "The object's source file is " + oleDisplay. SourceDoc<br><br> ' (Файл объекта источника:...) <br><br> TypeText = "The type of object is " + oleDisplay.Class<br><br> ' (Тип объекта:...) <br><br> MsgText = SourceText + Chr(13) + TypeText <br><br> MsgBox MsgText, vblnformation, "Object Information"<br><br> ' (Информация об объекте) <br><br> End Sub<br><br> Символ ввода новой строки (vbCrLF) позволяет разбить длинное сообщение на несколько коротких строк. Если встроенный (или связанный) объект - документ Word, то отобразится следующая информация.<br><br> The object's source file is C:\My Documents\FileName <br><br> The type of object is Word.Document<br><br> (FileName будет заменено именем файла, встроенным в элемент управления OLE) На рис. 14.11 показано, что отображает кнопка Object Info, если в элемент управления OLE Container встроен объект Excel Chart. Поскольку объект Excel Chart - вновь созданный, то поле SourceDoc пусто.<br><br> <br> <div style="text-align:center;"><img src="image/svjazyvanie-i-vstraivanie-obektov-vo-vremja_3.gif" alt="Связывание и встраивание объектов во время выполнения программы"></div><br><br> <b>Рис. 14.11.</b> Информация, выводимая приложением OLERTime, для связанного растрового изображения<br><br> <b>Свойства SourceDoc и Class.</b> Кнопка Object Info позволяет отобразить значения свойств SourceDoc и Class. Значение свойства SourceDoc — это имя связанного или встроенного файла. Свойство Class устанавливает или возвращает имя класса встроенного объекта, которое, по сути, является его типом. Объекты других типов — это таблицы Excel (Excel.Sheet), растровые изображения, созданные программой Paint, и объекты, которые мы создадим в этой главе чуть позже. Если создать новый объест с помощью Excel, Word или другого (поддерживающего OLE) приложения,  то у него не будет свойства SourceDoc встроенный объект - это еще не документ, который хранится в файле на диске.<br><br> <b>Свойство Sourceltem.</b> Свойство Sourceltem указывает на часть документа, которая встроена или связана. Во многих случаях значение этого свойства не определено, поскольку связан весь объект. Впрочем, для встраивания можно выделить только часть объекта. Нельзя выбрать часть документа Word или растрового изображения, но можно выбрать часть рабочего листа Excel. Если выбрать блок ячеек, то значение свойства Sourceltem будет, например, таким "R1C1 R1C10". Хотя приложение OLERTime позволяет выбрать файл для операции встраивания, но метод перетащить-и-опустить им не поддерживается. Поэтому ячейка, содержащая значение свойства Sourceltem, будет пустой.<br><br> Если щелкнуть на кнопке Insert Object, то на экране появится окно, в котором пользователю будет предоставлена возможность выбора типов данных Можно выбрать<br><br> Linked (Связанный) или<br><br> Embedded (Внедренный). Также можно задать размер отображаемого объекта, установив свойство SizeMode в окне Properties (Свойства) элемента управления OLE Container. Возможны такие варианты:<br><br> •  "растянуть" окно элемента управления<br><br> OLE Container, чтобы подогнать его к размерам объекта (2-AutoSize);<br><br> •   "растянуть" объект, чтобы подогнать его к размерам контейнера (1-Stretch).<br><br> <br> Если пользователь выполнит щелчок на кнопке ОК, то в открывшемся диалоговом окне Insert Object (Вставка объекта) можно выбрать данные для вставки.<br><br> Вставьте командные кнопки, кнопки переключателей и рамки, изображенные на рис. 14.10. Добавьте следующий фрагмент в программу для обработчика нажатия кнопки Cancel.<br><br> <b>Программа 14.4.</b> Обработчик события Click для кнопки Cancel формы frmType<br><br> Option Explicit <br><br> Private Sub cmdCancel_Click()<br><br> Unload frmType <br><br> End Sub<br><br> Эта процедура закрывает приложение, выгружая форму frmType.<br><br> <b>Установка размера окна элемента управления OLE Container.</b> Если встраивание объектов в OLE Container происходит во время выполнения приложения, то нужно учитывать, что пользователь не может изменить размер окна элемента управления с помощью мыши. Объявим переменные OLEHeight и OLEWidth так, чтобы размеры окна элемента управления приравнивались значениям, введенным во время разработки. Чтобы непосредственно не указывать в программе значения высоты и ширины, можно использовать более гибкий способ — OLEHeight<br><br> и OLEWidth. Добавим следующие операторы в раздел объявления формы frmOLE.<br><br> Public OLEHeight As Integer <br><br> Public OLEWidth As Integer<br><br> и в обработчик события Load формы:<br><br> OLEHeight = oleDisplay.Height <br><br> OLEWidth = oleDisplay.Width<br><br> Теперь можно вернуться к форме frmType и добавить фрагмент, который позволяет организовать вызов диалогового окна Insert Object после установки опций пользователем.<br><br> <b>Программа 14.5.</b> Вызов диалогового окна Insert Object<br><br> Private Sub cmdOK_Click() <br><br> With frmOLE oleDisplay<br><br> .Height = frmOLE.OLEHeight <br><br> .Width = frmOLE.OLEWidth <br><br> End With <br><br> If opt3tretch0b]ect Value - True Then<br><br> frmOLE oleDisplay SizeMode - 1     ' Stretch<br><br> Else<br><br> frmOLE oleDisplay SizeMode = 2     ' AutoSize <br><br> End If<br><br> Добавление следующей строки позволяет скрыть форму.<br><br> FrmType Hide<br><br> В завершение, следующие операторы открывают диалоговое окно Insert Object и выполняют вставку объекта.<br><br> frmOLE.oleDisplay.InsertObjDlg <br><br> If frmOLE.oleDisplay.Class<b> <></b> "" Then<br><br> <br> frmOLE.cmd0b]lnfo.Enabled = True <br><br> End If <br><br> Unload frmType<br><br> Если объект вставлен, то становится доступной кнопка<br><br> Object Info. <br><br> InsertObjDIg - это метод элемента OLE Container, позволяющий выводить диалоговое окно Insert Object (Вставка объекта), для того чтобы пользователь мог создавать связанный или встроенный объект, выбирая его тип и приложение для создания объекта. Установки пользователя автоматически присваиваются значениям соответствующих свойств элемента управления OLE.<br><br> Чтобы изменить размер контейнера, выполните следующие действия.<br><br> <b>1</b>. Запустите приложение, а затем щелкните на кнопке Insert Object, чтобы отобразить диалоговое окно Object Type.<br><br> <b>2</b>. Щелкните на одной из кнопок Size Mode (Установка размера), а затем - на Object Type (Тип объекта). На экране появится диалоговое окно Insert Object (рис. 14.12).<br><br> Ниже приводится исходный текст формы frmOLE. Обратите внимание на обработчик события Resize элемента управления OLE Container. Если предусмотрена возможность изменения размеров элемента управления во время выполнения, то обработчик события Resize вызывается каждый раз, когда пользователь изменяет размеры окна. Событие Resize передает с помощью параметров HeightNew и WidthNew новые размеры окна элемента управления обработчику, который использует их для изменения размеров формы.<br><br> <b>Insert Object</b><br><br> <div style="text-align:center;"><img src="image/svjazyvanie-i-vstraivanie-obektov-vo-vremja_4.gif" alt="Связывание и встраивание объектов во время выполнения программы"></div><br><br> <b>Рис. 14.12.</b> В диалоговом окне Insert Object установлен переключатель Create from File и отображается путь к файлу данных<br><br> <b>Программа 14.6.</b> Форма frmOLE<br><br> Option Explicit<br><br> Private Sub cmdClose Click() <br><br>   Dim Quit As String<br><br>   Quit = MsgBox ("Are you sure you want to quit?" vbYesNo +     vbQuestion)<br><br>                 ' (Вы уверены, что хотите закрыть приложение?...)<br><br>   If Quit = vbYes Then<br><br>      End <br><br>   End If <br><br> End Sub<br><br> Private Sub cmdInsObj_Click()<br><br> frmType.Show <br><br> End Sub<br><br> Private Sub cmdObjInfo_Click() <br><br>      Dim SourceText As String <br><br> Dim TypeText As String <br><br> Dim MsgText As String<br><br> SourceText = "The object's source file is " + oleDisplay. SourceDoc<br><br> <br> ' (Файл объекта источника:...) <br><br> TypeText = " The type of object is " + oleDisplay.Class<br><br> ' (Тип объекта:...) <br><br> MsgText = SourceText + Chr(13) + TypeText<br><br> MsgBox MsgText, vblnformation, "Object Information"<br><br> '(Информация об объекте) <br><br> End Sub<br><br> Private Sub bttnLoad_Click() <br><br> Dim fnum As Integer<br><br> On Error GoTo LoadCancel<br><br> fnum = FreeFile<br><br> CommonDialogl.ShowOpen       ' Показать диалог Open File<br><br> Open CommonDialogI. FileName For Binary As #1    ' Открыть файл<br><br> oleDisplay.ReadFromFile (fnum)    ' Прочитать файл No.1<br><br> Close #fnum<br><br> Exit Sub <br><br> LoadCancel:<br><br> MsgBox "Could not load file"<br><br> ' (Файл не был загружен)<br><br> Close #fnum <br><br> End Sub<br><br> Private Sub bttnSave_Click() <br><br> Dim fnum As Integer<br><br> On Error GoTo SaveCancel<br><br> CommonDialogI.ShowSave       ' Показать диалог Save As<br><br> fnum = FreeFile<br><br> Open CommonDialogI.FileName For Binary As #1   ' Открыть файл<br><br> oleDisplay.SaveToFile (fnum)    ' Запись   в файл No. 1<br><br> Close ttfnum    ' Закрыть файл<br><br> Exit Sub <br><br> SaveCancel:<br><br> MsgBox "Could not save file"<br><br> ' (Файл не был сохранен)<br><br> Close #fnum <br><br> End Sub<br><br> Private Sub oleDisplay_Resize(HeightNew As Single, WidthNew As Single) <br><br> frmOLE.Width = oleDisplay.Left + WidthNew + 20 * _<br><br> Screen.TwipsРеrPixelX<br><br> frmOLE.Height = oleDisplay.Top + HeightNew + 80 * _<br><br> Screen.TwipsPerPixelY <br><br> End Sub<br><br>  <br><br> Программа 14.7. Форма frmType<br><br> Option Explicit <br><br> Private Sub cmdCancel_Click()<br><br> Unload frmType <br><br> End Sub<br><br> Private Sub cmdOK_Click() <br><br> With frmOLE.oleDisplay<br><br> .Height = frmOLE.OLEHeight<br><br> .Width = frmOLE.OLEWidth <br><br> End With <br><br> If optStretchObject.Value = True Then<br><br> .SizeMode = 1 <br><br> Else<br><br> .SizeMode = 2 <br><br> End If<br><br> If optTypeEmbedded.Value = True Then<br><br> frmOLE.oleDisplay.OLETypeAllowed = 1   ' Связывание <br><br> Else<br><br> frmOLE.oleDisplay.OLETypeAllowed = 0 ' Встраивание<br><br> End If<br><br> ' Скрыть форму frmType<br><br>   frmTipe.Hide <br><br> ' Вставка объекта <br><br>   frmOLE.oleDisplay.InsertOb]Dlg <br><br>   If frmOLE.oleDisplay.Class <> "" Then<br><br> frmOLE.cmdOb]Info.Enabled = True <br><br>   End If <br><br>  Unload frmType <br><br> End Sub<br><br> Можете попробовать встраивать различные объекты в окно элемента управления OLE формы OLERTime и редактировать их, выполняя на объекте двойной щелчок.<br><br> Вы увидите, что у элемента управления OLE Container все еще несколько расплывчатые края. Для встраивания или связывания объекта требуется время, поэтому иногда при переключении в режим редактирования панель инструментов приложения-сервера может оказаться невидимой. При программировании на Visual Basic встраивание объектов в элемент управления OLE Container используется достаточно редко. Позднее мы узнаем, как использовать автоматизацию OLE, чтобы заставить приложение-сервер выполнять требуемые действия и возвращать результаты VB-приложению.<br><br><br> <h1>Свойства элемента управления</h1> Data<br> К наиболее важным свойствам элемента управления<br> Data можно отнести свойства, перечисленные ниже.<br> <b>• DatabaseName (Имя базы данных).</b> Определяет используемую базу данных.<br> <b>•  RecordSource (Источник записей).</b> Определяет выбранную для использования часть базы данных.<br> В любой момент времени Data установлен на единственную строку (запись) в наборе RecordSet. Пользователь может перемещаться на другую запись с помощью кнопок перемещения, расположенных на элементе управления Data.<br> Каждый элемент управления TextBox связан с одним полем текущей строки. При установке Data на другую запись в RecordSet элементы TextBox обновляются. При изменении данных в TextBox новое значение записывается в базу данных, когда Data устанавливается на другую запись. Элемент управления TextBox соединен с полем в RecordSet с помощью Data и называется связанным с данными (он связан с полем в наборе записей RecordSet).<br> Ниже приведены наиболее важные свойства элементов управления, связанных с данными.<br> <b>•  DataSource (Источник данных).</b> Это имя элемента управления Data. Посредством этого имени элементы управления (например, TextBox и CheckBox) связываются с элементом Data. Другими словами, это имя элемента управления Data, с помощью которого связанные с данными элементы "видят" базу данных.<br> <b>•  DataField (Поле).</b> Это имя поля в наборе RecordSet, которое отображается и обновляется (в случае изменения) в элементе управления.<br> Примечание<br> Элемент управления TextBox, связанный с конкретным полем, называется связанным с данными. Существуют другие элементы управления, которые можно связывать с набором записей элемента управления Data. Чтобы предотвратить редактирование содержимого таблицы, используются элементы управления Label. Если таблица содержит логические поля (принимающие только значения True или False), то можно связывать их с элементами управления CheckBox (флажок). Некоторые общие элементы управления не связываются с данными. Например, элемент ListBox. Фирма Microsoft предоставляет его расширенную версию — связанный с данными ListBox, который автоматически заполняется значениями из столбца набора записей. Позже мы рассмотрим, как использовать эти элементы управления в приложениях.<br> <br> Можно устанавливать в окне свойств или использовать в тексте программ (с целью управления) следующие свойства элемента управления Data.<br> EOF (Конец файла).<br> Возвращает значение True или False, которое указывает, находится ли текущая позиция записи после последней записи в объекте RecordSet.<br> BOF (Начало файла).<br> Возвращает значение True или False, которое указывает, находится ли текущая позиция записи перед первой записью в объекте RecordSet.<br> BOFAction.<br> Устанавливает или возвращает значение, указывающее, какое действие должен произвести элемент управления Data, когда свойство BOF равно True. Эти действия перечислены в табл. 17.1.<br> Таблица 17.1. Значения, возвращаемые свойством BOFAction<br><table border=1><br> <tr> <td> Константа<br> </td> <td> Значение<br> </td> <td> Действие<br> </td> </tr> <tr> <td> vbBOFActionMoveFirst <br> VbBOFActionBOF<br> </td> <td> 0 <br> 1<br> </td> <td> Устанавливает управление на первую запись (значение по умолчанию). <br> Перемещает управление в начало RecordSet и устанавливает на несуществующую запись с одновременным вызовом события Validate элемента Data для первой записи. Далее показано, как обработать данную ситуацию.<br> </td> </tr> </table><br> EOFAction.<br> Устанавливает или возвращает значение, указывающее, какое действие должен произвести элемент управления Data, когда свойство EOF равно True (табл. 17.2).<br> ReadOnly.<br> Возвращает или устанавливает значение, определяющее, открыт ли объект RecordSet только для чтения.<br> RecordsetType.<br> Возвращает или устанавливает значение, задающее тип RecordSet, создаваемый Data. Может иметь одно из значений, приведенных в табл. 17.3.<br> Options.<br> Устанавливает одну или более характеристик объекта RecordSet. Возможные значения этого свойства приведены в табл. 17.4.<br> Таблица 17.2. Значения, возвращаемые свойством EOFAction<br><table border=1><br> <tr> <td> Константа<br> </td> <td> Значение<br> </td> <td> Действие<br> </td> </tr> <tr> <td> vbEOFActionMoveLast <br> vbEOFActionEOF<br> Vb EO FActionAddN ew<br> </td> <td> 0 <br> 1<br> 2<br> </td> <td> Устанавливает управление на последнюю запись (значение по умолчанию)<br> Перемещает управление в конец RecordSet и устанавливает на недействительной записи с одновременным вызовом события Validate элемента Data для последней записи. Позже рассмотрим, как обработать данную ситуацию<br> Добавляет новую пустую запись в RecordSet, которую пользователь может редактировать. Новая запись в базу данных записывается при переходе элемента управления Data на другую запись<br> </td> </tr> </table>< <br><br> <br> Таблица 17.3. Значения свойства RecordsetType<br><table border=1><br> <tr> <td> Константа<br> </td> <td> Значение<br> </td> <td> Описание<br> </td> </tr> <tr> <td> vbRSTypeTable vbRSTypeDynaset vbRSTypeSnapshot<br> </td> <td> 0 <br> 1<br> 2<br> </td> <td> Типа Table <br> Типа DynaSet (по умолчанию) <br> Типа SnapShot<br> </td> </tr> </table><br> Таблица 17.4. Значения свойства Options<br><table border=1><br> <tr> <td> Константа<br> </td> <td> Значение<br> </td> <td> Описание<br> </td> </tr> <tr> <td> dbDenyWrite<br> </td> <td> 1<br> </td> <td> В многопользовательской среде другие пользователи не могут изменить записи в RecordSet<br> </td> </tr> <tr> <td> DbDenyRead<br> </td> <td> 2<br> </td> <td> В многопользовательской среде другие пользователи не могут читать записи (Только для RecordSet типа Table)<br> </td> </tr> <tr> <td> DbReadOnly<br> </td> <td> 4<br> </td> <td> Пользователь приложения читает, но не может изменять записи в RecordSet<br> </td> </tr> <tr> <td> DbAppendOnly<br> </td> <td> 8<br> </td> <td> Пользователь приложения добавляет новые записи в RecordSet, но не может читать<br> </td> </tr> <tr> <td> </td> <td> </td> <td> существующие<br> </td> </tr> <tr> <td> Dblnconsistent<br> </td> <td> 16<br> </td> <td> Обновления применяется ко всем полям RecordSet, даже если они нарушают условие объединения (применяется к RecordSets, основанных на SQL-запросах)<br> </td> </tr> <tr> <td> DbConsistent<br> </td> <td> 32<br> </td> <td> Обновления применяются к полям, которые не нарушают условие объединения (применяется в RecordSets, основанных на SQL-запросах) (по умолчанию)<br> </td> </tr> <tr> <td> DbSQLPassThrough<br> </td> <td> 64<br> </td> <td> Когда используется элемент Data с SQL-оператором в свойстве RecordSource, передает SQL-запрос базе данных, поддерживаемой ODBC (например, SQL Server или Oracle)<br> </td> </tr> <tr> <td> DbForwardOnly<br> </td> <td> 256<br> </td> <td> Объект RecordSet поддерживает только прокрутку вперед. MoveNext — единственный разрешенный метод перемещения. Эта опция не используется в объектах RecordSet, управляемых элементом Data<br> </td> </tr> <tr> <td> DbSeeChanges<br> </td> <td> 512<br> </td> <td> Генерирует блокируемую (trappable) ошибку, если другой пользователь изменяет данные, которые вы редактируете<br> </td> </tr> </table><br> Bookmark. Свойство типа Variant, идентифицирующее строку в RecordSet. Каждая строка имеет собственную, уникальную закладку, которая не связана с порядком записей в RecordSet. Сохраните свойство Bookmark в переменной, чтобы можно было вернуться к этой записи, присвоив свойству Bookmark данную переменную.<br><br> <h1>Свойства модуля класса</h1> Несмотря на то, что свойства класса могут быть реализованы как общедоступные переменные, для доступа к ним Visual Basic предоставляет процедуры Property Let и Property Get. Для корректной реализации свойства класса необходимо добавить следующие процедуры:<br> Private m_IntProperty <br> Public Property Let IntProperty(newValue As Integer)<br> m_IntProperty = newValue <br> End Property<br> Public Property Get IntProperty() Аs Integer<br> IntProperty = m_IntProperty <br> End Property<br> Закрытая переменная m_IntProperty - это локальная копия значения свойства. Каждый раз, когда приложение устанавливает значение этого свойства, автоматически вызывается процедура Property Let и новое значение используется в качестве аргумента. Другими словами, строка<br> IntProperty = 100 <br> вызывает следующую процедуру класса:<br> Property Let IntProperty(100)<br> Назначение свойству некоторого значения приводит к вызову процедуры Property Let (имеющую то же имя, что и свойство). Код процедуры может проверить новое значение на допустимость и либо принять его (и присвоить его значение локальной переменной), или отвергнуть. Аналогично, когда приложение запрашивает значение свойства IntProperty, передается значение локальной переменной m_IntProperty.<br> В процедуру Property Let можно добавить любой необходимый код проверки корректности значения. Например, свойство Age (Возраст) может быть реализовано следующим кодом:<br> Private m_Age<br> Public Property Let Age(newValue As Integer) <br> Select Case newValue<br> Case < 0: m_Age = 0 <br> Case > 100 : m_Age = 100 <br> Else m Age = newValue <br> End Select <br> End Property<br> Public Property Get Age() As Integer<br> IntProperty = m_Age <br> End Property<br> Если в приложении определено неверное значение возраста, класс выполняет некоторые действия, которые впоследствии предотвращают серьезные ошибки. Объем программного кода проверки зависит от природы свойства, а его можно добавить столько, сколько будет необходимо.<br> Можно также принудительно вызвать ошибку изнутри процедуры Property Let, которая может быть обработана кодом приложения. Например, можно так реализовать свойство Age:<br> <br> Public Property Let Age(newValue As Integer) <br> If newValue < 0 or newValue > 100 Then <br> Err.Raise 1999, _<br> " Invalid Age. It must be greater than zero _<br> and less than 100"<br> ' (Неверное значение. Возраст должен быть  больше ' нуля и меньше 100) <br> Else<br> m_Age = newValue <br> End Property<br> Ошибка возвращается приложению, которое либо генерирует ошибку времени выполнения, либо обрабатывает ее.<br> Можно подумать об отображении сообщения с помощью функции MessageBox() внутри кода процедуры. Но это не очень хорошо по двум причинам.<br> 1. Окно сообщения может не отображаться на мониторе пользователя. Если класс находится на сервере и используется приложением удаленно посредством сети (или Internet), окно сообщения будет отображено на сервере, а не на компьютере клиента. Так как пользователь приложения не видит окно сообщения, у него нет возможности нажать кнопку ОК. и, как результат, приложение зависнет.<br> 2. Так как ошибка генерируется не кодом приложения, то нельзя выдать пользователю действительно точную информацию об ошибке. Возможно только общее сообщение типа "Пожалуйста, введите правильное значение". Это действие должно выполняться кодом приложения, и лучший способ реагирования на ошибки в классах - это выявить ошибки в вызывающем приложении и предоставить их обработку этому приложению.<br> Тем не менее, есть возможность отображать окна сообщений из кода класса или даже вывести всю форму или диалоговое окно с запросом к пользователю о вводе данных. Следует только помнить, что видимый интерфейс класса может стать невидимым, если класс выполняется удаленно.<br> Некоторые классы предоставляют свойства только для чтения. Самый простой способ реализации свойства только для чтения - опустить процедуру Property Let, как это было сделано с классом CTimer. Можно также инициировать ошибку времени выполнения, которую приложение может перехватить и действовать соответственно. Как вызвать ошибки внутри класса, описано далее в этой главе.<br><br> <h1>Свойства объекта TextStream</h1> Кроме перечисленных методов, объект TextStream имеет свойства, позволяющие определить местоположение указателя в текущем TextStream.<br> <b>AtEndOfLine.</b> Это свойство только для чтения. Возвращает значение True, если файловый указатель находится в конце строки объекта TextStream, в противном случае возвращается значение False. Свойство AtEndOfLine применимо к файлам, открытым для чтения. Позволяет организовать цикл посимвольного считывания строки из файла.<br> Do While TStream.AtEndOfLine = False <br> newChar = TStream.Read(1) <br> {обработка newChar} <br> Loop<br> Этот цикл считывает и обрабатывает символы из файла, заданного объектом TStream, пока не будет достигнут конец текущей строки.<br> <b>AtEndOfStream.</b><br> Свойство только для чтения, возвращающее значение True, если указатель файла достиг конца объекта TextStream. Это свойство применимо только к файлам, открытым для чтения. Следующий цикл позволяет использовать его для чтения всего файла построчно.<br> Do While TStream.AtEndOfStream = False <br> newLine = TStream.ReadLine <br> {обработка строки} <br> Loop<br> <b>Column.</b> Свойство только для чтения, возвращающее номер текущего символа в строке TextStream. Первый символ в строке имеет номер 1. Используйте это свойство для чтения данных, упорядоченных в колонки без знаков табуляции и других разделителей.<br> <b>Line.</b> Это свойство тоже только для чтения и возвращает номер текущей строки в TextStream. Свойство Line первой строки равно 1.<br> <b>VB6 в действии: проект MakeFile</b><br> Проект MakeFile (см. рис. 20.1) демонстрирует некоторые методы объекта TextStream. Это приложение создает текстовый файл и сохраняет в нем содержимое элемента управления Text Box. Затем открывает файл, считывает текстовые строки и отображает их на том же элементе управления Text Box.<br> <div style="text-align:center;"><img src="image/index-image141.gif" alt="Свойства объекта TextStream"></div><br> <b>Рис. 20.1.</b> Проект MakeFile: использование объекта TextStream для доступа к текстовому файлу<br>      Чтобы создать приложение, выполните следующие действия.<br> <b>1</b>.  Откройте новый Standard ЕХЕ-проект.<br> <b>2</b>.  Добавьте ссылку на компонент FileSystemObject.<br> <b>3</b>.  Откройте диалоговое окно References и выберите компонент Microsoft Scripting       Runtime.<br> <br> 4.  Добавьте следующие объявления в окно Code формы:<br> Dim FSys As New FileSystemObject<br> Областью видимости переменной FSys<br> является форма, поэтому она доступна из всех процедур.<br> 5. Поместите элементы управления, показанные на рис. 20.1, на форму и введите код, приведенный в программе 20.1., в обработчики события Click обеих командных кнопок.<br> Кнопка Create File считывает текст из элемента управления TextBox и записывает его в файл C:\TEXTFILE.TXT текущего каталога. Для записи текста в файл создается объект TStream.<br> Программа 20.1. Код обработчика события Click кнопки Create File<br> Private Sub bttnCreateFile_Click() <br> Dim OutStream As TextStream<br> TestFile = App.Path & "\textfile.txt"<br> Set OutStream = FSys.CreateTextFile(TestFile, True, False)<br> OutStream.WriteLine Text1.Text <br> Set OutStream = Nothing <br> End Sub<br> Щелчок на второй кнопке позволяет считывать содержимое этого файла с помощью другого объекта TextStream. В дополнение к тексту из файла, она выводит строки для выделения считанного из файла текста.<br> Программа 20.2. Код обработчика события Click кнопки Read File<br> Private Sub bttnReadFile_Click() <br> Dim InStream As TextStream<br> TestFile = App.Path & "\textfile.txt"<br> Set InStream = FSys.OpenTextFile(TestFile, 1, False, False)<br> While InStream.AtEndOfStream = False<br> TLine = InStream.ReadLine<br> txt = txt & TLine & vbCrLf <br> Wend <br> Text1.Text = "The following text was read from the file" & vbCrLf<br>   '(Следующий текст был считан из файла...) <br> Text1.Text = Text1.Text & vbCrLf & String(50, "*") <br> Text1.Text = Text1.Text & vbCrLf & txt <br> Text1.Text = Text1.Text & vbCrLf & String(50, "*") <br> Set InStream = Nothing <br> End Sub<br> Переменная<br> FSys представляет файловую систему. InStream<br> и OutStream - объекты TextStream, методы которого WriteLine и ReadLine использовались для записи и чтения отдельных строк файла. После записи строк в файл обе переменные устанавливаются в Nothing, чтобы освободить выделенные им ресурсы (по сути, эти операторы закрывают файл).<br>Строки файла читаются в цикле While...Wend, который проверяет значение свойства AtEndOfStream объекта TextStream, чтобы выяснить, сколько строк нужно прочитать из файла.<br> While InStream.AtEndOfStream = False <br> TLine = InStream.ReadLine<br> {обработка переменной TLine} <br> Wend<br> На каждой итерации цикла переменная TLine<br> получает из файла очередную строку текста.<br><br> <h1>Свойства объекта</h1> Wscript<br> Объект Wscript в дополнение к свойству Arguments имеет и другие свойства. Они относятся к программе, управляющей выполнением сценария (WSCRIPT.EXE) и, собственно, к исполняемому сценарию.<br> <b>Application.</b><br> Возвращает синоним имени объекта Wscript - строку "Windows Scripting Host" (аналогичное значение возвращается свойством Name).<br> <b>FullName.</b><br> Возвращает путь и имя программы, управляющей выполнением сценария (WSCRIPT.EXE).<br> <b>Name.</b> Возвращает синоним имени объекта Wscript — строку "Windows Scripting Host".<br> <b>Path.</b> Возвращает имя папки, в которой находится WSCRIPT.EXE или CSCRIPT.EXE (обычно c.\windows).<br> <b>ScriptFullName.</b><br> Возвращает путь и имя сценария, выполняемого WSCRIPT.EXE.<br> <b>Version.</b> Возвращает версию WSCRIPT.EXE. Версия, поставляемая с Windows 98 - 5.0.<br> <b>ScriptName.</b><br> Возвращает имя сценария, выполняемого WSCRIPT.EXE. Сценарий WSCRIPT.VBS демонстрирует некоторые из этих свойств. На рис. 20.9 показан результат его работы.<br> <b>Программа 20.15.</b> Сценарий WSCRIPT.VBS<br> msg = "Script File Name " & Wscript.ScriptName & vbCrLf<br> msg = msg & "Script Path Name   " & Wscript.ScriptFullName & vbCrLf<br> msg = msg & "Executed by   " & Wscript .Application & " (version " & _<br> Wscript.Version & ")" & vbCrLf <br> MsgBox msg<br> <div style="text-align:center;"><img src="image/index-image150.gif" alt="Свойства объекта"></div><br> <b>Рис. 20.9.</b> Результат работы сценария WSCRIPT.VBS<br> <br> Решение этой проблемы состоит в использовании свойства<br> Cookie (Заготовка) объекта Document - строки, которая может быть сохранена на клиентском компьютере. Cookie совершенно безопасны, потому что это текстовые файлы, которые записываются на диск, читаются с диска броузером и располагаются в специальной папке. Это не исполняемые файлы (никакой угрозы для остальной части файловой системы они не представляют), и к ним можно обратиться только при помощи броузера. Свойство Cookie не может заменить файловый ввод-вывод, но позволяет сохранить фрагмент информации на клиентском компьютере, чтобы в следующий раз при исполнении сценария он смог найти там информацию.<br> Информация, сохраненная на клиентском компьютере посредством<br> Cookie, ограничена. Нельзя сохранять большие файлы с текстом или числами. Но можно сохранить информацию о настройках: имя пользователя и имена наиболее часто используемых страниц, чтобы (когда пользователь запросит ту же страницу) прочитать значения, сохраненные на клиентском компьютере в прошлый раз, и настроиться самостоятельно на пользователя.<br> Примечание<br> Наиболее общим применением Cookie является сохранение данных настройки.<br> Другая причина использования Cookie - предоставление нескольким страницам возможности совместного использования некоторой информации. Корзина покупателя - типичный тому пример. Сфера действия сценария, как известно, ограничена одной страницей. Если страница со сценарием загружает другую страницу, то первоначальный сценарий прекращает существование. Сценарий, загруженный с новой страницы, перехватывает управление. Некоторые узлы позволяют выбирать "товар для покупки" с различных страниц, сохраняя при этом ссылку на уже приобретенный товар, находящийся в покупательской корзине. Если каждая страница -отдельный объект, и страницы не могут совместно использовать информацию, то как это реализовать?<br> Ответ - свойство Cookie объекта Document. Когда страница передает некоторую информацию другим страницам, она может оставить свойство Cookie на клиентском компьютере. Страница, которая нуждается в информации, считывает ее. У пользователя создается впечатление, что различные страницы обмениваются информацией как формы приложения, аналогично формам в Visual Basic.<br><br> <br> VB6 в действии: страница Cookie<br> Чтобы сохранить строку в системе клиентского компьютера и иметь доступ к ней из другой страницы или доступ при следующем открытии, используется свойство Cookie. Страница Cookie (рис. 21.8) является измененной страницей Pagel. На этот раз запрашивается имя пользователя, которое сохраняется в свойстве Cookie объекта Document. При следующем открытии страницы имя пользователя появляется автоматически.<br> Чтобы проверить страницу Cookie, необходимо установить Web-сервер. Открытие страницы Cookie с помощью Internet Explorer не дает результата. Страницы Cookie сохраняются на клиентском компьютере броузером, если они созданы сервером Можно использовать любой Web сервер, например Frontpage Web-сервер или Personal Web Server.<br> <div style="text-align:center;"><img src="image/index-image163.gif" alt="Свойства объекта"></div><br> Рис. 21.8. Свойство Cookie объекта Document: настройка страниц<br> Совет<br> Personal Web Server является частью Frontpage и Internet Explorer 4. Также он доступен на Web-узле Microsoft (http://www.microsoft.com/sitebuilder).<br> Для проверки этого примера использовался Frontpage Web сервер (работающий как Personal Web Server). Для экспериментов со свойством Cookie выполните следующие действия.<br> 1. Скопируйте файл Cookies.htm с компакт-диска в папку Cookie в корневом каталоге на сервере.<br> 2. Переименуйте его в Index.htm.<br> 3. Запустите Frontpage Web-сервер или любой другой сервер, установленный в системе (если он еще не загружен).<br> 4. Запустите Internet Explorer и соединитесь с URL.<br> http://127.0.0.1/Cookie<br> Символы 127.0.0.1 — IP-адрес локального сервера, a Cookie — имя папки, в которую скопирован узел (содержащий одну страницу).<br> 5. Когда появится запрос на ввод имени, сценарий отобразит его на странице и сохранит в свойстве Cookie объекта Document.<br> 6. Соединитесь с другим URL, введя его в поле Address окна просмотра.<br> 7. Щелкните на кнопке Back, чтобы возвратиться к странице Cookie. На этот раз не придется вводить имя. Оно уже хранится в свойстве Cookie.<br> Теперь рассмотрим сценарий страницы Cookies.htm.<br> Программа 21.8.<br><br> <br> Документ<br> Cookies.htm<br> <HTML><br> <head> <link rel="canonical" href="https://www.e-lave.ru//index.htm"/><br> <TITLE>Cookie Demo Page</TITLE><br> <SCRIPT LANGUAGE="VBSCRIPT"><br> If Document.Cookie = " " Then<br> UserName = InputBox ("Please enter your name")<br> ' (Введите, пожалуйста, ваше    имя)<br> document.cookie = UserName <br> Else<br> UserName = Document.Cookie <br> End If<br> Document.write "<Hl> Welcome to our Active Pages, " & <br> UserName & "</H1>"<br> ' (Добро пожаловать на наши активные страницы) <br> Document.write "<BR>"<br> Document.write "This page was opened on " & date() & ", <br> at " & time ()<br> ' (Эта страница была открыта) <br> Document.write "<BR>"<br> Document.write "The document's cookie is: " & Document.cookie <br> ' (Свойство Cookie документа:)<br> </SCRIPT><br> </HEAD><br> <BODY><br> </BODY> <br> </HTML><br> If-структура сценария проверяет значение свойства Cookie. Если это свойстве не имеет значения, то запрашивается имя пользователя. Затем введенное пользователем имя сохраняется в свойстве Cookie.<br> Свойство Cookie имеет значение при следующем подключении к этой странице и выполняется структура Else, которая присваивает свойству Cookie значение переменной UserName. Остальная часть кода такая же, как на странице Pagel кроме последнего метода Write, который отображает текущее значение свойстве Cookie на странице.<br> Такое использование свойства Cookie не является привычным. Cookies обычно сохраняются в виде пар имен и значений, разделенных точкой с запятой. Более разумно присвоить Cookie следующее значение.<br> "UserName = Cibil; Age = 24; Browser = IE3.02"<br> Как видите, можно сохранять много значений переменных, но методы длх чтения значения одной переменной отсутствуют. Необходимо считывать век заготовку, а затем использовать функции работы со строками<br> (InStr(), Mid() и другие), чтобы изолировать каждую пару и извлечь имя переменной и ее значение.<br> Срок действия заготовок<br><br> <br> Заготовки имеют дату окончания действия. Если не определить дату окончания (дата окончания действия не использовалась в примере<br> Cookie), то действие свойства Cookie оканчивается после завершения текущего сеанса. Чтобы запустить новый сеанс, необходимо выключить Web-сервер и запустить его снова. Закрытие и перезапуск Internet Explorer не запускает новый сеанс.<br> Для задания даты окончания добавьте следующую строку в Cookie.<br> expires = Thu, 01 Jan 1998 12:00:00 GMT <br> Эта строка добавляется в Cookie следующим образом.<br> Document.cookie = UserName s & expires = Thu, 01 Jan 1998 <br> 12:00:00 GMT"<br> Заготовки с датами окончания хранятся на диске в виде текстовых файлов, которые можно просматривать обычным текстовым редактором. Заготовки для каждого Web-узла хранятся в папке Cookies папки Windows.<br> Anchor (Привязка). Anchor - свойство объекта Document. Подобно другим свойствам, оно является объектом. Свойство Length объекта Anchor<br> возвращает число привязок в документе. Индивидуальные привязки сохранены в массиве привязок, к которым, как к элементам массива, можно обратиться, используя индексы. Имя первой привязки в документе - Anchor(O) (это значение атрибута NAME тега <А>, который вставил привязку в документ), Anchor(l) - вторая привязка и т.д. Следующие операторы отображают число привязок в текущем документе в окне сообщения.<br> TotalAnchors = Document.Anchors.Length<br> MsgBox "The document contains "& TotalAnchors & "anchors" <br> ' (Документ содержит... привязок)<br> Можно просмотреть все привязки в документе с помощью следующего цикла.<br> For i=0 to TotalAnchors-1<br> ThisAnchor = Document.Anchors(i)<br> {какие-либо операции с привязкой} <br> Next<br> Просматривать привязки текущего документа из раздела сценария того же документа не практично. Но можно открыть другой документ во фрейме и обратиться к привязкам фрейма через массив Frame(l). Document. Anchors. Еще один пример дан в примерах DocumentLinks этой главы.<br> link (Ссылка). Подобно свойству Anchor, но в отличие от него, задает гиперсвязи в текущем документе. Подобно массиву привязок, массив связей является свойством объекта Document и единственным объектом, содержащим связи. Основное свойство объекта Link - свойство Length, которое возвращает число связей в документе.<br><br> <br> Каждая связь — это элемент массива Links. Первая связь — Links (0), вторая — Links (1) и т.д. В связи с тем, что гиперсвязи в документе - адресаты, свойства объекта Link идентичны свойствам объекта Location, но доступны только для чтения.<br> Чтобы получить число связей в документе, отображаемом в окне броузера, необходимо использовать следующее выражение.<br> Window.Document.Links.Length<br> Для просмотра гиперсвязи в документе и исследования ее адресатов используют цикл, подобный следующему.<br> For i = 0 to Window.Document.Links.Length - 1<br> {обработка гиперсвязи} <br> Next<br> При каждой итерации цикла текущая гиперсвязь задается следующим выражением.<br> Window.Document.Links(i).href.<br> lastModified (Дата модификации). Это свойство возвращает дату последнего изменения текущего документа. Можно использовать свойство lastModified объекта Document, чтобы отобразить дату и время последнего изменения. При этом нет необходимости изменять код непосредственно в документе.<br> Referrer (Указатель).<br> Это свойство возвращает URL ссылающегося документа.<br><br> <h1>Свойства объектов</h1> Scripting<br> Window - объект верхнего уровня - является контейнером для всех других объектов. Объект Window задает окно просмотра броузера, в котором отображаются HTML-документы. Его свойства: имя и сообщение, отображаемое в его строке состояния. Чтобы обратиться к свойству Name объекта Window, используется следующий оператор.<br> win_new = Window.Name<br> Можно использовать переменную win_new в коде приложения для ссылки на окно. Например, можно выполнить отображение другого документа в окне win_new. Для отображения сообщение в строке состояния броузера используют следующий оператор.<br> Window.Status = "Welcome to our Fabulous Site"<br> ' (Добро пожаловать на наш прославленный сайт)<br> Можно использовать функции VBScript при выводе строки состояния, например, функции даты и времени.<br> Window. Status = "Welcome to our Fabulous Site" & "It is " & _<br> date & " and the time is " & time <br> ' (Добро пожаловать на наш прославленный сайт... ' дата: ... время: ...)<br> Объект Document позволяет обратиться к свойствам и методам документа, отображаемого в окне броузера. Два наиболее часто используемых свойства объекта Document — цвет фона (свойство bgColor) и цвет символа (fgColor). Чтобы заменить цвет фона документа белым, используйте следующий оператор.<br> Window.Document.bgColor = white<br> Объект Document имеет свойства, которые сами являются объектами. Один из них - Location - предоставляет доступ к свойству, определяющему место расположения документа. URL документа в окне броузера задан свойством hRef объекта Location. Можно узнать URL активного документа или установить это свойство на URL другого документа. К свойству hRef объекта Location обращаются посредством следующего выражения.<br> Location.href<br> Объект Location является свойством объекта Document. К нему нужно обращаться следующим образом.<br> Document.Location.href<br> Поскольку объект Document является свойством объекта Window, то полное выражение для доступа к URL документа следующее.<br> <br> Window.Document.Location.href<br> Это выражение длинное, но простое. Первый объект уровня - Window. Следующие объекты расположены ниже в иерархии. Организация объектов Scripting в иерархию упрощает синтаксис методов и свойств.<br> Окно также может содержать фреймы. К фреймам обращаются через объект Frames, являющийся массивом объектов. Первый фрейм - Frame(O), второй -Frames(l) и т.д. Чтобы обратиться к документу в нужном фрейме, начинают с объекта Window и определяют фрейм, содержащий документ. Обращение ко второму фрейму имеет вид:<br> Window.Frames(1)<br> Каждый фрейм воспроизводит иной документ, следовательно, имеет собственное свойство Document. Чтобы обратиться к свойствам документа второго фрейма, используют следующее выражение.<br> Window.Frames(1).Document<br> Как установить цвет фона документа? Добавьте имя свойства bgColor в конце предыдущего выражения.<br> Window.Frames(1).Document.bgColor<br> Как видим, многие объекты и1иеют одноименные свойства. Окно имеет собственный объект Document и свойство Location. Но если окно содержит фреймы, то каждый фрейм в окне имеет собственное свойство Location.<br><br> <h1>Свойство экземпляра класса</h1> Как можно заметить, классы имеют несколько свойств. В этой главе обсуждаются только два из них: свойство Name (Имя) и свойство Instancing (Экземпляр). Свойство Instancing определяет, где и как приложения могут использовать класс. Здесь обсуждаются его шесть возможных значений.<br> <b>Private</b><br> Закрытые объекты доступны только компонентам из этого же приложения. При разработке класса, который не будет использоваться в других проектах или не нужно делать его доступным для других разработчиков, установите свойство Instancing в Private<br> <b>SingleUse</b><br> Эта установка применима только к программным компонентам ActiveX EXE. Сервер ActiveX EXE — это исполняемый файл (приложение), который может обслуживать одного или более клиентов. Если свойство Instancing проекта сервера установлено в SingleUse, то для каждого клиента, который вызывает объекты класса, запускается новый экземпляр сервера. Такая установка является неэффективным методом создания и использования объектов, и ее обычно избегают. Если для каждого клиента нужен новый экземпляр сервера, то используется сервер, организованный в виде компонента ActiveX DLL.<br> <b>MultiUse</b><br> Эта установка противоположна Private и может использоваться только с программными компонентами. Это позволяет одному экземпляру сервера обеспечивать столько объектов, сколько их требуется клиентским приложениям. По умолчанию в каждом вновь создаваемом проекте ActiveX EXE или ActiveX DLL свойство Instancing установлено в MultiUse.<br> <b>GlobalSingleUse</b><br> Это значение создает глобальный объект со свойством SingleUse. Если вы собираетесь использовать глобальный объект, создайте его со значением SingleUse свойства Instancing, чтобы все клиенты, вызывающие его, могли быть обслужены одним сервером. Это свойство доступно как в компонентах ActiveX EXE, так и ActiveX DLL.<br> <b>GlobalMultiUse</b><br> Эта установка доступна как в проектах ActiveX EXE так и ActiveX DLL, но ее следует использовать как можно реже. Объекты представленные компонентом со свойством GlobalMultiUse, доступны всей системе и могут использоваться любым приложением так, как если бы это были системные компоненты. Visual Basic предусматривает общесистемные объекты, называемые глобальными объектами. Например, объекты Screen (Экран) и Printer (Принтер) являются глобальными, поскольку не нужно добавлять на них ссылки в приложениях, которые их используют. Если имеется объект, о котором важно знать остальной части системы (а не только приложениям, которые его используют) то установите свойство Instancing в GlobalMultiUse.<br> <br> <b>PublicNotCreatable</b><br><br> Объекты класса с этим значением свойства Instancing могут быть доступны из других приложений, но не могут быть созданы. Что это значит? Объекты класса PublicNotCieatable должны быть вначале созданы другим компонентом в этом же объекте а затем могут быть доступны через объекты этого компонента. Например, если есть класс, который реализует операции с базой данных, один из объектов, предоставляемых классом представляет собой базу данных. Другой объект в проекте представляет собой таблицу в базе данных. Если разрешить разработчику непо средственныи доступ ко второму объекту, то он может попытаться открыть таблицу минуя открытие базы данных. Но если создать класс, который предоставляет объект Database (База данных) как MultiUse, и класс который выставляет объект Table (Таблица) как PublicNotCreatable, то тогда, сделав ссылку на объект, который представляет таблицу, как только открывается база данных, разработчик получит прямой доступ к объекту Table, но только после его создания.<br><br> Остальные свойства объекта класс описаны коротко и не используются в этой книге.<br><br> <b>•  DataBindingBehavior.</b> Определяет, будет ли класс работать как потребитель данных (класс, который соединяется с базами данных и поставляет записи и/или поля записей ведущему приложению).<br><br> <b>•  DataSourceBehavior.</b> Определяет, будет ли класс работать как источник данных (т е. другие классы из элементов управления могут быть привязаны к этому классу).<br><br> <b>•  MTSTranslationMode.</b> Позволяет определить, будет ли класс поддерживать Microsoft Transaction Server. Эта установка используется для классов, которые предполагается выполнять на сервере и которые будут одновременного выполнять несколько транзакций. Если одна из транзакций не отрабатывается, то все они отменяются.<br><br><br> <h1>Таблицы</h1> Таблицы являются незаменимым инструментом организации и представления данных. В HTML-документах таблицы используются по тем же причинам, что и в любых других документах. Возможно, имеется еще одна причина, по которой таблицы используются в HTML-документах — это выравнивание элементов на странице. Ячейки таблицы могут содержать текст, гиперссылки или изображения, и можно использовать ячейку для выравнивания содержимого на странице способом, который невозможен непосредственно в HTML или другой таблице. Можно использовать таблицы без обрамления: никто не поймет, как достигнут такой удивительный результат в искусстве графического оформления.<br> <b>Основные табличные теги</b><br> Каждая таблица начинается тегом <TABLE> и заканчивается тегом </TABLE>. Атрибуты тега <TABLE> позволяют задать обрамление таблицы, ширину, расстояние между ячейками, между содержимым ячейки и ее границей. Можно задать ширину и высоту таблицы в пикселях или в процентном соотношении к размеру полного экрана.<br> Внутри тега <TABLE> каждая строка таблицы отмечается тегом <TR>. Отключающий тег </TR> не обязателен. Каждая ячейка строки отмечается тегом <TD>, а комплементарный ему тег </TD> также необязателен. Ниже приводится структура простой таблицы. Если создать HTML-файл со следующими строками и открыть его броузером, то можно увидеть элементы в таблице без каких-либо линий вокруг них.<br> <HTML><br> <TABLE><br> <TR><br> <TD> Row 1, Column 1 </TD><br> <TD> Row 1, Column 2 </TD><br> <TD> Row 1, Column 3 </TD> <br> </TR> <br> <TR><br> <TD> Row 2, Column 1 </TD><br> <TD> Row 2, Column 2 </TD><br> <TD> Row 2, Column 3 </TD> <br> </TR> <br> <TR><br> <TD> Row 3, Column 1 </TD><br> <TD> Row 3, Column 2 </TD><br> <TD> Row 3, Column 3 </TD> <br> </TR> <br> </TABLE> <br> </HTML><br> <b>Строки заголовка и данных</b><br> Можно использовать тег <ТН> вместо тега<br> <TR> для обозначения строки, являющейся заголовком таблицы. Следующий код HTML создает простую таблицу из двух строк, одна из которых отформатирована в виде заголовка.<br> <br> <TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1><br> <TR><br> <TH> Heading 1<br> </TH><br> <ТН> Heading 2<br> </ТН><br> </TR><br> <TR><br> <TD>Cell 1<br> </TD><br> <TD>Cell 2<br> </TD><br> </TR><br> </TABLE><br> Атрибуты CELLSPACING и CELLPADDING тега <TABLE> определяют расстояние между ячейками, следующими одна за другой, и пространство между содержимым каждой ячейки и ее границами. По умолчанию каждая ячейка создается достаточно большой для размещения ее содержимого. Использование атрибута CELLPADDING задает дополнительное пространство вокруг содержимого ячейки.<br> Выравнивание содержимого ячейки<br> Атрибуты ALIGN и VALIGN задают выравнивание содержимого ячейки. Атрибут ALIGN используется для горизонтального выравнивания. Он принимает значения LEFT (Влево), CENTER (По центру) или RIGHT (Вправо). Атрибут VALIGN задает вертикальное выравнивание и может принимать значения ТОР (Вверх), MIDDLE (По середине) и BOTTOM (Вниз). По умолчанию принимается выравнивание LEFT (по горизонтали) и MIDDLE (по вертикали).<br> Большинство средств выравнивания, вставки пробелов и размещения содержимого внутри ячеек таблицы представляют прекрасные возможности форматирования документов, которые, обычно, не создаются в виде таблиц. В HTML есть несколько эффектов, которые нельзя получить без использования таблиц.<br> Ширина таблицы<br> Во всех рассмотренных примерах ширина таблицы устанавливалась по умолчанию и определялась индивидуальным содержимым ячеек. Если колонка очень широкая, то броузер размещает ее содержимое в нескольких строках, чтобы все колонки были видны. Можно задать ширину таблицы атрибутом<br> WIDTH тега <TABLE>. Таблица, определенная следующим образом<br> <TABLE WIDTH=50%><br> занимает половину ширины окна. Если не отцентрировать таблицу атрибутом CENTER, она будет выравниваться по левому краю окна броузера. Таблица, определенная следующим образом<br> <TABLE WIDTH=200><br> имеет ширину 200 пикселей независимо от ее содержимого и/или размера окна. Если ширина окна менее 200 пикселей, то часть таблицы будет невидима. Чтобы отобразить на экране часть таблицы, находящуюся за пределами окна, необходимо использовать горизонтальную прокрутку.<br><br> <br> Ячейки с несколькими строками и столбцами<br> Как правило, таблицы не содержат строки и столбцы одинакового размера. Некоторые строки содержат ячейки, которые несколько выше и шире других, а некоторые столбцы — несколько строк (рис. 19.4). Эти ячейки используют атрибуты ROWSPAN и COLSPAN, позволяющие создавать действительно сложные таблицы. Атрибуты ROWSPAN и COLSPAN появляются между тегами <TD> и </TD> и объединяют текущую ячейку с одной или более смежными ячейками той же строки (атрибут COLSPAN) или столбца (атрибут ROWSPAN). Количество смежных ячеек, соединенных с текущей, является значением атрибутов ROWSPAN и COLSPAN.<br> <div style="text-align:center;"><img src="image/index-image130.gif" alt="Таблицы"></div><br> Рис. 19.4. Ячейки таблицы могут включать несколько строк и столбцов<br> Таблица (см. рис. 19.4) была создана приведенным ниже HTML-кодом. В него добавлен атрибут COLSPAN в соответствующий тег <TD> — распространение некоторых ячеек первой строки на два столбца, и атрибут ROWSPAN — распространение некоторых ячеек первого столбца на несколько строк. В остальном — эта таблица проста.<br> <HTML><br> <head> <link rel="canonical" href="https://www.e-lave.ru//index.htm"/><br> <TITLE>ROWSPAN - COLSPAN Examples</TITLE><br> </HEAD><br> <BODY><br> <CENTER><br> <TABLE BORDER><br> <CAPTIONXB>ROWSPAN & COLSPAN Demo</BX/CAPTION><br> <TR><br> <TD COLSPAN=2 ROWSPAN=2 >Source:<BR>1991 Census</TD><br> <TH COLSPAN=2>Average</TH> <br> </TR><br> <TR><br> <TH>Height</TH><br> <TH>Weight</TH> <br> </TR> <br> <TR><br> <TH ROWSPAN=2>Gender</TH><br> <TH>Males</TH><br> <TD>5.83</TD><br> <TD>195.5</TD> <br> </TR> <br> <TR><br> <TH>Females</TH><br> <TD>5.22</TD><br> <TD>167.8</TD> <br> </TR> <br> </TABLE> <br> </CENTER> <br> </BODY><br> </HTML><br><br> <h1>Тег</h1> <DIV><br> Internet Explorer воспроизводит HTML-документы за один проход с начала документа до конца. В результате броузер не может переместиться назад и разместить один элемент поверх другого. Например, в HTML нельзя поместить заголовок поверх изображения. После того как изображение воспроизведено в окне броузера, нельзя вернуться на шаг назад и поместить текст поверх него.<br> Это ограничение можно устранить при помощи тега<br> <DIV>, который позволяет разбивать документ на отдельные части, размещаемые на странице. Тег <DIV> в DHTML достаточно значителен он позволяет прерывать документ на элементах (или объектах) и управлять каждым из них по отдельности. Рассмотрим обманчиво простой пример. Страница STYLES HTM (рис. 19.10) выглядит так, как будто текст был помещен поверх фонового изображения.<br> <div style="text-align:center;"><img src="image/index-image137.gif" alt="Тег"></div><br> <b>Рис. 19.10.</b> Страница STYLES.HTM<br> Если открыть этот документ в текстовом редакторе, то можно увидеть, что он содержит две части, каждая из которых ограничена тегом<br> <DIV>. Первый тег <DIV> содержит строку, которая накрывает мозаикой фон документа. Второй тег <DIV> - это текст, который отображается поверх фона. Две части документа накладываются друг на друга, потому что тег <DIV> позволяет задавать их абсолютную позицию.<br> Документ содержит следующие описания стилей.<br> <STYLE><br> Hl.LargeText (color: '#DODODO'; font-family: "Verdana"; font-size: 500%)<br> </STYLE><br> Этот стиль является вариантом заголовка <Н1>. Он использует очень большой шрифт и светло-серый цвет (немного светлее, чем серебристый цвет фона). Фоновый узор на печатной странице почти незаметен. Чтобы его увидеть, нужно открыть страницу STYLES.HTM. Вообще, фон не должен быть сложным. В противном случае текст поверх фона буден трудно читаемым.<br> Первый тег <DIV>, который создает фон, определяется таким образом.<br> <DIV STYLE = "position: absolute; left: 20"><br> <H1 CLASS = LargeText>VB6 VB6 VB6 VB6 VB6 VB6 <br> </DIV><br> Позиция этой части документа задается в абсолютных координатах и размещается на расстоянии 20 пикселей от левого края окна<br> <br> Internet Explorer. Для размещения текста поверх первой части надо использовать другой тег <DIV> с такой же привязкой Зададим ей следующее определение.<br><br> <DIV STYLE = "position: absolute; left: 20"> <br><br> </DIV><br><br> Здесь пропущено реальное содержание этой части. Все, появившееся между тегами <DIV>. воспроизводится поверх текущего содержимого окна Internet Explorer. Можно открыть документ STYLES.HTM и изучить его код.<br><br> Теги <STYLE> и <CLASS> расширяют HTML и позволяют Web-разработчику управлять свойствами HTML-элементов и задавать их положение на странице. Эти два тега первыми ознаменовали отход от прямолинейной (и статической) HTML-модели. DHTML предоставляет возможности для программного управления стилями. Тогда как тег <CLASS> позволяет переопределять существующий тег, тег <DIV> позволяет применять атрибуты части документа целиком DHTML улучшает эту возможность: он позволяет управлять цветом фона из сценария, даже после того, как документ воспроизведен броузером.<br><br><br> <h1>Терминология</h1> OLE<br> Обычно в этом месте книги приводится несколько примеров, в которых рассматривается применение изученных ранее объектов. Мы же прежде рассмотрим некоторые термины OLE, использующиеся в этой главе. В OLE существует собственная терминология. Вы можете сразу не понять все описанные ниже термины, но они будут пояснены позже с помощью примеров.<br> <b>OLE-объект</b><br> OLE-объект - это объект, который делается доступным для других приложений с помощью приложения-сервера OLE. Приложение-сервер OLE делает доступными объекты различных типов (или классов). OLE-объекты используются в приложениях-контейнерах (container applications). На рис. 14.1 показано, как приложение Excel (в данном случае оно является приложением-сервером) делает доступной электронную таблицу (OLE-объект), которую можно вставить в документ Word (приложение-контейнер).<br> <div style="text-align:center;"><img src="image/terminologija_1.gif" alt="Терминология"></div><br> <b>Рис. 14.1.</b> Таблица Excel, встроенная в документ Word<br> <b>Приложение-сервер</b><br> Это приложение, функциональные возможности которого доступны для приложения, разработанного в Visual Basic. Когда вашей программе требуется отредактировать документ, созданный приложением-сервером, она просто устанавливает связь, и приложение-сервер используется для редактирования.<br> <b>Приложение-контейнер</b><br> Это приложение, которое содержит OLE-объекты. Объекты могут быть связаны (linked) или встроены (embedded). Сам по себе, контейнер также является объектом. Примером контейнера может служить форма (FRM) - объект, содержащий элементы управления. О контейнере говорят как о клиенте (client), потому что он использует средства OLE-сервера для получения доступа к объектам. В примере, показанном на рис 14.1, Excel является приложением-сервером, a Word — приложением-контейнером.<br> <b>Встраивание объекта</b><br> Используя встраивание (часто называют внедрение),<br> можно вставить объект из одного приложения (приложения-сервера) в другое (приложение-контейнер). Встроенный объект является копией оригинала, им можно манипулировать независимо от оригинала. Например, можно внедрить блок ячеек из таблицы Excel в документ Word. Для редактирования содержимого ячеек достаточно выполнить на них двойной щелчок, что приведет к вызову самой программы Excel. Если приложение-контейнер позволяет выполнять редактирование на месте (in-place editing), то меню Excel появится прямо в нем (см. параграф "Оперативное редактирование").<br> <br> <b>Связывание объекта</b><br><br> Этот метод напоминает встраивание, за исключением того, что данные связаны с документом, из которого они переданы. Изменения объекта в приложении-сервере автоматически отражаются в приложении-контейнере. При связывании происходит встраивание ссылки на объект, открытый приложением-сервером. Каждый раз, когда открывается документ, содержащий связанный объект, приложение-контейнер связывается с приложением-сервером, которое и открывает последнюю версию связанного объекта. Связываемые объекты не являются копиями. Это оригиналы, которые можно просматривать из различных контейнеров.<br><br> <b>Оперативное редактирование</b><br><br> Оперативное редактирование (in-place editing) также известно под названием оперативной активации. При этом функциональные возможности приложения-сервера встраиваются в приложение-контейнер, позволяя редактировать объект, с помощью меню и инструментальных средств сервера приложения. Например, если документ Word содержит блок ячеек из таблицы Excel, то двойной щелчок на любой ячейке этого блока приведет к замене меню Word на меню Excel. Это позволяет редактировать содержимое ячеек без переключения в другую прикладную программу.<br><br> Оперативное редактирование — это наиболее очевидное проявление того, что раньше называлось "заимствованием функциональных возможностей другой прикладной программы". Чтобы можио было выполнять оперативное редактирование, контейнер и сервер должны поддерживать автоматизацию OLE (рассматривается ниже).<br><br> <b>Автоматизация OLE</b><br><br> Этот метод позволяет программно управлять объектами, предоставляемыми другими приложениями, непосредственно из приложений, созданных в Visual Basic. Он является стандартом, определяющим способ распределения программного кода между приложениями и способ управления одними приложениями из других. Например, если блок ячеек из таблицы Excel копируется в документ Word, то происходит встраивание этого блока. Используя автоматизацию OLE, приложение может потребовать, чтобы Excel выполнил определенные вычисления и передал результаты в Word. Можно передать таблицу в Excel, чтобы выполнить обработку данных, которую нельзя сделать средствами Word, а затем возвратить таблицу в Word. Далее в главе рассмотрены примеры приложений Visual Basic, которые управляют объектами, созданными в Word и Excel.<br><br><b>Применение метода "перетащить-и-опустить" в OLE</b><br><br> Используя этот метод можно брать объекты, предоставляемые приложением-сервером и помещать их в приложение-контейнер. Например, можно встроить объект в документ Word, перетащив в него блок ячеек из таблицы Excel. В гл. 4 рассматривались способы программирования метода "перетащить и-опустить" Далее в этой главе будет рассмотрено, как выделить часть документа (или весь документ) и перенести его в окно элемента управления, который распознает перетаскиваемые данные и элемент управления, от которого они поступили.<br><br><br> <h1>Тестирование класса</h1> CTimer<br> Компонент ActiveX (типа DLL) CTimer не может быть проверен сам по себе. Модуль класса предоставляет свои объекты другим приложениям, но он не может выполняться сам. Обычно, компилируется модуль класса, а затем открывается новый проект, который будет ссылаться на только что созданный класс. Для упрощения тестирования компонента ActiveX Visual Basic позволяет создавать группы проектов. Другими словами, можно расположить компонент ActiveX и проект, который его тестирует, в одной группе проектов. Для добавления тестового проекта к проекту CTimer следуйте следующим рекомендациям.<br> <b>1</b>. Добавьте новый проект командой Add Project меню File. Visual Basic добавит новую папку Project 1 в окно проводника проекта и поместит в нее форму Project I - обычный проект Visual Basic.<br> <b>2</b>. Измените имя нового проекта на<b> TestProject,</b> а имя его формы — на<b> TestForm.</b><br> <b>3</b>. Расположите элементы управления, изображенные на рис. 15.1, на форму TestForm.<br> <b>4</b>. Для правильного использования класса CTimer в проекте тестирования необходимо сначала добавить ссылку на класс. Откройте меню Project и выберите команду References (Ссылки). В диалоговом окне References выберите пункт TimerProject, как показано на рис. 15.2. Диалоговое окно References отображает имя проекта, а не имя класса.<br> <div style="text-align:center;"><img src="image/testirovanie-klassa_1.gif" alt="Тестирование класса"></div><br> <b>Рис. 15.2.</b> Добавление класса CTimer к проекту с использованием диалогового окна References<br> Совет<br> Если проект еще не сохранен, то, вероятнее всего, отображается имя Project 1 (которое является именем проекта по умолчанию). Не добавляйте ссылку на это имя в проект. Переименуйте компоненты проекта, запишите их в новую папку, затем добавьте ссылку. Это не означает, что нельзя добавить ссылку на Project 1. Однако позже, открывая в очередной раз диалоговое окно Reference, тяжело будет вспомнить, что собой представляет класс Project 1.<br> <b>5</b>. Затем откройте окно Code формы и введите строки программы 15.4. <br> <b>Программа 15.4.</b> Код формы CTimer<br> Dim TMR As New CTimer<br> Private Sub Coirimandl_Click ()<br> If Command1.Caption - "Start Timing" Then<br> <br> ' (Запустить таймер) <br><br> TMR.StartCounting<br><br> Command1.Caption = "Stop Timing"     ' (Остановить таймер) <br><br> Else<br><br> TMR.StopCounting<br><br> Commandl.Caption = "Start Timing" ' (Запустить таймер) <br><br>      End If <br><br> End Sub<br><br> Private Sub Command2_Click() <br><br> ETime =<br><br> TMR.ElapsedTime<br><br> MsgBox "I've been counting for " & vbCrLf & _ <br><br> Hour(TMR.ETime) & " hours" & vbCrLf & _ <br><br> Minute(TMR.ETime) & " minutes and" & vbCrLf & _<br><br> Second(TMR.ETime) & " seconds" & bCrLf<br><br> ' (С начала отсчета прошло... часов... минут и...    секунд) <br><br> End Sub<br><br> Private Sub Commands Click()<br><br> End<br><br> End Sub<br><br> <b>6</b>. Щелкните правой кнопкой мыши на имени TestProject в окне проводника проекта и выберите команду Set as StartUp. В результате TestForm будет отображаться при нажатии клавиши F5.<br><br> Запустите проект на выполнение и изучите класс CTimer. Нажмите кнопку StartTimer для запуска таймера. Заголовок кнопки изменится на StopTimer, и если нажать ее снова, то отсчет времени остановится. Остановите таймер и запустите его снова В любой момент можно получить затраченное время, но его считывание будет корректным только тогда, когда таймер остановлен. Если исследовать код класса, то можно увидеть, что значение переменной totallnterval обновляется каждый раз, когда таймер останавливается.<br><br> <b>Код проекта TestProject</b><br><br> Давайте рассмотрим программный код проекта TestProject. Первая строка — это объявление объектной переменной:<br><br> Dim TMR As New CTimer<br><br> TMR это переменная объектного типа CTimer. CTimer — это новый класс, который был только что реализован. Объектная переменная нужна для доступа к методам класса CTimer точно так же, как и для доступа к методам и свойствам Wold. Ключевое слово New указывает Visual Basic создавать новый экземпляр объекта CTimer (взамен можно использовать функцию Create0bject(), но об этом позднее). Теперь код имеет доступ к свойствам и методам, которые предоставляет класс CTimer посредством объектной переменной TMR. После ввода имени объектной переменной с точкой в конце, в окне кода появится список ее членов. Эта возможность предоставляется тогда, когда установлено свойство AutoList Members редактора программного кода. Новый класс зарегистрирован, и Visual Basic обращается с ним как с любым другим классом.<br><br>Программный код, обрабатывающий кнопки приложения, тривиален. Кнопка Start/Stop вызывает методы StartCounting и StopCounting класса для запуска и остановки процесса отсчета времени. Кнопка Show Interval считывает значение свойства ElapsedTime, форматирует его в часы, минуты и секунды и отображает в окне сообщения.<br><br><br> <h1>Тестирование нового элемента управления</h1> ActiveX<br> Для проверки нового элемента управления сначала нужно создать ОСХ-файл. Откроите новый проект, а затем вставьте новый элемент управления в форму.<br> Для упрощения разработки Visual Basic позволяет добавлять новый проект к уже существующему. Таким образом можно проверить и изменить элемент управления без загрузки нового проекта.<br> Следующие шаги являются стандартными — им нужно следовать каждый раз при конструировании элемента управления ActiveX.<br> <b>1</b>. Выберите команду Add Project меню File, чтобы открыть новое окно проекта.<br> <b>2</b>. Выберите тип проекта Standard EXE. Новый проект добавится в окно проекта, с заданным по умолчанию именем формы Forml. Измените имя формы на TestForm, а имя нового проекта на TestProject.<br> <b>3</b>. Закройте окно конструирования UserControl нажатием кнопки Close. Закройте окно с кодом элемента управления, если оно открыто.<br> Когда выбрана форма TestForm, значок на панели элементов управления становится доступным. С этого момента можно использовать элемент управления FLEXLabel, как любой другой элемент управления VB.<br> Чтобы поместить экземпляр элемента управления<br> FLEXLabel на тестовой форме, выполните следующие действия.<br> <b>1</b>. Выберите значок элемента FLEXLabel на панели элементов управления и поместите на форму проекта. Элемент управления автоматически получит имя Label3Dl (согласно соглашению об именах в VB).<br> <b>2</b>. Найдите свойство Effect на странице свойств элемента управления ActiveX и установите другое значение (целое в диапазоне от 0 до 6).<br> Можно, конечно, присваивать значениям свойств Effect и TextAlignment любые целые числа, и все они будут приняты VB. Позднее мы увидим, как выйти из этой ситуации.<br> Как вы уже заметили, элементы управления ActiveX имеют свойство Appearance (Внешний вид), которое по умолчанию задает трехмерное отображение внешних краев элемента управления. Но свойство Appearance не задействуется, если свойство BorderStyle не установлено в 1 — Fixed Single (Фиксированная одиночная). Значение BorderStyle по умолчанию равно 0 - Flat (Плоская) (довольно своеобразный выбор, учитывая его действие на свойство Appearance). Откройте свойство BorderStyle и установите его в 1 — Fixed Single.<br> <br> Теперь выполните двойной щелчок на элементе управления<br><br> FLEXLabel на форме, чтобы увидеть события, обрабатываемые элементом. Новый элемент управления имеет свои собственные события, которые можно программировать, как и события обычных объектов VB. Введите следующий код для события Click:<br><br> Private Sub Label3Dl_Click()<br><br> MsgBox "My properties are" & vbCrLf & _<br><br> "Caption = " & Label3Dl.Caption & Chr$(13) & _<br><br> "TextAlignment = " & Label3Dl.TextAlignment & Chr$(13) & _<br><br> "Effect = " & Label3Dl.Effect<br><br> End Sub<br><br> Нажмите клавишу F5, чтобы запустить приложение, и щелкните на элементе управления. Появится окно сообщения с отображенными в нем свойствами элемента управления, как показано на рис. 16.5. (На данный момент код, отображающий надпись, еще не введен.).<br><br> <div style="text-align:center;"><img src="image/testirovanie-novogo-jelementa-upravlenija_1.gif" alt="Тестирование нового элемента управления"></div><br><br> <b>Рис. 16.5.</b> Некоторые свойства элемента управления, отображенные им самим<br><br> Можно программировать также и другие события. Ничего специфического в программировании элемента управления нет. Для разработчика — это обыкновенный элемент управления VB сделал довольно много. Он сгенерировал работающий элемент управления ActiveX. Конечно, нужно все еще добавить код, который сделает элемент полезным в использовании. Создание чего-то, что выглядит и ведет себя подобно элементам с управлением типа "указать и щелкнуть" — немалое достижение, но конечная цель состоит в том, чтобы разработать кое-что практическое и полезное.<br><br><br> <h1>Типы курсоров и механизмы блокировки</h1> Курсор (cursor) - это совокупность данных, на которых основан объект RecordSet. Объект RecordSet — набор отобранных записей. Программист видит базу данных в терминах таблиц, состоящих из записей, где каждая строка образована полями. Однако ADO не видят таблицу, а только курсор, который содержит информацию, позволяющую представить записи для приложения в виде строк с полями. Существует четыре типа курсоров: Dynamic, Keyset, Static и Forward-Only.<br> Чтобы задать, какой тип курсора больше всего подходит для приложения, используйте свойство CursorType.<br> Его значения приведены в табл. 18.1.<br> Свойство CursorType задается перед открытием объекта RecordSet. Если тип курсора не задан, то по умолчанию ADO откроет Forward-Only курсор.<br> <b>Свойство CursorLocation (Место расположения курсора).</b><br> В дополнение к типу курсора можно устанавливать и его место расположения, используя свойство CursorLocation. Обычно курсор открывается на сервере, но можно его открыть и на машине-клиенте. Клиентский курсор ускоряет работу приложения при условии, что нет необходимости сразу вносить изменения в базу данных. Клиентский курсор — Static, и может изменять базу данных только через пакетные изменения (приложение модифицирует RecordSet, а затем передает его на сервер).<br> Примечание<br> Пакетные изменения — это довольно сложная тема, и она не рассматривается в этой книге. Более подробную информацию о пакетных изменениях можно получить из документации по методу UpdateBatch объекта RecordSet.<br> <b>Свойство LockType (Тип блокировки).</b> Другое важное свойство объекта RecordSet -это свойство LockType, которое определяет тип блокировки записей при их редактировании. Устанавливать свойство LockType следует перед открытием объекта RecordSet. Свойство LockType может принимать одно из значений, перечисленных в табл. 18.2.<br> Примечание<br> С клиентским объектом RecordSet свойство LockType может быть установлено только в LockOptimisticBatch.<br> <b>Таблица 18.1.</b> Значения свойства CursorType<br><table border=1><br> <tr> <td>Тип курсора<br> <td> <td>Константа<br> <td> <td>Описание<br> <td> </tr> <tr> <td>Dynamic<br> <td> <td>adOpenDynamic<br> <td> <td>RecordSet синхронизируется с записями в базе данных. Позволяет просматривать добавления, изменения и удаления, сделанные другими пользователями, и поддерживает все методы перемещения<br> <td> </tr> <tr> <td>Keyset<br> <td> <td>adOpenKeySet<br> <td> <td>Ведет себя так же, как и курсор типа Dynamic, но не позволяет видеть записи, которые другие пользователи добавили или удалили. Видны только изменения, внесенные другими пользователями в отобранные записи. Поддерживает все методы перемещения<br> <td> </tr> <tr> <td>Static<br> <td> <td>adOpenStatic<br> <td> <td>Предоставляет статическую копию отобранных записей. Поддерживает все методы перемещения, но не позволяет увидеть изменения, сделанные другими пользователями.<br> <td> </tr> <tr> <td>Forward-only<br> <td> <td>adOpenForwardOnly<br> <td> <td>Аналогичен курсору типа Dynamic, с той лишь разницей, что позволяет просматривать записи только в направлении вперед. Это улучшает производительность, если нужно сделать только один проход по RecordSet<br> <td> </tr> </table>< <br> <b>Таблица 18.2.</b> Значение свойства LockType<br><br><table border=1> <tr> <td> Значение<br><br> </td> <td> Константа<br><br> </td> <td> Описание<br><br> </td> </tr> <tr> <td> Read-only<br><br> </td> <td> adLockReadOnly<br><br> </td> <td> RecordSet открывается только для чтения. Используйте этот тип блокировки, чтобы предотвратить изменения данных<br><br> </td> </tr> <tr> <td> Pessimistic locking<br><br> </td> <td> adLockPessimistic<br><br> </td> <td> Предоставляет возможности, необходимые для успешного редактирования данных. Блокировка записи источника данных устанавливается немедленно после начала редактирования (т.е. вызова метода Edit — прим. ред.)<br><br> </td> </tr> <tr> <td> Optimistic locking<br><br> </td> <td> adLockOptimistic<br><br> </td> <td> Блокировка включается только после вызова метода Update<br><br> </td> </tr> <tr> <td> Optimistic batch updates<br><br> </td> <td> adLockBatchOptimistic<br><br> </td> <td> Используется для режима пакетных изменений<br><br> </td> </tr> </table> Другой важный аспект ADO - контроль одновременного доступа. В то время, когда один из пользователей отредактировал некоторые записи, но не успел записать изменения в базу, другие пользователи могут модифицировать те же записи. Как определить, чьи изменения будут записаны поверх других? Для ответа на этот вопрос необходимо понимать, как работают оптимистическая и пессимистическая блокировки.<br><br> <b>Пессимистическая блокировка.</b><br><br> Пессимистическая блокировка - это надежный метод упорядочивания доступа к базе данных, имеющий серьезные ограничения. При пессимистической блокировке закрыты все страницы, содержащие отобранные записи. Другие пользователи могут в это время только читать записи, принадлежащие блокированным страницам. Достоинством пессимистической блокировки является то, что ее использование упрощает код. Однако, если пользователь откроет RecordSet, а затем отлучится с рабочего места, то соответствующие станицы могут оставаться заблокированными очень долгое время. Использовать пессимистическую блокировку лучше для небольших RecordSet, содержащих единственную страницу.<br><br> <b>Оптимистическая блокировка.</b> Блокируются только страницы, содержащие редактируемые записи, причем только на время записи изменений. Этот метод блокировки выглядит весьма привлекательно, но не решает проблем, возникающих при одновременном доступе. Два пользователя открывают для редактирования одни и те же записи. Один из них заносит изменения в базу данных. После этого второй пользователь имеет устаревшую версию записей. ADO не извещает пользователя о том, что записи изменились. Так что же должно делать приложение: записать изменения поверх, известить пользователя или что-то еще?<br><br>Ответ на этот вопрос зависит от требований приложения. Необходимо написать код, который определит, были ли записи изменены с момента прочтения (для этого можно использовать специальные поля или прочесть вновь оригинальные записи из базы данных, закрыть их и сравнить с записями, которые были прочитаны вначале), и обновить, если они были изменены. Кроме того, следует известить пользователя об изменениях в базе данных и предоставить ему список команд для выбора последующих действий (записать поверх, прервать или начать редактирование заново).<br><br><br> <h1>Учебник по</h1> HTML (для начинаюицих)<br> HTML — язык, использующийся при подготовке документов для интерактивного отображения. HTML-документы также называют Web-документами. Страница — это то, что видно в броузере в определенный момент времени. Каждый Web-узел в Internet или Intranet состоит из множества страниц. Можно переключаться между ними по соответствующим гиперссылкам.<br> Совокупность HTML-страниц и составляет Word Wide Web (Всемирная паутина — всемирная компьютерная сеть).<br> Web-страница — это файл с текстом, отображаемым на экране, и ссылками на такие элементы, как изображения, звуки и гиперссылки на другие документы. Можно создавать HTML-страницы с помощью текстового редактора, например, Notepad или приложения WYSIWYG, к которым относится Microsoft Frontpage. В любом случае результатом является простой текстовый файл, который легко можно изменять. Броузер отображает этот файл на компьютере клиента.<br> Web-страницы хранятся на компьютерах, работающих по принципу сервера:<br> они предоставляют страницу любому клиентскому компьютеру, который ее запрашивает. Каждый сервер-компьютер имеет адрес или URL, который имеет вид, подобный следующей строке:<br> http://www.my computer.com<br> где http — протокол доступа к серверу, a www.mycomputer.com — имя сервера в Internet. Как уже упоминалось, все компьютеры в Internet, имеют свой уникальный адрес, например, 193.22.103.18. Этот цифровой адрес известен как IP-адрес (Internet Protocol), который человеку запомнить труднее, чем имя. Сервер находит мнемонические имена в таблице и переводит их в адреса.<br> Чтобы сделать свой HTML-документ доступным для пользователей, компьютер, содержащий документ, запускает специальное приложение, называемое Web-сервером. Web-сервер распознает запросы от других компьютеров и предоставляет запрашиваемый документ. Броузер, запускаемый на компьютере клиента, получает документ и отображает его на экране.<br><br> <br><br> <h1>Управление стилями</h1> Уже понятно, как модифицировать HTML-теги с помощью тега <STYLE>. Этот параграф посвящен управлению стилями из сценариев и разработке DHTML-документов (которые изменяют свой вид в броузере). Поскольку VBScript запускается на выполнение на компьютере-клиенте, можно подключить механизм динамического изменения содержимого HTML-документов и их активизирования на компьютере-клиенте.<br> На рис. 19.11 показана простая Web-страница со списком книг издательства SYBEX. Названия книг сгруппированы по сериям, которым они принадлежат, и образуют список с отступами. Этот документ отображает всю информацию в одном окне, содержащем длинный список серий и названий книг.<br> <div style="text-align:center;"><img src="image/index-image138.gif" alt="Управление стилями"></div><br> <b>Рис. 19.11.</b> Простой HTML-список<br> Если просматривать аналогичную информацию приложением<br> Visual Basic, можно рассчитывать на другую организацию — древовидную структуру, в которой можно раскрывать и сворачивать отдельные серии и просматривать только интересующие вас названия книг. Нечто подобное можно делать и в HTML, используя названия серий в качестве гиперссылок на отдельные документы, каждый из которых содержит названия книг из одной серии. Таким образом организованы названия книг на Web-узле Sybex в World Wide Web.<br> Используя DHTML, можно организовать серии и названия книг в виде расширяющегося списка, чтобы избежать дополнительных обращений к Web-серверу. Каждое название серии может действовать как раздел, который при нажатии открывает следующий список. Можно открыть документ SBXHTML.НТМ (папка этой главы на компакт-диске) и поэкспериментировать с ним. Чтобы получить список первого уровня (названия серий), щелкните на названии документа, а затем — на имени серии, чтобы увидеть список книг. Если вновь щелкнуть на названии серии, список будет свернут и предоставит место для других списков (рис. 19.12 и 19.13).<br> Даже заголовок документа на странице SBXHTML НТМ является активным элементом. При первом открытии документа можно увидеть только его. Чтобы увидеть имена серий, щелкните на заголовке. Чтобы свернуть список, щелкните на заголовке вновь. <br> <div style="text-align:center;"><img src="image/index-image139.gif" alt="Управление стилями"></div><br> <b>Рис. 19.12.</b> DHTML позволяет создавать Web-страницы, которые изменяют свой вид и содержимое в зависимости от действий пользователя. Название серии Developers Handbooks становится красным, когда на него помещается указатель мыши<br> <div style="text-align:center;"><img src="image/index-image140.gif" alt="Управление стилями"></div><br> <b>Рис. 19.13.</b> Эта страница показывает несколько заголовков из серии Developers Handbooks. Если пользователь щелкнет опять на элементе Developers Handbooks, то список серий примет вид, отображенный на рис. 19.12<br><br> <br><br> <h1>URL и гиперссылки</h1> Ключевым элементом в Web-странице является гиперссылка — специальная команда в тексте, выполнение которой приводит к тому, что броузер загружает другую страницу. Чтобы установить связь с другим компьютером и запросить документ, гиперссылка должна содержать имя компьютера, на котором находится документ, и имя самого документа. Так же, как каждый компьютер в Internet имеет уникальное имя, так и каждый документ на компьютере имеет уникальное имя. Следовательно, каждый документ в WWW имеет уникальный адрес, который называется URL (Uniform Resource Locator - унифицированный указатель ресурса). URL для Web-документа выглядит следующим образом.<br> http://www.someserver.com/docName.htm<br> Примечание<br> Некоторые URL имеют расширение htm, а некоторые — html. Они идентичны с тем небольшим исключением, что страницы с расширением htm разработаны в операционной системе, не поддерживающей длинные имена файлов, или разработчик следовал DOS-соглашениям об именах файлов. Примеры страниц на компакт-диске имеют расширение htm. Это обусловлено особенностями изготовления компакт-диска и не имеет отношения к системе, в которой эти страницы создавались.<br> Любой отдельный фрагмент информации в WWW имеет уникальный адрес, и доступ к нему может быть получен посредством его URL. Что именно будет выполнять броузер, зависит от природы отдельного сообщения. Если это Web-страница или изображение, то броузер отобразит их на экране. Если это звук, то броузер воспроизведет его. Современные броузеры (например, Internet Explorer) обрабатывают документы многих типов. Когда встречается документ, который броузер не может обработать, то последний спрашивает, что требуется пользователю — принять документ, сохранив его в файле на диске, или открыть его с помощью приложения, указанного пользователем.<br><br> <br><br> <h1>Ускорения операций вывода графических изображений</h1> Операции вывода пикселей с помощью функций SetPixelV() и GetPixelV() занимают гораздо меньше времени, чем при использовании их аналогов в Visual Basic, но все же они выполняются не очень быстро. Для значительного увеличения быстродействия требуется использовать дополнительные API-функции.<br> Если вывод изображения в окно формы выполняется с помощью методов Visual Basic, то изображение, фактически, записывается в область памяти, содержимое которой затем отображается в окно формы. Visual Basic работает с этой областью памяти, в результате чего появляются несколько уровней обработки, которые лежат между программой и реальным окном на экране. API-функции, рассмотренные в предыдущем параграфе, позволяют выполнить те же операции, но они работают гораздо быстрее, чем программа Visual Basic. (На самом деле Visual Basic выполняет вызов этих же функций, однако, этот процесс скрыт от программиста VB. За счет этого использование функций упрощается, а время выполнения - увеличивается.)<br> Windows не позволяет приложению выполнять вывод графики непосредственно на экран. Следует помнить о том, что в Windows можно запускать одновременно несколько приложений, переключаться между ними и при этом не беспокоиться о том, как будут происходить перерисовка окон и переключение между палитрами -это делает Windows. Но Windows была бы не в состоянии уследить за всеми подробностями, если бы приложениям был предоставлен прямой доступ к растровым изображениям окон на экране. Именно поэтому процедуры рисования в Windows выполняются медленно.<br> Независимо от того, как Windows выполняет вывод объектов и их заливку, в конечном счете, растровое изображение должно быть сохранено где-нибудь в памяти. Имеются соответствующие API-функции, которые позволяют приложениям обращаться к этой области памяти и осуществлять вывод изображения, устанавливая значения битов и байтов. Вывод изображения непосредственно в область памяти выполняется значительно быстрее, чем в контекст устройства, но его организация сложнее. Кроме того. когда вывод изображения выполняется в область памяти, на экране ничего не появляется. Необходимо написать программу, которая передает изображение из области памяти в окно на экране. Но даже с учетом этих дополнительных шагов вывод изображения в область памяти выполняется значительно быстрее, чем вывод в контекст устройства.<br> <br> Чтобы вывести изображение в область памяти, необходимо выделить в памяти место для растрового изображения. Такая структура должна быть совместимой с контекстом устройства, в которое выполняется вывод изображения. Иными словами, для организации вывода изображения на принтер и на монитор требуется определять различные структуры. Чтобы создать в памяти растровую структуру для хранения изображения, требуется вызвать функцию<br><br> CreateCompatibleBitmap().<br><br> Public Declare Function CreateCompatibleBitmap Lib "gdi32" _ <br><br> Alias "CreateCompatibleBitmap" (ByVal hdc As Long, _ <br><br> ByVal nWidth As Long, ByVal nHeight As Long) As Long<br><br> Первый параметр функции — это контекст устройства, с которым совместимо растровое изображение. С другой стороны, это — контекст устройства, в который помещается растровое изображение, чтобы его можно было вывести на экран. Два оставшихся параметра определяют размер растрового изображения в пикселях.<br><br> Так как изображение будет выводиться на экран, необходимо создать контекст устройства с помощью функции<br><br> CreateCompatibleDC(), а затем выбрать растровую структуру в контекст устройства с помощью функции SelectObject(). Функция CreateCompatibleDCO объявляется так:<br><br> Public Declare Function CreateCompatibleDC Lib "gdi32" _<br><br> Alias "CreateCompatibleDC" (ByVal hdc As Long) As Long<br><br> Ее параметром является контекст элемента управления (или формы), в которую выводится изображение. Если требуется сначала подготовить растровое изображение в памяти, а затем вывести его в окно элемента управления PictureBoxl, то можно воспользоваться следующими операторами.<br><br> hBMPSource = CreateCompatibleBitmap(Picturel.hdc,<br><br> _<br><br>   Picturel.ScaleWidth, Picturel.ScaleHeight) <br><br> hSourceDC = CreateCompatibleDC(Picturel.hdc) <br><br> SelectObject hSourceDC, hBMPSource<br><br> После того как эти операторы выполнены, можно выполнить вывод изображения в контекст устройства hSourceDC, используя рассмотренные выше функции. Обратите внимание: содержимое контекста устройства hSourceDC не выводится на монитор непосредственно. Это изображение остается в памяти и может быть изменено очень быстро. А вот чтобы вывести его на монитор (т.е. передать его содержимое в окно элемента управления PictureBox2), следует воспользоваться функцией BitBlt().<br><br> <br> Для обработки команды Сору Fast (третья кнопка на форме проекта CopyPix) используется именно такой прием при чтении значений цвета пикселей из окна левого элемента управления PictureBox и записи в правый PictureBox. Текст программы обработчика команды Сору Fast приведен ниже.<br><br> <b>Программа 13.15.</b> Обработчик команды Сору<br><br> Fast<br><br> Private Sub Command3_Click()<br><br> Picture2.CIs <br><br> ' Задание области-источника растрового изображения<br><br> hBMPSource = CreateCompatibleBitmap(Picurel.hdc, _<br><br> Picturel.ScaleWidth, Picturel.ScaleHeight) <br><br> hSourceDC = CreateCompatibleDC(Picturel.hdc) <br><br> SelectObject hSourceDC, hBMPSource <br><br> ' Задание области-получателя растрового изображения<br><br> hBMPDest = CreateCompatibleBitmap(Picture2.hdc, _<br><br> Picture2.ScaleWidth, Picture2.ScaleHeight) <br><br> hDestDC = CreateCompatibleDC(Picture2.hdc) <br><br> SelectObject hDestDC, hBMPDest<br><br> ' Копирование растрового изображения в область-источник <br><br> BitBIt hSourceDC, 0, 0, Picturel.ScaleWidth - 1, _<br><br> Picturel.ScaleHeight - 1, Picturel.hdc, 0, 0, &НСС0020 <br><br> ' Копирование пикселей из одной области в другую <br><br> For 1 = 0 То Picturel.ScaleWidth - 1<br><br> For j = 0 To Picturel.ScaleHeight - 1 <br><br>   clr = GetPixel(hSourceDC, i, j) <br><br>   SetPixel hDestDC, i, j, clr <br><br> Next <br><br> Next<br><br> ' Передача скопированных пикселей в другое окно PictureBox <br><br> BitBIt Picture2.hdc. О, О, Picturel.ScaleWidth - 1, _<br><br> Picture1.ScaleHeight - 1, hDestDC, 0, 0, &НСС0020<br><br> ' Picture2.Refresh<br><br> ' Заключительная очистка области памяти <br><br> Call DeleteDC(hSourceDC) <br><br> Call DeleteObject(hBMPSource) <br><br> Call DeleteDC(hDestDC) <br><br> Call DeleteObject(hBMPDest) <br><br> End Sub<br><br> Программа начинается с создания в памяти двух контекстов устройств, hSourceDC (соответствующего растровому изображению в окне левого элемента управления PictureBox) и hDestDC (соответствующего растровому изображению в правом элементе управления<br><br> PictureBox). Затем выполняется копирование пикселей из окна элемента управления PictureBox 1 в соответствующий контекст устройства (при создании контекст устройства содержит произвольные данные). Затем в двойном цикле выполняется копирование пикселей из контекста hSourceDC в контекст hDestDC с помощью API-функций GetPixelV() и SetPixelV(). Нетрудно заметить, что методы для вывода изображения в контекст устройства и в контекст области памяти одинаковы.<br><br> <br> Во время копирования пикселей содержимое экрана не изменяется. Если создание изображения выполняется в памяти, то Windows неизвестно о том, что предполагается делать с этим изображением в дальнейшем, поэтому никаких изменений на экране не происходит. В конце концов, когда пиксели будут скопированы, следует переместить растровое изображение из памяти (контекст hDestDC) в окно элемента-получателя (окно элемента управления PictureBox2). Это выполняется с помощью функции BitBlt(). В заключение программа освобождает<br><br> все ресурсы, созданные во время выполнения операции, с помощью функций DeleteDC() и Delete Object().<br><br> Запустите проект CopyPix и щелкните на кнопке Сору Fast, чтобы увидеть, насколько быстрее он работает по сравнению с двумя другими методами. Недостаток этого метода состоит в том, что невозможно наблюдать за скоростью выполнения операции копирования пикселя. Второе изображение появится на экране только тогда, когда все пиксели буду скопированы. Если обрабатываются большие изображения, то функцию BitBlt() придется вызывать чаще (например, при копировании каждого столбца пикселей). Это приводит к появлению некоторой задержки, но метод, описанный в этом параграфе, все равно быстрее двух других. Можно добавить в программу индикатор, позволяющий пользователю получить представление о скорости выполнения программы и времени, оставшемся до ее завершения.<br><br> Этим примером заканчивается рассмотрение API-функций. В следующей главе рассмотрены организация взаимодействия программ Visual Basic с внешними приложениями (такими, как Excel и Word) и управление их объектами с помощью VBA. Офисные приложения предоставляют много возможностей, которые можно использовать в VB-приложениях, поэтому не имеет смысла заново их разрабатывать в Visual Basic.<br><br> <b>Глава 14 Автоматизация</b> OLE и VBA<br><br> <b>•           Расширение возможностей Visual Basic с помощью OLE</b><br><br> <b>•           OLE-терминология</b><br><br> <b>•           Связывание и встраивание</b><br><br> <b>•           Применение элемента управления OLE Container</b><br><br> <b>•           Автоматизация OLE и VBA</b><br><br> <br> <b>•           Программирование объектов Word</b><br><br> <b>•           Программирование объектов Excel</b><br><br> <b>•           Программирование объектов Outlook</b><br><br> Visual Basic — весьма эффективный объектно-ориентированный язык, позво ляющий скрывать от пользователя многие подробности использования объектов и управления ими. Элементы, используемые для организации интерфейса пользователя, являются объектами, и управление ими осуществляется с использованием соответствующих свойств и методов. Предполагается, что в данный момент пользователь уже хорошо знаком со свойствами объектов Visual Basic.<br><br> В этой главе рассматриваются два достаточно сложных аспекта применения объектов Visual Basic: OLE и автоматизация OLE Automation. Средства OLE<br><br> позволяют организовать взаимодействие приложений, созданных с помощью Visual Basic, с приложениями, работающими в среде Windows. Средства управления, использовавшиеся до сих пор, были встроенными средствами Visual Basic. Они находятся на панели элементов управления (Tool-box), и их можно поместить в окно формы с помощью мыши. Однако некоторые объекты Windows не входят в состав встроенных средств Visual Basic. Они поставляются вместе с другими приложениями, но их можно использовать и в прикладных программах.<br><br> К таким объектам относятся документы, созданные в текстовом процессоре Word, поэтому DOC-файлы можно встраивать в собственные приложения. При этом нет необходимости выяснять детали организации этих файлов или способ записи их на диск. Если нужно редактировать файлы, встроенные в приложение, то можно почти мгновенно вызвать на экран меню Word и соответствующие панели инструментов и отобразить их непосредственно в прикладной программе. После этого можно редактировать документ так, как если бы он находился в Word.<br><br> Можно организовать управление приложением, например.<br><br> Word, манипулируя его объектами с помощью средств, предоставляемых VBA (Visual Basic for Applications). VBA — популярный и мощный язык, позволяющий программистам быстро приспосабливать популярные прикладные программы (подобные Word и Excel) под выполнение определенных задач, а не разрабатывать новые прикладные программы, удовлетворяющие специфическим требованиям решаемых задач как в мелком бизнесе, так и в крупном. Знания, полученные при изучении Visual Basic, легко применимы при работе с VBA, но прежде следует ознакомиться со структурой и основными принципами функционирования VBA.<br><br>В первой части главы рассмотрено, как можно расширить возможности Visual Basic за счет использования OLE, позволяющего включать в ваши программы объекты, предоставляемые другими прикладными программами. Вторая часть главы является введением в VBA. В ней рассмотрены возможности использования всех средств Word, Excel и Outlook непосредственно из VB-приложений с помощью автоматизации OLE и VBA.<br><br><br> <h1>Усовершенствованные элементы управления, связанные с данными</h1> В этом параграфе рассмотрены три элемента управления, связанные с данными, которые совершенно отличаются от использовавшихся до сих пор:<br> • связанный с данными элемент управления List;<br> • связанный с данными элемент управления ComboBox;<br> • связанный с данными элемент управления Grid.<br> В отличие от других элементов управления связанных с данными, эти элементы управления могут отображать поля из нескольких строк. Элемент управления List напоминает обычный элемент управления ListBox, но заполняется он всем столбцом из набора RecordSet. Элемент управления List обладает всеми функциональными возможностями обычного элемента управления ListBox и позволяет вводить новые значения (записи). Связанный с данными элемент управления Grid подобен обычному элементу управления Grid, но может отображать весь набор записей RecordSet. Каждая строка сетки содержит строку (запись) RecordSet, а столбцы соответствуют столбцам (полям) RecordSet.<br> Эти два связанные с данными элемента управления по умолчанию не установлены. Чтобы использовать их в проектах, необходимо добавить их на панель элементов управления Toolbox. Для этого выполните следующие действия.<br> <b>1</b>. Чтобы открыть диалоговое окно Components (Компоненты), щелкните правой кнопкой мыши на Toolbox и выберите пункт Components.<br> <b>2</b>. Установите флажки Microsoft Data Bound Grid Control и Microsoft Data Bound List Control<br> <b>3</b>. Нажмите кнопку Close, чтобы закрыть диалоговое окно Components.<br><br> <br><br> <h1>Установка источника данных</h1> ODBC<br> Для доступа к базам данных с помощью компонента<br> Database сначала необходимо установить источник данных System ODBC, воспользовавшись администратором ODBC. Для этого выполните следующее.<br> <b>1</b>. В меню Пуск выберите команду Настройки, а затем - Панель управления.<br> <b>2</b>. Выполните двойной щелчок на значке 32bit ODBC (администратор ODBC), чтобы открыть диалоговое окно, показанное ниже.<br> <div style="text-align:center;"><img src="image/index-image178.gif" alt="Установка источника данных"></div><br> <b>3</b>. Выберите закладку System DNS, чтобы отобразить уже инсталированные источники данных. В примерах этой главы используется база данных NWIND, поэтому сейчас мы создадим для нее источник данных.<br> <b>4</b>. Щелкните на кнопке Add, чтобы открыть мастер Create New Data Source (Создание нового источника данных). В этом окне появится список всех драйверов ODBC. Выберите драйвер Microsoft Access и щелкните на кнопке Finish, чтобы открыть диалоговое окно ODBC Microsft Access 97 Setup.<br> <div style="text-align:center;"><img src="image/index-image179.gif" alt="Установка источника данных"></div><br> <b>5</b>. В поле Data Source Name (Имя источника данных) введите<b><br> NWINDDB</b> (это имя будет использоваться для доступа к базе данных). В поле Description (Описание) введите описание и щелкните на кнопке Select, чтобы выбрать файл NWIND.MDB в папке, где установлен Visual Basic.<br> <b>6</b>. Щелкните на кнопке ОК, чтобы вернуться в окно администратора ODBC. Теперь в нем появился новый источник данных.<br> <div style="text-align:center;"><img src="image/index-image180.gif" alt="Установка источника данных"></div><br><br> <br><br> <h1>Установка связи с сервером</h1> OLE<br> Чтобы получить доступ к возможностям, предоставляемым приложением-сервером OLE, сначала необходимо создать переменную, на которую мог бы сослаться Excel. Эта переменная называется объектной переменной (object variable), поскольку она описывает объект, а не целое число и не иные (относительно про стые) типы данных. Характерной особенностью объектных переменных является то, что они выступают в качестве компонентов членов приложения или класса (Class), который они представляют. Например, Excel предоставляет метод Evaluate с помощью которого можно вычислять любые математические выражения. К этому методу нельзя обращаться непосредственно, к нему необходимо обратиться через объектную переменную, которая представляет приложение Excel. Иными словами, нельзя использовать оператор:<br> Excel.Evaluate "Log(499/0 785)"      'WRONG! (Ошибка!)<br> Сначала необходимо создать объектную переменную например ExcelObj, а затем вызвать метод Evaluate для переменной ExcelObf<br> ЕхсеlObj.Evaluate "Log (499/0 785)"<br> Существует две функции позволяющие создавать объектные переменные. Это функция CreateObject(),<br> позволяющая создать новый экземпляр приложения, на который можно сослаться и функция Get0bject(), с помощью которой можно связаться с экземпляром приложения, уже запущенного на компьютере. Эти функции будут рассмотрены позже.<br> Примечание<br> Чтобы предоставить VB-приложению возможность обращаться к серверам автоматизации OLE, необходимо добавить соответствующую ссылку к проекту с помощью диалогового окна Reference, вызываемого по команде References (Ссылки) меню Project (Проект). Чтобы приложение могло воспринимать ссылки на объекты Excel, необходимо в проект добавить элемент "Microsoft Excel 8.0 Object Library", на объекты Word — элемент "Microsoft Word 8.0 Object Library", и на объекты Outlook 98 — элемент "Microsoft Outlook 98 Object Model"<br> <b>Создание нового экземпляра</b><br> Первый метод установления связи с приложением-сервером<br> <br> OLE состоит в том, чтобы организовать новый экземпляр приложения, воспользовавшись функцией Create0bject():<br><br> Set AppObject = CreateObject(Class, ServerName)<br><br> Аргумент<br><br> Class — это имя класса приложения-сервера, зарегистрированного в реестре (Registry). Имя класса Word - это строка "Word.Application", а имя класса Excel - "Excel.Application".<br><br> Второй параметр (необязательный) является именем сетевого сервера, на котором будет создан объект. Если приложение-сервер постоянно находится на другой машине, следует также указать имя машины, на которой будет создано приложение-сервер с именем Class. Если приложение-сервер было установлено на машине с именем "Toolkit", то для создания нового "экземпляра приложения Excel следует воспользоваться следующим оператором:<br><br> Set EXLApp = Create0bject ("Excel.Application", "Toolkit")<br><br> <b>Установление связи с уже существующим экземпляром приложения</b><br><br> Если приложение, с которым следует установить связь, уже запущено, нет потребности создавать его новый экземпляр. Можно "войти в контакт" с уже запущенным экземпляром приложения и открыть новый документ. Чтобы установить связь с уже выполняющимся экземпляром приложения-сервера, следует воспользоваться функцией Get0bject():<br><br> Set AppObject =<br><br> GetObject(pathname, class)<br><br> Оба параметра являются необязательными, но хотя бы один из них должен быть определен. Параметр pathname — это полный путь и имя файла документа, который будет открыт с помощью приложения-сервера. Второй параметр, class, является именем класса приложения, зарегистрированного в системном реестре (Registry).<br><br> Если указывается документ, который необходимо открыть данным приложением, то не следует указывать имя класса (Class) приложения. Например, разработчику не надо дополнительно указывать, что рабочий лист будет обрабатываться приложением Excel: Системе известно, что файлы с расширением XLS обрабатываются Excel, например:<br><br> Set EXLApp = Get0b]ect ("С:\sample files\Sales98.xls")<br><br> <br> Вызов этой функции приведет к запуску Excel ( если до этого не был запущен ни один экземпляр). А чтобы установить связь с уже запущенным экземпляром Excel, следует следующим оператором вызвать функцию Get0bject():<br><br> Set EXLApp = Get0bject(, "Excel.Application")<br><br> Во многих ситуациях нет разницы, будет ли запущен новый экземпляр приложения-сервера, или будет установлена связь с уже запущенным экземпляром. Например, чтобы вызывать метод Evaluate нет необходимости запускать новый экземпляр Excel. Если он уже запущен, следует связаться с ним и выполнить с его помощью вычисление математического выражения. После того как это действие будет выполнено, работающий экземпляр Excel вернется в то же состояние, что и прежде. Поэтому, предпочтительнее (с точки зрения эффективности) пытаться устанавливать связь с существующим экземпляром приложения-сервера. И только в том случае, если нет ни одного запущенного экземпляра сервера, следует его запустить В следующем фрагменте программы применяется именно этот способ. Сначала делается попытка установления связи с уже запущенным экземпляром Word. Если Word не работает, то генерируется сообщение об ошибке. Оператор On Error Resume Next предписывает Visual Basic подавлять сообщение об ошибках и продолжать выполнение программы с оператора, следующего за вызвавшим ошибку. Если происходит ошибка, значит, при вызове функции Get0bject() произошел сбой и следует вызвать функцию CreateObject(), чтобы запустить новый экземпляр Word.<br><br> <b>Программа 14.8.</b><br><br> Установление связи или запуск Word<br><br> On Error Resume Next<br><br> Set AppWord = Get0bject ("Word.Application")<br><br> If AppWord Is Nothing Then<br><br> Set AppWord - CreateObject ("Word.Application") <br><br> If AppWord Is Nothing Then<br><br> MsgBox "Could not start Word.Application will quit"<br><br> '(Word не был запущен. Программа прекращает работу)" <br><br> End <br><br>   End If <br><br> End If<br><br> <b>Объявление объектных переменных</b><br><br> Объектная переменная, которая описывает приложение-сервер<br><br> OLE, может быть объявлена либо как переменная типа Object (Объект), либо как переменная специального типа (например, Excel.Application или Word.Application). Если переменная EXLApp<br><br> <br> объявлена как переменная типа Object (Объект), то каждый раз перед вызовом соответствующих свойств или методов Visual Basic должен сначала удостовериться, что вызываемые элементы существуют. Поскольку Object (Объект) — обобщенный тип переменной, который может включать все типы объектов. Visual Basic не знает, какой именно объект описывает объектная переменная во время разработки, и это не позволяет обнаружить синтаксические ошибки во время ввода программы. Например, если было неправильно набрано имя компонента-члена, Visual Basic не сможет обнаружить эту ошибку во время разработки приложения. Так, например, Excel поддерживает метод Evaluate, который позволяет вычислять<br><br> математические выражения. Если объявить переменную EXLApp как Object (Объект), а затем попытаться обратиться к ней, чтобы получить доступ к методу Calculate, Visual Basic не сможет определить наличие ошибки.<br><br> Если же объявить переменную EXLApp, как Excel Application, Visual Basic не только не будет захватывать никакие ссылки на несуществующие элементы, но также выведет список компонентов-членов в списке, как только будет поставлена точка после имени переменной EXLApp.<br><br> Иными словами если объявлять переменные, правильно указывая их тип, то синтаксические ошибки будут определены еще на этапе ввода программы. При этом приложение не будет работать неправильно только лишь из за того, что в имени члена допущена орфографическая ошибка. Даже если опция Member AutoList выключена эти ошибки будут определены во время трансляции.<br><br> Другое, гораздо более серьезное, последствие правильного объявления типа объекта — эффективность. Когда Visual Basic обнаруживает выражение, подобное EXLApp Property, он должен сначала удостовериться что указанное свойство существует, затем связаться с приложением сервером, предоставившим объект EXLApp, и активизировать его компонент Property. Компилятор вставит дополнительные операторы, которые организуют связь с приложением, предоставившим объектную переменную, чтобы удостовериться, что предоставляется запрошенный элемент. Неприятной особенностью является то, что эти операторы будут выполняться каждый раз, когда приложение запрашивает компонент объекта EXLApp. Чтобы избежать этой ненужной задержки, следует просто объявить объектную переменную EXLApp, указав соответствующий тип.<br><br> <br> Объявление объектных переменных с указанием типа называется ранним связи ванием (early hounding), поскольку Visual Basic может связывать их с объектами, которые они представляют во время проектирования. Объявление объектных переменных без указания типа (просто переменные типа Object) приводит к позднему связыванию (late-bounding) Visual Basic не может связать их со специфическими объектами во время проектирования, что может привести к появлению любых ошибок уже во время выполнения.<br><br> Чтобы воспользоваться преимуществом раннего связывания объектных пере менных следует объявить их, указав соответствующий тип. Однако и применение позднего связывания имеет свои достоинства. Иногда тип объекта, описываемого переменной, заранее неизвестен и выход из такой ситуации заключается в объявлении переменной как Object. Например, требуется организовать программное переключение между объектами Form и Printer. Удобный способ организации вывода на любое из устройств (монитор или принтер) заключается в объявлении переменной OutputObject и последующей установки требуемого значения с помощью одного из операторов<br><br> Set OutputObject = Printer <br><br> Set OutputObject = Screen<br><br> Если вызвать метод Print переменной Output Object, то он будет применен к объекту, который был в последний раз присвоен к объектной переменной OutputObject. В ситуациях такого рода переменная OutputObject не может быть ранне связанной.<br><br> <b>Доступ к объектам Excel с помощью объектных переменных</b><br><br> Переменная<br><br> EXLObject является объектной переменной, которая предоставляет доступ к объектам Excel. Например, для обращения к текущей рабочей книге следует использовать выражение:<br><br> EXLObject.ActiveWorkbook<br><br> Чтобы обратиться к активному рабочему листу в активной книге, следует воспользоваться выражением:<br><br> EXLObject.ActiveWorkbook.ActiveSheet<br><br> Объекты, к которым обычно требуется получить доступ на рабочем листе — это ячейки, которые могут быть представлены семейством ячеек<br><br> Cells. Чтобы обратиться к первой ячейке второй строки и присвоить ей значение 99, следует воспользоваться следующим выражением:<br><br> <br> EXLObject.ActiveWorkbook.ActiveSheet.Cells(2, 1).Value = 99<br><br> Свойства и методы, предоставляемые Excel для организации доступа к ячейкам и изменения их содержимого, рассматриваются далее в этой же главе. Следует учесть, что доступ к ним организуется через переменную, возвращаемую функцией Create0b)ect(). Функция Create0bject() так же, как и функция Get0bject(), возвращает ссылку на OLE-сервер. Эта переменная является шлюзом (gateway) к объектной модели (object model), предоставляемой приложением-сервером. Объектная модель представляет иерархию объектов, соответствующих объектам приложение-сервера (например, ячейки и макросы Excel или предложения и словари Word).<br><br> В оставшихся параграфах этой главы будут рассматриваться самые основные объекты Word 97, Excel 97 и Outlook 98 (его бета-версия, появившаяся перед выпуском Visual Basic 6). К моменту выхода этой книги, вероятно, станут доступны версии Word и Excel для Windows 98. Впрочем, приводимые примеры должны работать без изменений. Если у читателя возникнут проблемы, то обновленные версии файлов можно найти на сайте издательства Sybex.<br><br> Рассмотрение всех объектов, предоставляемых указанными приложениями, вероятно, потребовало бы трех отдельных книг. Поэтому знакомство с ними ограничивается только основными объектами, предоставляемыми приложениями; приводятся примеры, с которыми можно поэкспериментировать. Ознакомившись с этими объектами и используя справку Object Browser, которая содержит список объектов, предоставляемых каждым приложением, разработчик сможет разрабатывать приложения, которые используют услуги приложения-сервера OLE.<br><br><br> <h1>Установка свойств проекта</h1> А теперь немного прервемся, чтобы обсудить диалоговое окно Project Properties (Свойства проекта). Большая часть полей в этом окно очевидны, но не все. Кроме того, некоторые, казалось бы, очевидные опции, имеют разветвления, о которых следует знать. При желании, этот раздел можно пропустить и вернуться к нему, когда потребуется дополнительная информация. Диалоговое окно Project Properties, показанное на рис. 155, позволяет выбрать тип проекта и установить различные опции. Вкладки окна объяснены ниже.<br> <div style="text-align:center;"><img src="image/ustanovka-svojstv-proekta_1.gif" alt="Установка свойств проекта"></div><br> <b>Рис. 15.5.</b> Вкладка General окна Project Properties<br> Вкладка General<br> <b>Project Type (Тип проекта).</b><br> Этот список содержит те же типы проектов, что и в диалоговом окне File Open (Открыть файл). В этом списке доступны следующие типы проектов Standard EXE, ActiveX DLL, ActiveX EXE и ActiveX control (элемент управления ActiveX). Изменение типа проекта всякий раз, когда вам это кажется необходимым, не всегда возможно или просто. Переключение между ActiveX DLL и Standard EXE проектами допустимо и легко осуществимо. Пусть нужно создать компонент ActiveX DLL. Для упрощения процесса тестирования и отладки можно запустить Standard EXE проект и добавить модуль класса. Когда этот модуль работает в контексте текущего проекта, можно удалить формы из проекта и изменить тип проекта со Standard EXE на ActiveX DLL.<br> После создания и регистрации (как описано в разделе "Регистрация компонентов ActiveX" этой главы) можно использовать этот класс в любом проекте.<br> <b>•  Startup Object (Стартовый объект).</b> Это поле позволит определить, что происходит при запуске проекта. Проекты ActiveX DLL и ActiveX EXE нельзя выполнять. Компонент ActiveX должен вызываться из кода проекта Standard EXE. Для проекта Standard EXE стартовым объектом может быть форма или подпрограмма Main. Подпрограмма Main должна располагаться в стандартном модуле проекта и создавать первую видимую форму приложения. Программные компоненты не могут иметь в качестве стартового объекта форму. Стартовым объектом компонентов ActiveX EXE или ActiveX DLL должна быть либо подпрограмма Main, либо None. Если изменять тип проекта во время его реализации, то нужно также изменить стартовый объект.<br> <br> Для групп проектов можно устанавливать различные стартовые объекты для каждого проекта в группе. Для определения стартового проекта щелкните правой кнопкой на названии проекта в окне проекта и выберите команду Set as Start-up.<br><br> <b>• Project Name (Имя Проекта).</b> Это свойство является именем компонента и отображается в броузере объектов (Object Browser). Очень важно задать содержательное имя проекта, иначе придется искать различия среди различных компонентов с одинаковым названием Project 1 на диске. Если компонент имеет имя MyComponent и определяет класс, который называется MyClass, то нужно создать объектную переменную для ссылки на этот класс внутри другого приложения с помощью оператора:<br><br> Set Object1 = CreateObjectC("MyObject.MyClass")<br><br> Изменение имени проекта (или, например, имени класса) после его реализации требует и пересмотра исходного кода программы. Используйте содержательные имена проектов и избегайте таких имен, как Test, Example или Server. Компоненты ActiveX регистрируются в системе - это не просто файлы, лежащие в папке.<br><br> <b>• Help File Name (Имя файла подсказки), Project Help Context ID (Идентификатор подсказки).</b> Эти два поля позволяют задать файл справки проекта и идентификатор подсказки. Хотя файлы подсказки не обсуждаются в этой книге, любой компонент, который реализуется (в особенности, компонент ActiveX), должен иметь такой файл.<br><br> <b>• Project Description (Описание проекта).</b> Это описание проекта и оно появляется в броузере объектов, когда пользователь выбирает компонент.<br><br> <b>• Upgrade ActiveX Controls (Обновление элементов управления ActiveX).</b> Установите эту опцию, чтобы Visual Basic автоматически заменял элементы управления ActiveX их новыми версиями, если желаете обновить один или несколько элементов управления, используемых в проекте.<br><br> <b>• Require License Key (Требуется номер лицензии).</b> Это поле позволит защитить компоненты с помощью лицензии. Компоненты ActiveX, созданные с помощью действий, описанных в этой главе, будут работать в любой системе, где они инсталлированы. Предположим, разработана новая ActiveX DLL, которая используется в ваших приложениях. Конечные пользователи должны иметь возможность использовать эти компоненты только во время выполнения соответствующих приложений. Это достигается применением лицензий. Когда вы выйдете на этот уровень разработки компонентов, следует обратиться к документации, чтобы узнать, как создавать лицензии на компоненты.<br><br> <br> <b>•  Unattended Execution (Фоновое выполнение).</b> Опции в этой секции относятся к многопотоковым ЕХЕ-серверам и не будут обсуждаться в этой книге. Эта опция указывает Visual Basic пропускать все окна сообщений и других форм ввода или вывода, чтобы компонент выполнялся без привлечения внимания пользователя. Если вызван компонент ActiveX EXE, который выполняется на сервере, он не должен выдавать сообщения (которые, возможно, были вставлены в целях отладки) на сервер, а потом ждать реакции пользователя.<br><br> <b>Вкладка Component</b><br><br> <b>• Start Mode (Режим запуска).</b> В этой секции можно определить, будет ли ActiveX ЕХЕ-сервер выполняться как отдельное приложение или как компонент ActiveX. Эта опция применима только к компонентам ActiveX EXE, а по умолчанию выбран компонент ActiveX.<br><br> <b>•  Remote Server (Удаленный сервер).</b> Если установлена эта опция. Visual Basic создает файлы с расширением .vbr и с именем, как у dll-файла. Этот vbr-файл содержит информацию, которая требуется системному реестру Windows для выполнения ActiveX-сервера на удаленном компьютере.<br><br> <b>• Version Compatibility (Совместимость версий).</b> Опции в этой секции позволяют установить уровень совместимости версии, которая может быть следующей<br><br> <b>• No Compatibility (He требуется).</b> Если эта опция выбрана, совместимость не требуется<br><br> <b>• Project Compatibility (На уровне проекта).</b> Если опция выбрана, то активизируется окно Location (место расположения), что позволит искать файл, совместимый с проектом Если опция не выбрана, то окно Location недоступно. При разработке элементов управления ActiveX или программных компонентов, используемых с определенным проектом, щелкните на этой опции и выберите имя проекта в последнем поле вкладки По умолчанию эта опция отмечена для всех ActiveX-проектов, так что каждый раз при изменении элемента управления или кода компонента проект также будет обновляться.<br><br> <b>• Binary Compatibility (На уровне кода).</b> Эта опция должна быть выбрана для поддержки совместимости среди проектов, откомпилированных с использованием вашего компонента.<br><br><br> <h1>Установление связи с приложением на сервере</h1> Пришла пора использовать полученные знания и посмотреть, как на самом деле выглядит процесс взаимодействия клиент-сервер. Предполагается, что созданные вами страницы обрабатываются сервером. Можете открыть страницу<br> FORM.HTM (при условии, что ваш компьютер подключен к Web-серверу).<br> Если окажется, что на компьютере установлен Internet Information Server, то, скорее всего, вы подсоединены к локальной сети и можете проконсультироваться с ее администратором. Если ваш компьютер не подключен к какой-либо сети, то найдите в этой главе сведения о том, как конфигурировать Personal Web Server, и протестируйте примеры этой главы. Personal Web Server является упрощенной версией Internet Information Server, которая работает под управлением Windows 95/98 и обслуживает до 10 пользователей одновременно. Он вполне подходит для создания Web-узла, способного взаимодействовать с клиентским компьютером с помощью серверных сценариев.<br> Personal Web Server (PWS) входит в состав Visual Studio 6 и Visual Basic. Для его инсталяции необходимо сначала установить Windows NT Option Pack. После инсталяции PWS запускается автоматически при включении компьютера.<br> Для тестирования сервера скопируйте HTML-файлы, созданные в предыдущих главах, в папку C:\INETPUB\WWWROOT. Это корневой каталог Web-сервера, если только вы не указали другой каталог в процессе инсталяции. Клиенты, которые подключаются к вашему компьютеру с помощью протокола HTML (через модем или с помощью локальной сети), автоматически попадают в этот каталог. Один из фалов, который автоматически копируется в эту папку, называется DEFAULT.HTM и открывается по умолчанию всякий раз, когда клиент подключается к серверу без указания имени документа.<br> Прежде чем экспериментировать с примерами этой главы, рекомендуется создать виртуальную папку и сохранить в ней файлы. Виртуальной называется обычная папка, например, ASPages, которая отображается Web-сервером на любую папку на жестком диске (т.е. ASPages является синонимом длинного имени папки, например C:\MasteringVB5\HTML\ActivePages\Samples). Для создания виртуальной папки необходимо выполнить следующее.<br> <b>1</b>. Выберите в меню Пуск строку Программы, затем - Microsoft Personal Web Server и Personal Web Manager. Откроется одноименное окно с разделом Main.<br> <div style="text-align:center;"><img src="image/index-image172.gif" alt="Установление связи с приложением на сервере"></div><br> С помощью этой страницы можно запускать и закрывать Web-сервер.<br> <b>2</b>. Щелкните на значке Advanced на левой панели, чтобы просмотреть список виртуальных папок, установленных на компьютере программой инсталяции.<br> <b>3</b>. Чтобы добавить новую виртуальную папку, щелкните на кнопке Add, выберите папку и введите ее имя.<br> Обратите внимание: переключатель Scripts для новой папки уже установлен. Это значит, что вы можете сохранять в ней сценарии. Чтобы в папке можно было хранить сценарии сервера, должен быть установлен переключатель Scripts.<br><br> <br><br> <h1>Включаемые файлы</h1> Одну процедуру можно вызывать из многих сценариев. Чтобы избежать дублирования кода процедуры в каждом из сценариев, включите файл с определением одной или нескольких процедур в ASP-файл. Включаемые файлы могут содержать HTML-код. Их содержимое обрабатывается так же, как операторы сценария.<br> Для включения содержимого текстового файла в ASP-файл используется директива #INCLUDE. Директивой она называется потому, что не является исполняемым оператором — только предписанием для ASP выполнить обычное текстовое включение.<br> Синтаксис директивы #INCLUDE:<br> <!- #INCLUDE VIRTUAL|FILE="filename" -><br> Теги комментария гарантируют, что эта строка не будет послана клиенту по ошибке. Если включаемый файл находится в виртуальной папке или вложенной в виртуальную, то используется ключевое слово VIRTUAL (Виртуальный). Если необходимо указать абсолютный путь к файлу, используйте ключевое слово FILE. В любом случае за ключевым словом следует путь к файлу. Никаких специальных требований к расширению включаемого файла не предъявляется, однако чаще всего используется расширение INC.<br> Для включения файла NumStrings.inc, находящегося в папке Support, вложенной в папку ASPages, используйте следующую строку.<br> <!- #INCLUDE VIRTUAL="/ASPages /Support /NumStrings.inc" -><br> Если файл NumStrings.inc располагается в той же папке, что и ASP-файл, в который он включается, можно использовать директиву #INCLUDE с ключевым словом FILE:<br> <!- #INCLUDE FILE="NumString.inc" -><br> Если файл NumString.inc находится в папке Support, вложенной в папку, в которой помещен ASP-файл, используется следующая строка.<br> <!- #INCLUDE FILE="Support/NumString.inc" -><br> Относительный путь использует папку, в которой хранится ASP-файл, как отправную точку. Поэтому можно использовать символы ../ (две точки и косая черта) для указания родительской папки.<br> <!- #INCLUDE'FILE=". ./Support/NumStrings.inc" -><br><br> <br><br> <h1>Внешний ключ</h1> Поле (столбец) в таблице, которое хранит значение, связанное со значением из другой таблицы, называется внешним ключом. Например, поле в таблице счетов с номером заказчика является внешним ключом. Это же значение в таблице заказчиков является первичным ключом. Внешний ключ должен имеет такой же тип, как и первичный ключ таблицы, с которым он связан.<br><br> <br><br> <h1>Вставка графики</h1> Графика играет важную роль в оформлении Web-страниц. Найти страницу не содержащую графику практически невозможно. Гораздо легче обнаружить страницу, которая не содержит текст. Непосредственно в HTML документ графика не вставляется. Документ содержит специальные теги со ссылками на изображения, которые вставляются броузером при открытии страницы. Поэтому графические файлы загружаются отдельно и помещаются на страницу броузером.<br> В Web (где на счету каждый байт) загрузка должна осуществляться быстро. Желательно поместить максимальное количество информации в минимальном количестве байтов. Несмотря на большое количество графических форматов, доступных сегодня, в Web преобладают два из них<br> • JPEG (Joint Photograph Expert Group)<br> •  GIF (Graphics Interchange Format)<br> Эти форматы сжимают графические файлы до приемлемого размера. Файлы JPEG можно сжать в несколько раз (хотя с потерей некоторых деталей), но они обеспечивают хорошее качество изображения. Проблемы возникают при увеличении сжатого изображения, но графика на Web страницах предполагает просмотр в контексте собственной Web страницы GIF формат является одним из самых старых форматов, поддерживает изображения только в 256 цветах, но имеет несколько достоинств. Это единственный формат, поддерживающий прозрачность изображения, коэффициент его сжатия достаточно хорош.<br> Чтобы вставить изображение в текущий документ, используют тег <IMG> с атрибутом SRC, определяющим размещение изображения на экране. Страница с простым изображением, центрированным на странице, показана на рис. 19.3.<br> <div style="text-align:center;"><img src="image/index-image129.gif" alt="Вставка графики"></div><br> <b>Рис. 19.3.</b> Вставка простого графического файла<br> Исходный HTML-код для показанной страницы приведен ниже.<br> <HTML><br> <head> <link rel="canonical" href="https://www.e-lave.ru//index.htm"/><br> <TITLE>Graphics on the Web pages</TITLE><br> </HEAD><br> <BODY><br> <CENTER><br> <Hl>Placing an Image on a Web page</Hl><br> <IMG SRC="earthl.jpg"><BR><br> Our small planet, centered on the page<br> </CENTER><br> </BODY><br> </HTML><br> Тег <IMG> имеет следующий синтаксис:<br> <br> <IMG SRC="picture.jpg"><br><br> Тег <IMG> распознает дополнительные атрибуты, но необходимо включить атрибут SRC, который задает место нахождения файла изображения на сервере или URL в Web. Большинство дизайнеров использует изображения из того же каталога, что и остальные файлы Web-узла, или из отдельной папки, предназначенной для хранения изображений. Если изображения находятся на том же сервере, что и документ, то используйте относительную ссылку так, чтобы перенести весь проект в другую папку или сервер без редактирования HTML-файла.<br><br> При использовании следующих атрибутов с тегом<br><br> <IMG> броузер может манипулировать изображением несколькими способами:<br><br> • ALIGN — выравнивает изображение по левому краю, по правому, по центру, верхнему и нижнему краям или середине экрана;<br><br> • WIDTH и HEIGHT — задают ширину и высоту изображения;<br><br> •  BORDER — добавляет к изображению обрамление, видимое, если изображение является гиперссылкой,<br><br> • VSPACE и HSPACE — очищают место по вертикали или горизонтали: пустое пространство задается в пикселях;<br><br> • ALT — включает текстовое сообщение, отображающееся на экране, когда пользователь отключает графику;<br><br> •  USEMAP — вставляет растровое изображение.<br><br> Броузер может распознавать размеры изображения, но только после того, как оно будет загружено. Задание высоты и ширины изображения ускоряет воспроизведение, поскольку броузеру нет необходимости переставлять элементы, уже размещенные на странице. Помимо основного назначения атрибутов<br><br> WIDTH и HEIGHT, их можно использовать для изящных трюков.<br><br> Если нужно изменить размер изображения, то можно задать его размер атрибутами WIDTH и HEIGHT, и броузер изменит размер изображения из существующего файла. Например, чтобы создать прямую вертикальную линию шириной в два пикселя, используется квадрат изображения со сторонами в два пикселя и устанавливаются значения <IMG WIDTH=2 and HEIGHT=200 SRC= "pictures.jpg">. Высота изображения будет 200 пикселей. Следует помнить существует опасность искажения изображения атрибутами WIDTH и HEIGHT.<br><br> <br> Атрибут BORDER задает ширину рамки вокруг изображения. Рамки шириной в два пикселя автоматически обрамляют любое изображение, используемое для гиперсвязи. Можно исключить автоматическое обрамление атрибутом BORDER==none или задать размер обрамления изображения, включая атрибут BORDER со значением ширины в пикселях. Обрамление на экране не появится, пока изображение не станет гиперссылкой.<br><br> Один из аспектов, влияющих на вид изображения, особенно когда вокруг изображения размещается текст, - это наличие свободного пространства между изображением и текстом. Это пространство создается атрибутами<br><br> VSPACE и HSPACE. Задайте его размеры по вертикали и горизонтали в пикселях, например, VSPACE=20 или HSPACE=10.<br><br> Атрибут ALT отображает на экране альтернативный текст для пользователей, отключающих в броузере изображения (многие отключают вывод изображений на экран, чтобы ускорить загрузку страницы). Атрибут ALT= "Логотип компании" сообщает пользователю, что изображение не отображается на экране броузера, а его место занимает надпись "Логотип компании". Если по каким-то причинам изображение не передано, то пользователь может сам связаться с конкретным Web-узлом и получить рисунок.<br><br><br> <h1>Встраивание и связывание объектов во время разработки</h1> В этом параграфе рассмотрено создание простого элемента управления OLE Container для демонстрации встраивания объектов во время проектирования. Встраивание во время разработки следует использовать тогда, если заранее известно, какие объекты понадобятся, или требуется ограничить пользователей приложения использованием только определенных объектов (например, документов Word). Этот метод позволяет выполнять и связывание объектов, но во время проектирования предпочтительнее организовывать встраивание. Встраивание объекта можно выполнить двумя способами:<br> •  путем вставки существующего объекта методом "перетащить-и-опустить";<br> •  путем вставки объекта с помощью диалогового окна<br> Insert Object (Вставка объекта).<br> <b>Встраивание методом "перетащить-и-опустить"</b><br> Чтобы внедрить объект с помощью этого способа, необходимо выполнить следующие действия.<br> 1. Открыть в Visual Basic новый проект и выполнить двойной щелчок на значке элемента OLE Container в панели элементов управления, чтобы поместить его экземпляр на форму. Visual Basic отобразит диалоговое окно Insert Object (Вставка объекта), в котором можно указать объект, внедряемый в элемент OLE Container.<br> 2. В диалоговом окне Insert Object (Вставка объекта) (см. рис. 14.2) щелкните на кнопке Cancel. (Это означает, что в форму будет помещен пустой элемент управления OLE Container, и позднее можно будет перетащить туда OLE-объект).<br> 3. В окне Properties (Свойства) элемента OLE Container необходимо задать значение свойства SizeMode равным 1 — Stretch (если объект — рисунок, размеры которого можно изменять) или 2 — AutoSize (если объект — текст или рисунок, размеры которого изменять не следует).<br> Возможные значения свойства SizeMode приведены в табл. 14.1.<br> <b>Таблица 14.1.</b> Значения свойства SizeMode<br><table border=1><br> <tr> <td>Значение<br> <td> <td>Описание<br> <td> </tr> <tr> <td>Clip <br> Stretch<br> AutoSize <br> Zoom<br> <td> <td>Размеры отображаемого объекта равны исходным. Если его размеры превышают размеры окна элемента управления OLE Container, то часть изображения отсекается<br> Размеры изображения объекта подгоняются под размер окна элемента управления OLE Container. При этом изображение может исказиться<br> Размеры окна элемента управления изменяются автоматически, чтобы объект целиком поместился в окно<br> Размеры объекта изменяются так, чтобы он занял максимально возможную часть окна элемента управления OLE Container, сохранив при этом свои первоначальные пропорции<br> <td> </tr> </table>< <br> 4. Запустите приложение, которое поддерживает OLE, и откроите файл. В нашем примере документ Word встраивается в элемент управления OLE Container с помощью перетаскивания документа из приложения-источника (Word) на пустой элемент OLE Container.<br><br> 5. Когда на экране появятся окна запущенных Visual Basic и Word, перетащите документ (или его часть) в пустой элемент управления OLE Container.<br><br> Совет<br><br> Чтобы в окно элемента управления OLE Container поместить часть документа Word, нужно выделить часть документа, а затем перетащить ее, нажав левую кнопку мыши в любом месте выделенной части. Если окно Visual Basic в данный момент невидимо, то для перехода в него нажмите клавиши Alt+Tab, не отпуская кнопку мыши. При появлении на рабочем столе формы Visual Basic перетащите выделенную часть документа в окно элемента управления OLE Container. Выделенный текст будет удален из исходного объекта (документа Word). Чтобы встроить копию выделенного текста (текст в исходном документе сохраняется), во время переноса фрагмента удерживайте нажатой клавишу Ctrl. При выполнении обычной операции перетащить-и-опустить объект из источника удаляется.<br><br> 6. Во время перемещения объекта под указателем-стрелкой появляется небольшой прямоугольник. Опустите перетаскиваемый объект на пустой элемент OLE Container. Через некоторое время документ Word появится в окне элемента управления OLE Container (рис. 14.5).<br><br> Теперь форма содержит документ Word. При запуске приложения документ Word будет отображаться в окне элемента управления OLE Container. Для его редактирования можно использовать меню и инструментальные панели Word.<br><br> <div style="text-align:center;"><img src="image/vstraivanie-i-svjazyvanie-obektov-vo-vremja_1.gif" alt="Встраивание и связывание объектов во время разработки"></div><br><br> <b>Рис. 14.5.</b> Объект, перемещаемый из документа Word, появляется в окне элемента управления OLE Container<br><br> <b>Свойства Class, SourceDoc и Sourceltem.</b> Рассмотрим несколько свойств элемента управления OLE Container. При создании объекта в форме окно Properties (Свойства) будет содержать следующую информацию:<br><br> •  имя прикладной программы, с помощью которой создан объект (свойство<br><br> <br> Class);<br><br> • данные или ссылка на данные (свойство SourceDoc);<br><br> •  образ данных (свойство Sourceltem),<br><br> данное значение устанавливается только при связывании объектов и определяет данные (в пределах исходного файла), связанные с управлением OLE.<br><br> <b>Свойство OLETypeAllowed.</b> Будет исходный документ внедрен или связан с элементом управления OLE Container, зависит от установки значения свойства OLETypeAllowed. Выберите элемент управления OLE Container в форме и найдите в окне Properties свойство OLETypeAllowed. В табл. 14.2 перечислены допустимые значения этого свойства. По умолчанию установлено значение 2 — Either.<br><br> <b>Таблица 14.2.</b> Значения свойства OLETypeAllowed<br><br><table border=1> <tr> <td> Константа<br><br> </td> <td> Значение<br><br> </td> <td> Описание<br><br> </td> </tr> <tr> <td> vbOLELmked <br><br> vbOLEEmbedded<br><br> vbOLEEither<br><br> </td> <td> 0 <br><br> 1<br><br> 2<br><br> </td> <td> Элемент управления<br><br> OLE Container может содержать только связанный<br><br> объект <br><br> Элемент управления<br><br> OLE Container может содержать только встроенный<br><br> объект<br><br> Элемент управления<br><br> OLE Container может содержать либо встроенный,<br><br> либо связанный объект (установлена по умолчанию)<br><br> </td> </tr> </table> Создадим связанный объект, установив значение свойства<br><br> OLETypeAllowed в О (Связанный). Значение этого свойства по умолчанию не задает тип создаваемого OLE-объекта, а лишь позволяет определить тип объекта, который может быть создан. Реально используемый тип OLE-объекта указан в диалоговом окне Insert Object (Вставка объекта). Например, если значение свойства OLETypeAllowed равно 2 то в диалоговом окне Insert Object (Вставка объекта) переключатели Create New и Create from File, а также флажок Link становятся доступными. Если же значение свойства OLETypeAllowed равно 0 (Связанный), то переключатель Create New блокируется (нельзя связаться с несуществующим объектом). Если устанавливается значение 1 (Встроенный), то блокируется флажок Link (Связь).<br><br> <b>Связывание с помощью диалогового окна Insert Object</b><br><br> Метод перетащить-и-опустить – не единственный способ внедрения или связывания объектов в OLE Container. Опишем, как это выполняется с помощью диалогового окна Insert Object (Вставка объекта).<br><br> <br> <b>1</b>. Удалите элемент управления OLE Container из формы Form1 и создайте новый элемент управления OLE Container, воспользовавшись рассмотренными выше рекомендациями.<br><br> <b>2</b>. В диалоговом окне Insert Object установите переключатель Create from File (Создать из файла) и флажок Link (Связь) (рис. 14.6). Как уже упоминалось, флажок Link (Связь) иногда блокируется Это происходит, когда значение свойства OLETypeAllowed равно 1 (Встроенный). Чтобы разблокировать флажок Link (Связь), установите значение свойства OLETypeAllowed в 2 (Связанный).<br><br> <b>3</b>. Щелкните на кнопке Browse (Обзор), чтобы отыскать требуемый файл.<br><br> <b>4</b>. Выбранный файл появится в окне элемента управления OLE Container. При этом может быть видна только его часть. Чтобы увидеть весь объект, измените размеры окна элемента управления.<br><br> <div style="text-align:center;"><img src="image/vstraivanie-i-svjazyvanie-obektov-vo-vremja_2.gif" alt="Встраивание и связывание объектов во время разработки"></div><br><br> <b>Рис 14.6</b> Чтобы связать объект, установите флажок Link (Связать) в диалоговом окне Insert Object<br><br> В зависимости от установленного свойства SizeMode изображение в связанном файле может быть искажено. Теперь в элементе управления содержится ссылка на объект, а не его копия. Всякий раз, когда приложение-сервер изменяет связанный объект, объект в контейнере также изменяется.<br><br> Примечание<br><br> Когда вставляемый объект связывается с оригиналом, приложение-контейнер не содержит никаких данных. После того, как объект вставлен, в приложении-контейнере вы уведете не его копию, как это происходит при внедрении, а изображение объекта, который был вставлен.<br><br> Если связанный объект является документом Word, то он появится в окне элемента управления OLE Container (см. рис. 14.5). В ячейке, содержащей значение свойства SourceDoc, содержится путь и имя файла связанного объекта.<br><br> <b>5</b>. Оставьте окно Visual Basic открытым, когда открыт документ Word. Внесите изменения в исходный документ и убедитесь, что связанный объект в окне Visual Basic изменяется в реальном масштабе времени. Чтобы это увидеть, запускать приложение не требуется. В режиме проектирования связанный документ модифицируется в реальном масштабе времени, как только редактируется оригинал.<br><br> <br> <b>Сохранение встроенных объектов и доступ к ним</b><br><br> Встроенные объекты создаются приложением-сервером, а сохраняются в приложении-контейнере. При встраивании объекта связь между содержимым элемента управления OLE Container и первоначальным объектом не устанавливается. Для редактирования встроенного объекта нужно обратиться к ресурсам программы, с помощью которой объект создан, но данные для нее предоставляет приложение-контейнер. Кроме того, данные во встроенном объекте не сохраняются автоматически. Для сохранения встроенного объекта и изменений, сделанных приложением-сервером, используется метод SaveToFile. Синтаксис этого метода:<br><br> OLEl.SaveToFile filenumber<br><br> Переменная<br><br> filenumber - это числовое значение, определяющее номер открытого файла. Номер передается в двоичном коде.<br><br> Ниже приведен фрагмент программы для ввода имени файла и сохранения встроенного документа с помощью метода SaveToFile.<br><br> <b>Программа 14.1.</b> Сохранение OLE-данных<br><br> Private Sub mnuFileSaveas Click() <br><br> Dim fnum As Integer<br><br> On Error GoTo Cancel<br><br> fnum = FreeFile<br><br> CommonDialogI.ShowSave<br><br> ' Вывод на экран диалогового окна Save As<br><br> Open CommonDialogI.FileName For Binary As ftfnum<br><br> OLE1.SaveToFile (fnum)<br><br> Close ttfnum<br><br> Exit Sub <br><br> Cancel:<br><br> MsgBox "Could not save file" ' (Файл сохранен не был)<br><br> Close #fnum <br><br> End Sub<br><br> Для загрузки объекта, сохраненного как файл данных, предназначен метод ReadFromfile. Его синтаксис подобен синтаксису метода SaveToFile. Следующий<br><br> фрагмент программы реализует возможность чтения          содержимого элемента управления OLE Container из файла (в котором содержимое было сохранено методом SaveToFile).<br><br> <b>Программа 14.2.</b> Чтение OLE-данных<br><br> Private Sub mnuFileOpen_Click() <br><br> Dim fnum As Integer<br><br> On Error GoTo Cancel<br><br> CommonDialogI.ShowOpen ' вывод на экран диалогового окна   Open<br><br> Fnum = FreeFile<br><br> Open CommonDialogI.FileName For Binary As #fnum<br><br> OLE1.ReadFromFile (fnum)<br><br> Close #fnum <br><br>   Exit Sub <br><br> Cancel:<br><br> MsgBox "Could not load file"      ' (Файл загружен не был)<br><br> Close #fnum <br><br> <br> End Sub<br><br> Примечание<br><br> Если значение свойства OLEType — 0 (vbOLELinked), то в указанном файле сохраняется только информация о<br><br> связи и о данных изображения. Если значение свойства OLEType — 1 (vbOLEEm), то данные из объекта сохраняются с помощью метода SaveToFile.<br><br> Если вы сохраняете файл с внедренным объектом, то с ним сохраняется следующая информация:<br><br> • имя прикладной программы, создавшей объект;<br><br> • данные объекта,<br><br> • метафайл изображения объекта;<br><br> Если вы сохраняете файл со связанным объектом, то с ним сохраняется следующая информация:<br><br> • имя прикладной программы, создавшей объект;<br><br> • имя файла-объекта;<br><br> •  метафайл изображения объекта.<br><br> Данные, сохраненные методом SaveToFile, доступны только приложению-контейнеру и только с помощью метода ReadFromFile.<br><br> Названные методы являются методами Visual Basic. Они вызываются непосредственно из прикладных программ, при этом информация о формате представления исходных данных не требуется.<br><br> <b>Использование оперативного редактирования</b><br><br> При запуске приложения связанный или встроенный объект отображается прямо в форме Visual Basic. Выполнив двойной щелчок на объекте, пользователь может начать его редактирование. Открыть встроенный объект для редактирования можно несколькими способами (см. параграфы " Общие свойства элемента управления OLE Container" и " Общие методы элемента управления OLE Container” далее в главе). Самый простой способ открыть приложение, предоставляющее объект для встраивания и средства редактирования (меню и панели инструментов) - выполнить двойной щелчок на объекте.<br><br> Оперативное редактирование (или оперативная активация) применяется для встроенных объектов. Пользуясь этой возможностью, можно редактировать встроенный объект внутри OLE контейнера. Функциональные возможности приложения-сервера инкорпорируются в контейнер. Оперативное редактирование доступно, если приложение-сервер поддерживает автоматизацию OLE. Если выбрать встроенный объект, то меню и панели инструментов заменят меню и панели инструментов VB-приложения (рис. 14.7). Оперативное редактирование позволяет приложению-контейнеру заимствовать функциональные возможности приложения-сервера встроенного объекта.<br><br><div style="text-align:center;"><img src="image/vstraivanie-i-svjazyvanie-obektov-vo-vremja_3.gif" alt="Встраивание и связывание объектов во время разработки"></div><br><br> <b>Рис. 14.7.</b> Оперативное редактирование документа Word в окне элемента управления в приложении Visual Basic<br><br> Предупреждение<br><br> Некоторые приложения, использующие OLE, не могут отобразить собственные панели инструментов для оперативного редактирования объекта. Эта проблема связана с самой программой, и средствами VB-приложения не решается.<br><br><br> <h1>Встраивание сценария</h1> Сценарий содержится в обработчике события различных элементов управления и процедурах, как обычное приложение Visual Basic. Размещаются сценарии в файле HTML в разделе SCRIPT, который ограничивается парой тегов <SCRIPT>. Поскольку существует несколько языков написания сценария, то в теге <SCRIPT> необходимо указать язык написания сценария. Пример типичного раздела SCRIPT приведен ниже.<br> <SCRIPT LANGUAGE = VBScript><br> (код сценария) <br> </SCRIPT><br> Когда броузер встречает тег <SCRIPT>. он вызывает VBScript-интерпретатор для трансляции и выполнения соответствующего кода. Код, как правило, находится в обработчике события, но можно вставить процедуры, которые вызываются из обработчика события. Если код появляется вне обработчика, как в следующем примере, то он выполняется сразу после загрузки страницы, но до воспроизведения документа броузером на экране. Следующий сценарий отображает текущую дату, как только загружается содержащая ее страница.<br> <SCRIPT LANGUAGE ="VBScript"><br> MsgBox "The date is " & Date <br> </SCRIPT><br> Все встроенные элементы управления имеют свойство (или атрибут) Name, которое используется для их идентификации в сценарии. Поскольку встроенный элемент размешается на форме, его полное имя состоит из имени формы, за которым после точки следует имя элемента управления Элемент управления Button, размещенный на форме RegisterForm с помощью строки<br> <INPUT TYPE=BUTTON NAME="DateBttn" VALUE="Show Date"> <br> доступен в пределах сценария с помощью следующее выражения. <br> AppForm.DateBttn <br> Можно изменить заголовок DateBttn, используя следующую ниже команду.<br> AppForm.DateBttn.Value = "DATE"<br> Встроенные элементы управления, кроме элемента управления<br> Select, имеют атрибут VALUE. Значением кнопки является ее заголовок, а значением элемента управления Text — текст, отображенный в элементе управления. Аналогично, значением элемента управления Select является свойство Selectlndex, являющееся индексом текущего выделенного элемента. Свойствами Value и Selectlndex различных элементов можно управлять в пределах сценария.<br> Наконец, наиболее употребляемым событием в сценариях Web-страниц является событие onClick. которое генерируется после щелчка на элементе управления. Элементы управления Text, TextArea и Select не распознают это событие. Наиболее употребляемым событием для этих элементов управления является onChange — событие, происходящее при изменении текста в элементах управления Text и TextArea или при новом выборе в элементе управления Select.<br> Вот и все необходимое — начнем написание сценария для Web-страниц. VBScript похож на Visual Basic, поэтому сразу перейдем к примерам.<br><br> <br><br> <h1>Встроенные объекты</h1> ASP содержат ряд встроенных объектов, которые освобождают разработчика от тяжелого и неблагодарного кодирования доступа к деталям запроса (например, к его параметрам), поступающего вместе с URL, и переадресации вывода на компьютер клиента.<br> <b>Request.</b><br> Обеспечивает доступ к параметрам запроса, поступившего на сервер вместе с URL. Эти параметры — значения элементов управления на форме — могут быть любой строкой, заданной клиентом из локального сценария. С помощью этого объекта можно получить значения существующих на компьютере клиента cookie (заготовка) (cookie - доел. "пирожок" - строка с данными о пользователе, возвращаемая Web-сервером при регистрации пользователя - прим. ред.) или создать новые.<br> <b>Response.</b><br> Используется для ответа на запрос клиента. Ответ — это выходной поток, переданный на компьютер клиента в виде HTML-документа.<br> <b>Application.</b><br> Предоставляет события для установки значений переменных, используемых пользователями ASP-приложения.<br> <b>Session.</b><br> Предоставляет информацию, касающуюся одного пользователя во время его взаимодействия с приложением. Каждому пользователю назначается отдельный объект Session для хранения значений при переходе от одной страницы к другой. Значения переменных объекта Session после сеанса связи удаляются.<br> <b>Server.</b> Позволяет серверному сценарию создавать экземпляры компонентов ActiveX и размещать их на сервере. Метод CreateObject объекта Server практически идентичен одноименной функции Visual Basic. С помощью объекта Server создаются объектные переменные, позволяющие расширить возможности приложения по сравнению с HTML.<br><br> <br><br> <h1>Ввод данных с помощью</h1> Visual Data Manager<br> Visual Data Manager также может быть использован и для ввода данных. Двойной щелчок на имени таблицы в окне Database открывает таблицу в режиме ввода данных (рис. 17.10), в котором можно редактировать, добавлять и удалять записи.<br> Как выполнять эти операции из кода мы покажем позже, а сначала рассмотрим основные понятия разработки базы данных, исследуя структуру базы данных BIBLIO.<br> <div style="text-align:center;"><img src="image/vvod-dannyh-s-pomoshhju_1.gif" alt="Ввод данных с помощью"></div><br> <b>Рис 17.10</b> Visual Data Manager можно использовать и для ввода данных<br><br> <br><br> <h1>Ввод данных</h1> Элемент управления Data — мощный инструмент просмотра таблиц и редактирования их содержимого, но как быть с вводом новой информации или удалением существующих записей? Эти действия требуют нескольких строк кода. Ничего сложного в этом нет, просто нельзя полагаться на бескодовый подход к работе с элементом управления Data при вводе данных. Для записи введенных данных используются следующие методы.<br> <b>• AddNew.</b> Добавляет запись в таблицу.<br> <b>•  Delete.</b> Удаляет текущую запись.<br> <b>• Update.</b> Записывает текущую запись в базу данных.<br> <b>•  Refresh.</b> Перезагружает данные из базы данных (обновляет RecordSet).<br> Примечание<br> На самом деле элемент Data можно использовать для ввода данных. Для этого установите свойство EOFAction элемента управления Data в 2 — vbEOFActionAddNew. Когда пользователь, находясь на последней записи, щелкает на кнопке Next, элемент Data отображает новую пустую запись. Ее можно заполнить и записать в базу данных. Данный метод не нагляден и не отражает способ написания профессиональных приложений для ввода данных.<br> <b>AddNew.</b> Чтобы добавить новую запись в таблицу, вызовите метод AddNew объекта RecordSet (RecordSet имеет тип Table). Новая пустая запись добавляется в конец набора RecordSet, и на нее устанавливается элемент Data. Теперь можно ввести данные.<br> <b>Update, Refresh.</b><br> Когда пользователь сообщает о намерении сохранить новую запись в базе данных (щелкая на кнопке ОК. или перемещаясь на новую запись), то вызывается метод Update объекта RecordSet. Чтобы отклонить данные, вызовите метод Refresh, который обновляет набор записей, прочитав его из базы данных. Поскольку добавленная запись не была сохранена в базе данных, то при обновлении RecordSet она будет потеряна.<br> <b>Delete.</b> Для удаления записи вызовите метод Delete объекта RecordSet. Из RecordSet будет удалена текущая запись, но только после того, как механизм JET проверит все задействованные отношения. Если база данных содержит некоторые ссылки, то удалить запись, связанную с другой записью, нельзя. Мы не будем подробно рассматривать целостность ссылок, но покажем, как механизм JET поддерживает ее в базе данных.<br><br> <br><br> <h1>Выполнение SQL-выражений</h1> В выполнении SQL-выражений ADO проявляют чрезвычайную гибкость. SQL-выражение можно выполнить с любым их трех объектов (Connection. Command и RecordSet). Каждый из них имеет свои преимущества и недостатки. Проведем их сравнительный анализ.<br> <b>Запрос с помощью объекта Connection</b><br> Первый способ выполнить SQL-выражение — использовать метод Execute объекта Connection.<br> ADOConn.Execute "SELECT * FROM Products", numRecords, adCmdText<br> Второй (необязательный) аргумент указывает количество записей, затронутых запросом действия или возвращаемых запросом выбора. Последний аргумент (не обязательный) определяет, является первый аргумент SQL-выражением (aCmdText) или сохраненной процедурой (aCmdStoredProc).<br> <b>Запрос с помощью объекта Command</b><br> Второй способ — создание объекта Command и вызов его метода Execute Объект Command содержит множество свойств. Но указать необходимо хотя бы свойства ActiveConnection (Текущее соединение) и CommandText (Текст команды), как показано в следующем примере.<br> With ADOConn<br> .ActiveConnection = connectString<br> .CommandText = "SELECT * FROM Products", _ <br> numRecords, adCmdText<br> .Execute <br> End With<br> <b>Запрос с использованием объекта RecordSet</b><br> Наконец, можно использовать метод Open объекта RecordSet:<br> ADORSet.Open SQLStatement, connectString, RecordsetType, _ <br>   LockType, CommandType<br> Аргумент<br> RecordType задает тип объекта RecordSet и имеет одно из следующих значений:<br> • adOpenDynamic;<br> • adOpenForwardOnly;<br> •  adOpenKeyset;<br> •  adOpenStatic.<br> Примечание<br> Объекты RecordSet этих типов объясняются в следующем параграфе.<br> Аргумент<br> LockType задает тип блокировки при обращении к базе данных нескольких пользователей одновременно. Его значением могут быть:<br> •  adLockBatchOptimistic;<br> •  adLockOptimistic;<br> •   adLockPessimistic;<br> • adLockReadOnly.<br> Примечание<br> Управление блокировкой и его типы в следующем параграфе рассмотрены подробнее.<br> Создадим объект RecordSet с использованием простого SQL-выражения.<br> Set ADORSet = "SELECT * FROM Products", connectString, _<br> adOpenForwardOnly, adLockReadOnly, adCmdText<br> Если необходимо выполнить SQL-выражение, оказывающее воздействие на большое количество записей или сохраненных процедур, то необходимо использовать объект Command. Он не создает курсор<br> (см. следующий параграф), и является единственным механизмом задания параметров. Избегайте использования SQL-выражений, выполняемых с помощью объекта RecordSet. Этот объект разрабатывался для приема наборов записей, а не для их создания. Кроме того, только объект Command поддерживает транзакции. Так что если требуется выполнить запрос на действие (который реализуется как транзакция), необходимо использовать объект Command.<br><br> <br><br> <h1>Взаимодействие клиент-сервер</h1> На рис. 22.1 показана типичная Web-страница для ввода информации, необходимой серверу для извлечения данных из базы. Это страница Infoseek - наиболее популярного справочного Web-узла. В данном примере аргументом поиска является строка "VB + books" (поиск документов VB, содержащих слово "books").<br> <div style="text-align:center;"><img src="image/index-image170.gif" alt="Взаимодействие клиент-сервер"></div><br> <b>Рис. 22.1.</b> Поиск документов по ключевому слову с помощью Web-узла Infoseek<br> Нажав кнопку Search (Поиск), клиент пересылает на сервер следующий URL<br> http://www.infoseek.com/Titles?qt=VB+%2Bbooks&rf=11&lk=noframes&st=10<br> Здесь<br> Titles — это имя приложения на сервере, которое будет выполнять поиск в базе данных и возвращать результат. Оно не является ASP-приложением, но в данном случае это не имеет значения. Для ASP-приложения понадобились бы те же параметры, и оно возвратило бы тот же результат. Все, что нужно знать клиенту, — это имя приложения, которое обрабатывает параметры его запроса на сервере. Эта информация помещается в тег <FROM> документа (подробности о размещении элементов управления на Web-странице см. в гл. 20).<br> Запустите Internet Explorer, подключитесь к узлу Infoseek и передайте аргументы поиска. Когда сервер передаст результаты поиска, вы увидите имя приложения, выполнившего поиск в базе данных на сервере, и аргументы поиска (строку, напоминающую приведенную выше) в поле Address (Адрес) броузера.<br> Информация, введенная пользователем в форму, передается на сервер в виде значений параметров, за которыми указано URL приложения, предназначенного для обработки этих параметров. Параметры имеют имя и значение.<br> parameter=value<br> Если для ввода параметров используется форма, то именами параметров являются имена элементов управления на форме, а значениями — значения элементов. Пары имя-значение отделяются символом '&'.<br> LastName=Petroutsos&FirstName=Evangelos<br> Строка с параметрами присоединяется в конец URL с помощью вопросительного знака после имени приложения, обрабатывающего запрос на сервере (имя ASP-файла). Если имя элемента управления содержит пробелы, то каждый из них замещается знаком "+".<br> <br> Title=Mastering+VB6<br><br> В примере с узлом Infoseek имя первого параметра - qt<br><br> (сокращение от query text - текст запроса), а его значение - строка "VB+%2Bbooks". В ней пробел заменен знаком "+", а плюс в оригинале запроса - на %2В (2В является шестнадцатеричным значением ASCII-кода знака плюс). Параметр lk=noframes сообщает приложению на сервере, что генерируемый HTML-документ не должен содержать панелей (frame); параметр st=10 определяет,<br><br> что имена найденных в результате поиска файлов должны выводиться по 10 штук. На рис. 22.1 видно, что в результате поиска найдено 80000 файлов, но выводиться они будут по 10 за один раз. Всякий раз, когда пользователь выполняет щелчок на гиперссылке "Next 10", значение st увеличивается на 10 (а при щелчке на гиперссылке "Previous 10" — уменьшается на 10). Это вся информация, необходимая приложению Titles для отображения страницы с результатами поиска.<br><br> Примечание<br><br> В протоколе HTML используется множество символов, имеющих специальные значения, которые нельзя помещать в строку параметров. Например, нельзя использовать символы "/" и "&". Поэтому все специальные символы (т.е. не являющиеся буквой или цифрой) должны быть заменены шестнадцатеричным значением их ASCII-кода, перед которым указан знак процента (%).<br><br> Web-сервер запускает приложение, имя которого указано в строке URL, и передает ему полученные параметры. Программы, обрабатывающие запрос пользователя в реальном времени, обычно называют сценариями (scripts). Большая их часть написана на языке Perl.<br><br> Примечание<br><br> Perl — это аббревиатура от Practical Extraction and Report Language (Практический язык для извлечения данных и создания отчетов). Он является языком написания сценариев для Unix, позволяющим создавать мощные приложения для обработки данных и текстов. Однако рядом с Visual Basic и VBScript язык Perl выглядит подобно китайской грамоте. Программистам, работающим с Windows, он обычно незнаком.<br><br><br> <h1>Взаимодействие с компонентами</h1> ActiveX<br> Функциональные возможности активных серверных страниц не ограничиваются средствами VBScript и встроенными объектами, описанными в этой главе. Метод CreateObject объекта Server в ваших серверных страницах выполняет ту же роль, что и функция Create0bject() в VB-приложениях. Он позволяет использовать возможности как стандартных OLE приложений-серверов, так и пользовательских компонентов ActiveX (ActiveX DLL). Очень важно, что возможно взаимодействие и с компонентами ActiveX EXE, но при этом может возникнуть ряд проблем. ActiveX DLL являются активными (in-process) компонентами - они загружаются вместе с вызывающим приложением и становятся его частью. Компоненты ActiveX EXE являются пассивными (out-of-process) — независимо от числа вызвавших приложений в оперативной памяти всегда присутствует только один экземпляр компонента. Это может привести к трудноразрешимым проблемам. Например, когда одно приложение присваивает значение глобальной переменной, а другое - изменяет это значение. Поэтому чрезвычайно сложно разработать компонент ActiveX EXE, работающий корректно в любой ситуации.<br> В гл. 15 мы разработали компонент StringClass (проект NumStr на компакт-диске). В качестве напоминания в табл. 22.2 приведено описание трех методов компонента StringClass для манипулирования числами и строками.<br> <b>Таблица 22.2.</b> Методы компонента StringClass<br><table border=1><br> <tr> <td>Метод<br> <td> <td>Действие<br> <td> </tr> <tr> <td>Number2String(number) <br> LowerCaps(string)<br> Integer2Binary(number)<br> <td> <td>Преобразует переданный ему числовой аргумент в строку и возвращает ее. Если вызвать метод с числом 3462 в качестве аргумента, то возвращается значение "три тысячи четыреста шестьдесят два"<br> Преобразует строку аргумента в нижний регистр (первые буквы всех слов становятся прописными) и возвращает новую строку. Если передать этому методу в качестве аргумента строку "MASTERING visual basic", то будет возвращена строка "Mastering Visual Basic"<br> Преобразует целочисленный аргумент в двоичное число и возвращает двоичное значение в виде строки. Если передать ему в качестве аргумента число 312, то результатом будет строка "000100111000" (без кавычек)<br> <td> </tr> </table>< <br> Чтобы использовать компонент StringClass в ASP-файле, сначала необходимо создать DLL-файл и зарегистрировать его в вашей системе. Процесс создания и регистрации DLL описан в гл. 15.<br><br> Для доступа к методам компонента StringClass необходимо создать объектную переменную с помощью следующего оператора.<br><br> <%<br><br> Set STR=Server.CreateObject ("NumStrings.StringClass")<br><br> %><br><br> Переменная<br><br> STR служит шлюзом для методов, предоставляемых классом StringClass. Преобразовать число в строку можно следующим образом.<br><br> <% STR.Nuniber2String(4325) %><br><br> На рис. 22.11 показана страница NUMSTR.ASP, которая использует метод Number2String компонента StringClass для отображения чисел в виде строк. Обратите внимание: метод Number2String возвращает строку в нижнем регистре. Для перевода первых букв всех слов в верхний регистр воспользуйтесь методом LowerCaps. Можно объединить вызовы обоих методов в одно выражение.<br><br> <% STR.LowerCaps(STR.Number2String(4325)) %><br><br> <div style="text-align:center;"><img src="image/index-image184.gif" alt="Взаимодействие с компонентами"></div><br><br> <b>Рис. 22.11.</b> Страница NUMSTR.ASP взаимодействует с компонентом StringClass, расположенным на сервере, для форматирования чисел<br><br> Полный исходный текст файла NUMSTR.ASP находится в папке этой главы на компакт-диске.<br><br> Для тестирования этого файла необходимо скопировать его с компакт-диска в корневую папку Web-сервера и открыть его с помощью Internet Explorer, задав URL файла в поле Address броузера (127.0.0.1/numstr.asp). Для регистрации компонента StringClass необходимо создать DLL, а затем зарегистрировать ее с помощью утилиты REGSVR32. Откройте проект NumStr с помощью Visual Basic и выберите команду Build StringClass.dll меню File. После того как DLL-файл создан, закройте Visual Basic, откройте окно DOS и перейдите в папку с DLL-файлом. Затем напечатайте следующую команду.<br><br> С:\WINDOWS\SYSTEM\REGSVR32 STRINGCLASS.DLL<br><br> Более подробно о регистрации компонентов ActiveX можно прочесть в параграфе "Регистрация компонентов ActiveX " гл. 15.<br><br> Как только компонент зарегистрирован, любой сценарий, выполняемый на вашем сервере, может обращаться к его методам, как к методам системных компонентов. Так вы можете зарегистрировать все компоненты, разработанные в гл. 15. Обратите внимание: перед использованием эти компоненты загружать не нужно.<br><br><br> <h1>Взаимодействие с объектом-контейнером</h1> Предполагается, что элементы управления ActiveX используются как стандартные блоки при конструировании приложения. Поэтому они располагаются на формах или других элементах управления, которые могут функционировать как контейнеры. Разработчику элементов управления ActiveX необходим доступ к свойствам контейнера, чтобы корректировать вид элемента управления в соответствии со значениями свойств контейнера. Существует два весьма полезных для конструирования элементов управления объекта: Extender и Ambient.<br><br> <br><br> <h1>Взаимодействие с</h1> Word<br> Microsoft Word предоставляет многочисленные объекты, которые можно использовать для программирования любых операций, которые могут быть выполнены с помощью команд меню. Например, можно открыть документ, подсчитать количество слов и символов, заменить в нем некоторые слова, и снова сохранить его на диске — и все это без вмешательства пользователя. Все необходимые действия могут быть выполнены в фоновом режиме, без вывода окна Word на рабочий стол.<br> Объект верхнего уровня в Word — это объект Application, который представляет собой текущий экземпляр приложения. Можно воспользоваться объектом Application, чтобы обратиться к некоторым общим свойствам окна Word, включая свойство Visible (с помощью которого приложение можно сделать невидимым) и к активным документам (чтобы переключиться на обработке одного из открытых документов).<br> Ниже в иерархии под объектом Application располагается семейство Documents, которое содержит объект Document<br> для каждого открытого документа. Используя объектную переменную типа Document, можно обращаться к любому открытому документу (или открывать и создавать новые документы). Наиболее важный объект, который предоставляет каждый документ - это объект Range, представляющий собой непрерывную часть текста. Эта часть может быть словом, частью слова, символами или целым документом. Используя методы объекта Range, можно вставлять новый текст, форматировать, существующий текст (или удалять его), и так далее.<br> Чтобы адресовать специфические элементы текста, можно воспользоваться следующими семействами:<br> •  семейством Paragraphs (Абзацы), состоящим из объектов типа Paragraph, которые представляют собой абзацы текста;<br> •  семейством Words (Слова), состоящим из объектов типа Word, которые представляют собой слова;<br> •  семейством Characters (Символы), состоящим из объектов типа Character, которые представляют собой отдельные символы.<br> Например, можно получить доступ ко всем абзацам документа с помощью семейства Paragraphs (Абзацы) объекта Document. Если применить тот же самый метод к текущему выделению (предоставленному объектом Selection), можно получить доступ ко всем абзацам в выделенном тексте. В следующем параграфе будут исследованы элементы базовых объектов, предоставляемых Word, чтобы продемонстрировать, как можно использовать их непосредственно в программе Visual Basic.<br> <br> Чтобы обратиться к таким объектам, как папки, следует создать место для хранения MAPI сообщений. Память MAPI-сообщении — это источник данных, который предоставляет все типы информации, хранимой в Outlook. Приложение Outlook является, на самом деле, интерфейсной частью базы данных, которая содержит разнотипную информацию. Чтобы обратиться к этой информации, необходимо сначала создать объектную переменную mNameSpace.<br><br> Set mNameSpace = OLApp GetNamespace("MAPI")<br><br> Приведем фрагмент программы, позволяющий организовать доступ к информации, сохраненной Outlook.<br><br> Dim OLApp As Outlook.Application <br><br> Dim mNameSpace As NameSpace<br><br> Set OLApp = Create0bject ("Outlook.Application")<br><br> Set mNameSpace = OLApp.GetNamespace("MAPI")<br><br> Используя переменную mNameSpace,<br><br> можно обращаться к различным папкам Outlook. Для доступа к папке используется метод GetDefaultFolder, в который в качестве параметра передается имя папки. Метод возвращает объектную переменную, которая обеспечивает свойства и методы для доступа к объектам, хранящимся в папке.<br><br> К папкам, обслуживаемым Outlook, можно обращаться с помощью следующих констант (их имена очевидны):<br><br> olFolderContacts                olFolderDeletedltems       olFolderDrafts olFolderInBox              olfolder Journal                olFolderNotes olFolderOutBox             olFolderSentMail                olFolderTask<br><br> Чтобы получить информацию об объектах, хранящихся в  папке Contacts (Контакты), можно воспользоваться следующим выражением:<br><br> Set AllContacts = _<br><br> mNameSpace.GetDefaultFolder(olFolderContacts).Items<br><br> После выполнения этого оператора свойство Items возвратит семейство объектов, хранящихся в папке.<br><br> Каждая папка содержит разнотипную информацию. Папка<br><br> Contacts (Контакты) состоит из объектов Contactltem, папки InBox и OutBox содержат объекты MailIterm, папка Calendar (Календарь) содержит семейство объектов Appointmentltem. Каждый из этих объектов обладает большим количеством свойств, являющихся, в свою очередь, атрибутами самого объекта. Например, объект Contactltem<br><br> <br> обладает свойствами, установка значений которых влияет только на параметры контакта.<br><br> Чтобы просмотреть свойства объекта Contactltem, откройте Object Browser, выберите Outlook в окне Class (Класс), а в списке Classes (Классы) щелкните на элементе Contactltem (рис. 14.19). Члены выбранного класса появятся на правой панели. Чаще всего в приложениях используются следующие свойства: LastName, FirstName, Email1 Address, Title, и свойства, начинающиеся с HomeAddress и BusmessAddress. Это поля, которые можно заполнить в диалоговом окне Contact, добавляя или редактируя контакт в Outlook. Если требуются дополнительные поля, можно создать свои собственные. К этим свойствам также можно обращаться по именам полей, но такой способ здесь не рассматривается. Для получения более подробной информации следует обратиться к справочной системе Outlook.<br><br> <div style="text-align:center;"><img src="image/vzaimodejstvie-s_1.gif" alt="Взаимодействие с"></div><br><br> <b>Рис. 14.19.</b> Свойства объекта Contactltem<br><br> Общим для всех объектов является свойство EntrylD (идентификатор объекта), являющееся значением типа Long. Значения EntrylD аналогичны значениям ID, которые присваиваются различным записям в базе данных (они идентифицируют запись и предназначены только для этого). Разумеется, нелепо требовать, чтобы пользователь выбирал контакт или сообщение по его EntrylD (более подходящими для этого представляются списки имен или компаний), но их можно использовать для создания закладок соответствующих записей. Если пользователь из Outlook заполняет узлы, перечисленные в окне элемента управления Tree View, сообщениями или контактами, он может воспользоваться полями EntrylD в качестве ключей для соответствующих узлов. Используя такой способ, пользователь может выбирать объекты, основываясь на более содержательной информации, например, имени абонента, названии компании или темы сообщения. Затем, используя значение ID, можно немедленно разыскать требуемый объект в соответствующей папке. В последующих" параграфах будут приведены примеры использования свойства EntrylD.<br><br><br> <h1>Взаимодействие сервер-клиент</h1> Web-узел, состоящий из HTML-страниц, является интерактивным только в том смысле, что позволяет пользователю переходить от одной страницы к другой по гиперссылкам. Клиент запрашивает документы с сервера, и сервер их предоставляет. В этой простой модели взаимодействия, которая преобладает в Web сегодня, Web-страницы находятся на дисках серверов, ожидая запроса клиента. Очевидно, что обновление информации влечет за собой редактирование HTML-документов. Неудивительно, что большинство узлов не предоставляет новейшую информацию.<br> Недостатком этой модели является то, что клиент в общении с сервером не может связаться с сервером так, чтобы информация пересылалась в обоих направлениях. Разработка такого шлюзового интерфейса как Common Gateway Interface<br> (CGI) предоставляет возможность Web-разработчикам придать содержимому Web динамику Клиент может послать специфический запрос на сервер (например, "покажите мне счета, подписанные в прошлом месяце" или "покажите мне обычаи Северной Америки"). Сервер не возвращает статическую страницу (которая существует на диске и может быть названа своим именем). Вместо этого он запускает сценарий или приложение, которые вырезают "живые" данные из базы данных, форматируют данные в HTML-документ и пересылают документ клиенту. Клиент видит новейшую, точную информацию.<br> Недостаток этого подхода — сложность в реализации и поддержке. Для упрощения программирования CGI Microsoft предлагает несколько технологий. Наиболее новой и популярной является ASP — Active Server Pages (Сервер активных страниц - см. гл. 22). Разработка ASP так же проста, как и разработка приложений VB.<br><br> <br><br> <h1>Web-приложение</h1> Мы ознакомились с разработкой Web-страниц, взаимодействующих с сервером. Семейство Web-страниц образует Web-сервер. Что же представляет собой 'Web-приложение? Является ли оно приложением, работающим в<br> Internet? Ответ -и да, и нет. Это приложение клиент-сервер, работающее в Internet, но в остальном Это - обычное приложение. Web-приложение является Web-узлом, который использует ASP-файлы на сервере. Окно обычного приложения соответствует одной странице Web-приложения. Страницы обмениваются информацией с помощью cookies или объектов Application и Session.<br> Для эффективного использования объектов Application и Session необходимо понимать, что представляют собой ASA-файлы. Каждое Web-приложение имеет файл GLOBAL.ASA, находящийся в корневом каталоге сервера. Этот файл содержит обработчики событий объектов Application и Session. Web-сервер ищет его, когда запускается Web-приложение или начинается сеанс связи с клиентом. Запускается Web-приложение при первом подключении к серверу. При этом сервер ищет файл GLOBAL.ASA, чтобы выполнить обработчик события Application_OnStart. Если обработчик найден, он выполняется.<br> Одновременно создается новый сеанс. Сервер просматривает<br> GLOBAL.ASA в поисках обработчика события Session_OnSrart и выполняет его, если таковой обнаружен. При этом создается новый объект Session, ассоциируемый с подключившимся клиентом. Этот объект существует в течение всего сеанса. Когда сеанс прекращается, сервер выполняет обработчик события Session_OnEnd (который должен находиться в файле GLOBAL.ASA).<br> Рассмотрим типичный файл GLOBAL.ASA. Приведенный ниже файл содержит код, который поддерживает счетчик количества пользователей, которые посетили стартовую страницу узла (переменная Visitors) и пользователей, которые подключены к узлу в данный момент (переменная Viewers).<br> <b>Программа 22.10. </b>Типовой файл GLOBAL.ASA<br> <SCRIPT LANGUAGE=VBScript RUNAT=Server><br> Sub Application_OnStart<br> Application ("Viewers") =0 <br> End Sub<br> Sub Session_OnStart<br> <br> Application.Lock<br><br> Application ("Viewers")="Application("Viewers")+1<br><br> Application ("Visitors")="Application("Visitors")+1<br><br> Application.Unlock<br><br> Session ("User") "Request.ServerVariables("REMOTE_ADDR") <br><br> End Sub<br><br> Sub Session_OnEnd<br><br> Application.Lock<br><br> Application ("Viewers")="Application("Viewers")-1<br><br> Application.Unlock <br><br> End Sub <br><br> </SCRIPT><br><br> При запуске Web- сервер создает новую переменную Viewers. Этой переменной присваивается значение 0, которое увеличивается на 1, когда начинается новый сеанс, и уменьшается на 1, когда сеанс заканчивается. Таким образом, значение этой переменной всегда равно количеству пользователей, которые подключились к серверу.<br><br> Значение переменной Visitors<br><br> увеличивается на 1, когда начинается новый сеанс. Она предназначена для хранения общего числа пользователей, посетивших Web-узел. Переменная сбрасывается в 0, когда Web-сервер выключается, поэтому ее значение необходимо сохранить в файле с тем, чтобы его можно было восстановить при следующем запуске приложения.                     <><br><br> Обработчик события OnStart каждого сеанса запоминает значение IP-адреса клиента в переменной User. Поскольку областью видимости этой переменной является объект Session, т.е. сеанс с конкретным пользователем, ее можно использовать для идентификации клиента.<br><br> Обратите внимание: объект Application должен быть заблокирован во время изменения его переменных. Для объекта Session делать это необязательно, поскольку каждый объект Session имеет собственный набор локальных переменных.<br><br> При тестировании файла GLOBAL.ASA необходимо создать ASP-файл для доступа к переменным Application и Session, объявленным в файле GLOBAL.ASA. Ниже приведен текст файла VIEWERS.ASP, который генерирует страницу, показанную на рис. 22.10. Для проверки этого файла запустите утилиту WINIPCFG (выберите команду Run меню Start и напечатайте WINIPCFG), которая отобразит ваш IP-адрес. Передайте этот адрес нескольким знакомым и попросите их подключиться к вашему серверу. Теперь при каждом новом подключении переменные Viewers и Visitors должны увеличиваться на единицу, а при отключении - уменьшаться.<br><br> <br> <div style="text-align:center;"><img src="image/index-image183.gif" alt="Web-приложение"></div><br><br> <b>Рис. 22.10.</b> Страница, генерируемая файлом VIEWERS.ASP<br><br> В программе 22.11 приведен код страницы<br><br> VIEWERS.ASP, который совместно с кодом файла GLOBAL. ASA генерирует страницу, показанную на рис. 22.10.<br><br> Страница VI EWERS.ASP может располагаться в любой виртуальной папке на вашем сервере, а файл GLOBAL.ASA – обязательно в корневой папке (обычно это папка C:\INETPUB\WWWROOT). Страница отображает количество пользователей, подключенных к серверу, IP-адрес сеанса и основные свойства броузера клиента.<br><br> <b>Программа 22.11.</b> Файл VIEWERS.ASP<br><br> <HTML><br><br> <FONT FACE= "Comic Sans MS" SIZE=3><br><br> <H1>Welcome to ASP</H1><br><br> There are <% "Application("Viewers") %> users currently connected to<br><br> the server.<br><br> <br><br> You have connected from the following IP address:<br><br> <% ^Session ("User") %><br><br> (<% "Session ("HName") %>)<br><br> <br><br> We already know that your browser:<br><br><br> 1.<br><br> <% Set Browser = Server. CreateObject ("MSWC.BrowserType") %><br><br> <% If Browser.VBscript Then<br><br> Response.Write "Can" <br><br> Else<br><br> Response.Write "Can't " <br><br> End If<br><br> %> execute VBScript code. <br><br><br> 2. <br><br> <% If Browser.Frames Then<br><br> Response.Write "Can" <br><br> Else<br><br> Response.Write "Can't" <br><br> End If<br><br> %> display frames. <br><br><br> 3. <br><br> <% If Browser.Tables Then<br><br> Response.Write "Can" <br><br> Else<br><br> Response. Write "Can't" <br><br> End If <br><br> %> display tables.<br><br> </FONT> <br><br> </HTML><br><br> Код файла VIEWERS.ASP считывает значения переменных Visitors, Viewers, User и HName<br><br> и отображает их на странице. Кроме того, он демонстрирует использование компонента BrowserType (Тип броузера), который возвращает информацию о броузере клиента. Будет разумно проверять основные характеристики броузера клиента перед пересылкой документа, чтобы убедиться, что он будет отображен надлежащим образом. Почти все броузеры способны отображать панели и таблицы, но это не значит, что они могут выполнять VBScript-код.<br><br><br> <h1>Web-страница</h1> FORM.HTM<br> Страница FORM.HTM (см. рис. 19.7) содержит все элементы управления, которые можно поместить на Web-странице для запроса информации от пользователя. Раздел FORM страницы определяется следующим тегом.<br> <FORM ACTION="ASPages/Register.asp" method="GET"><br> Данные, собранные на этой странице, передаются приложению REGISTER.ASP на сервере и там же обрабатываются. О том, как писать ASP-файлы (текстовые файлы с командами VBScript) для обработки данных, переданных клиентом, рассказывается в последней главе книги. Необходимо помнить: броузер автоматически передает значения элементов управления на сервер. Поэтому необходимо указать на сервере URL программы, ожидающей эти данные. Использовавшийся в этом примере URL содержит путь к папке ASPdges (в корневом Web-каталоге). Первую часть URL броузер получает из адреса текущего документа. Данные передаются на сервер после нажатия кнопки Register Now на форме.<br> Остальная часть кода тривиальна. Она использует тег <INPUT> для отображения разнообразных элементов управления. Большинство элементов управления для выравнивания группируется в таблицы. Чтобы узнать структуру страницы (см. рис. 19.7), откройте FORM HTM файл на компакт-диске. Ниже приведен список тегов, относящихся только к встроенным элементам управления (табличные теги пропущены для экономии места).<br> <FORM ACTION="ASPages/Register.asp" method="GET"> <br> <FONT SIZE=4><br> Last Name<br> <INPUT TYPE=Text SIZE=20 MAXLENGTH=20 NAME="LName"><br> First Name<br> <INPUT TYPE=text SIZE=20 MAXLENGTH=20 NAME="FName"><br> E-Mail Address<br> <INPUT TYPE=Text SIZE=46 MAXLENGTH-256 NAME="EMail"><br> My computer is:<br> My browser is:<br> <INPUT TYPE=Radio CHECKED NAME="hardware" VALUE="PC"> PC<br> <INPUT TYPE=Radio CHECKED NAME="browser" VALUE="IE"> Internet Explorer<br> <INPUT TYPE=radio NAME="hardware" VALUE="MAC"> Macintosh<br> <br> <INPUT TYPE=radio NAME="browser" VALUE="NETSCAPE"> Netscape<br><br> <INPUT TYPE=radlo NAME="hardware" VALUE="OTHER"> Other<br><br> <INPUT TYPE=radio NAME="browser" VALUE="OTHER"> Other<br><br> When I connected I want to see:<br><br> <INPUT TYPE=checkbox name="Sports" value="ON"> <STRONG>Sports<br><br> <INPUT TYPE=Checkbox NAME="News" VALUE="ON"> News<br><br> <INPUT TYPE=Checkbox NAME="Stock" VALUE="ON"> Stock Prices<br><br> <INPUT TYPE=checkbox NAME="weather" value="ON"> Weather<br><br> <INPUT TYPE=checkbox name="bargains" value="ON">Our Bargains<br><br> Do you want to receive e-mail messages?<br><br> <INPUT TYPE=Radio CHECKED NAME="mail" VALUE="Yes">Yes<br><br> <INPUT TYPE=Radio NAME="MAIL" VALUE="No">No<br><br> Click here to submit your registration<br><br> <INPUT TYPE=submit NAME="Register" VALUE="Register Now!"><br><br> </FORM><br><br> Если нажать кнопку Register Now, броузер выдаст сообщение, что приложение RAGISTERASP нельзя найти. Эту страницу нельзя протестировать без Web-сервера. Ее содержимое можно просмотреть, как содержимое любой другой страницы, но она не взаимодействует с сервером, пока не открыта на Web-сервере. В гл. 22 пойдет речь о том, как обрабатывать запросы клиентов с помощью Web-сервера. Поскольку приложение REGISTER ASP написано на VBScript, пришло время познакомиться с ним поближе.<br><br><br> <h1>Загрузка пользовательских элементов управления</h1> ActiveX<br> Тестирование пользовательских (специальных) элементов управления на конкретном компьютере является простым процессом, а тестовые страницы будут работать всегда. Если страницу переслать на Web-сервер, а кто-то попытается открыть ее в режиме удаленного доступа, то увидеть элемент управления ActiveX страницы будет невозможно — элемент управления не зарегистрирован на его компьютере.<br> Если нужно использовать пользовательский элемент управления на конкретном Web-узле, то необходимо создать САВ-файл с ОСХ-файлом элемента управления (и другими файлами поддержки) и переслать его. Когда<br> Internet Explorer запускает Web-страницу с обычным элементом управления, то он просматривает CLASSID элемента управления в системном реестре. Если Internet Explorer находит его, то элемент управления отображается на странице. Если нет, то он пытается загрузить элемент управления с сервера и установить его на компьютере-клиенте, чтобы использовать его. Конечно, сначала он известит пользователя о том, что страница содержит незарегистрированный элемент управления.<br> Немногие пользователи согласятся загружать элемент управления с любого узла по Internet. Web-страницы с пользовательскими элементами управления легко можно использовать в Intranet (после установки элементов управления на сетевых компьютерах загружать их снова не нужно), но следует избегать их использования в Web. Можно использовать сертификаты аутентификации, чтобы убедить пользователей в том, что элемент управления безопасен для загрузки и использования. Процесс этот сложный и дорогой, поэтому здесь не рассматривается.<br> Чтобы загрузить САВ-файл с пользовательским элементом управления. Internet Explorer ищет атрибут CODEBASE в теге <OBJECT>. Атрибут CODEBASE является URL САВ-файла на Web-сервере. А как насчет самого САВ-файла? Visual Basic может создать его с помощью мастера Package and Deployment Wizard. Это отдельное приложение, устанавливаемое Visual Basic для создания дистрибутивов приложений.<br> Примечание<br> В книге не рассмотрен мастер Package and Deployment Wizard. Это довольно простая утилита, которая собирает необходимые ей данные и создает ЕХЕ-файл для клиентов или САВ-файл, передаваемый с помощью e-mail на Web-узел. Пользователи загружают этот файл на свои компьютеры, a Internet Explorer автоматически его устанавливает.<br><br> <br><br> <h1>Закрытые и дружественные члены класса</h1> Модули классов могут также содержать и закрытые<br> (private) процедуры. Эти процедуры могут быть вызваны внутри программного кода класса, но другие приложения, которые используют класс, их вызвать не могут. Если необходимо отследить, сколько раз вызывается метод в течение работы приложения, можно добавить функцию:<br> Private Function CallCounter() As Integer <br> Static Popularity As Integer<br> Popularity = Popularity + 1<br> CallCounter = Popularity <br> End Function<br> Эта функция может быть вызвана из кода класса, но приложение, использующее этот класс, функцию CallCounter() не видит. Так<b> </b>как CallCounter() - закрытая функция, она не является методом класса - это обычная функция кода класса. Можно добавить эту функцию в проект CTimer и увидеть, что к ней невозможен доступ из другого приложения.<br> В добавление к закрытым и общедоступным членам, классы имеют третий тип модификатора области видимости, имеющий название Friend (дружественный). Дружественные члены являются общедоступными для всего проекта и доступны всем классам проекта. Общедоступные переменные Standard ЕХЕ-проекта доступны всем другим модулям и формам. В стандартном ЕХЕ-приложении это самая широкая область видимости, которую может иметь переменная. У компонентов ActiveX, общедоступные члены которых доступны также и из других приложений, есть другой тип, который делает члены доступными из любых частей приложения, но не извне его. Запомните, что только методы (функции или процедуры) и свойства могут быть объявлены как дружественные. Переменные - только как закрытые, либо общедоступные. Это означает, что модули классов ActiveX DLL-проекта могут связываться друг с другом посредством вызова дружественных методов и свойств.<br><br> <br><br> <h1>Запись и чтение</h1> Cookies<br> Стартовые страницы некоторых Web-узлов (например, компании<br> Microsoft) допускают настройку в соответствии с требованиями пользователя. Как это делается? Каким образом сервер хранит информацию о настройках, выполненных отдельными пользователями, в перерывах между сеансами? Если бы каждый пользователь имел фиксированный IP-адрес, можно было бы (хотя вряд ли это разумно) создать базу данных с IP-адресами и настройками для каждого пользователя. IP-адрес клиентского компьютера хранится в семействе ServerVariables объекта Server. Однако адреса клиентов изменяются от сеанса к сеансу. Поэтому единственный способ сохранить информацию о каждом отдельном клиенте — это ее запоминание на клиентском компьютере и считывание необходимых данных при подключении клиента к серверу. Запоминание этой информации в специальной папке на клиентском компьютере осуществляет броузер. Причем хранится она в cookie.<br> Примечание<br> Термин Cookies пришел из операционной системы Unix. Даже не пытайтесь понять, какое это имеет отношение к вашему компьютеру.<br> Cookies используются для обмена информацией между отдельными страницами одного узла. Предположим, необходимо создать Web-узел для пользователей, работающих в режиме<br> on-line. Узел может содержать множество страниц, и пользователь должен иметь возможность запрашивать данные с каждой из них. Каким образом сохранить информацию о том, к каким страницам обращался пользователь? Ведь каждая страница может иметь свой собственный сценарий и переменные, областью видимости которых она является. Протокол HTTP работает так: когда на клиентский компьютер поступает новая страница, броузер "забывает" всю информацию о текущей странице кроме ее URL (чтобы была возможность при необходимости вернуться к ней). И здесь весьма кстати оказываются cookies, в которых можно сохранить информацию с предыдущих страниц и организовать обмен данными между страницами одного узла.<br> Поскольку обработку cookies осуществляет броузер, Web-страницы не имеют прямого доступа к вашему жесткому диску: в этом смысле cookies являются безопасными. Когда страница запрашивает данные из cookies, броузер отслеживает, чтобы использовались только cookies, созданные страницами того же узла. То есть, если некоторые cookies созданы Web-узлом компании Microsoft, то их не могут прочесть страницы, принадлежащие другим узлам.<br> <br> Cookies могут иметь "срок годности". Те из них, которые его не имеют, прекращают свое существование по окончании сеанса. В противном случае они остаются на клиентском компьютере до истечения этого срока.<br><br> Для записи cookies на клиентский компьютер используется свойство Cookies объекта Response. Свойство Cookies является семейством, его члены можно создавать и осуществлять к ним доступ по именам. Для создания нового cookie используется следующий оператор.<br><br> <% Response. Cookies ("FavoriteSport") ="Hockey" %><br><br> Если cookie с именем FavoriteSport<br><br> уже существует на клиентском компьютере, его значение перезаписывается. В противном случае создается новый cookie, который существует до конца текущего сеанса.<br><br> Срок жизни cookie определяется с помощью его свойства Expires.<br><br> <% Response.Cookies ("FavoriteSport") .Expires = "December 31, 1998 <br><br> 12:00:00 GTM" %> <br><br> Другие свойства cookies перечислены ниже.<br><br> <b>Domain (Домен).</b><br><br> Если значение этого свойства установлено, то данные этого cookie передаются только в ответ на запросы, поступившие из того же домена. Используется вместе со свойством Path.<br><br> <b>Path (Путь).</b> Если значение этого свойства установлено, то данные этого cookie передаются только в ответ на запросы, поступившие от страниц, находящихся на сервере в указанном пути.<br><br> <b>HasKeys (Имеет ключи).</b><br><br> Указывает, имеет ли cookie множественные ключи (т.е. является словарем). Это свойство имеет атрибут "только для чтения".<br><br> Чтобы создать cookie с ключами, следует использовать имя одного cookie при установке нескольких атрибутов.<br><br> <%<br><br> Response.Cookies ("Preferences") ("Books") = "Mystery" <br><br> Response.Cookies ("Preferences") ("News") = "Sports" <br><br> %><br><br> Для чтения значений из cookie на клиентском компьютере используется семейство Cookies объекта Response. Количество cookie в семействе возвращается свойством Request.Cookies. Count.<br><br> Для сканирования элементов семейства используется цикл For...Next либо For Each...Next.<br><br> <br> <% <br><br> For Each cookie In Request.Cookies<br><br>   { обработка текущего cookie, которым является Request.Cookies(cookie)} <br><br> Next cookie <br><br> %><br><br> Обычно серверному сценарию известны имена cookies, поэтому доступ к ним можно осуществлять по именам.<br><br> BookType = Request.Cookies ("FavoriteSport")<br><br> При необходимости можно выяснить имена cookies, воспользовавшись циклом For Each...Next. На каждой итерации цикла значение переменной cookie<br><br> является именем очередного cookie, а переменная Request. Cookies(cookie) — его значением.<br><br> Если cookie имеет ключи, то доступ к ним осуществляется как к элементам семейства. Предположим, вы передали cookie, имеющий ключи, на клиентский компьютер.<br><br> <%<br><br> Response.Cookies ("Background") = "Planets.bmp" <br><br> Response.Cookies ("Preferences") ("Books") = "Mystery" <br><br> Response.Cookies ("Preferences") ("News") = "Sports" <br><br> %><br><br> Первый cookie задает узор фона, который предпочитает пользователь. Пара следующих значений используется для создания стартовой страницы. Цикл, который читает все значения cookie, включая ключи, приведен ниже.<br><br> <% <br><br> For Each cookie In Request.Cookies<br><br> If Request.Cookies(cookie).HasKeys Then<br><br> For Each scookie In Request.Cookies(cookie) <br><br> {Обработка текущего cookie. Его значением является Request.Cookies(cookie)(scookie) } <br><br> Next <br><br> Else<br><br> { Обработка текущего cookie. Его значением является Request.Cookies(cookie)} <br><br> End If <br><br> Next<br><br> %><br><br> Организация обмена данными между страницами - далеко не единственное применение cookies. Каждый узел, имеющий настраиваемую стартовую страницу, использует их для хранения информации о пользователях. Некоторые Web-узлы используют cookies для запоминания информации о темах, обращение к которым происходит чаще всего.<br><br><br> <h1>Запросы к другим приложениям</h1> Чтобы организовать запрос к другому приложению, необходимо указать вашей программе, о каком именно приложении идет речь. Один из способов, позволяющий это сделать, заключается в установке указателя мыши в окно другого приложения (информацию о состоянии которого требуется получить). Именно так сделано в приложении Query (рис. 13.8). Эта программа позволяет наблюдать за другими активными приложениями, используя уже известные функции GetCursorPos() и SetWindowPos(), а также нескольких новых функций, рассматриваемых в следующем параграфе.<br> <b>VB6 в действии: проект Query</b><br> В окне приложения Query содержится информация о текущем активном окне и его родительском окне.<br> <div style="text-align:center;"><img src="image/zaprosy-k-drugim-prilozhenijam_1.gif" alt="Запросы к другим приложениям"></div><br> <b>Рис. 13.8.</b> Приложение Query<br> Для получения информации об остальных открытых окнах в этой программе используются следующие функции:<br> •           SetWindowPos()<br> •           GetCursorPos()<br> •           WindowFromPoint()<br> •           GetClassName()<br> •           GetWindowText()<br> •           GetParent()<br> <b>SetWindowPos().</b><br> Функция используется для того, чтобы поместить окно данного приложения поверх окон других приложений. Ключевым элементом в ней является флаг HWND_TOPMOST, установка которого предписывает Windows располагать данное окно перед (либо позади, в зависимости от установки z-order) остальными окнами. Пользователь устанавливает указатель мыши в интересующее его окно и получает о нем информацию. Это достигается за счет использования функций GetCursorPos () и WindowFromPoint().<br> <b>GetCursorPos(), WindowFromPoint().</b><br> Функция GetCursorPosQ возвращает координаты указателя мыши (в системе координат окна). Затем эти координаты используются в функции WindowFromPointO для отыскания имени окна (видимого в точке с указанными координатами). Объявление функции WindowFromPointO имеет вид:<br> Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As _ <br>    Long, ByVal yPoint As Long) As Long<br> Параметры<br> xPoint и yPoint являются парой координат. Функция возвращает число типа Long Integer, которое является дескриптором окна, расположенного в данной точке.<br> <br> <b>GetClassName(), GetWindowText().</b><br><br> Эти функции используются для организации наблюдения за другими приложениями. Функция GetClassName() позволяет получить имя класса окна, a GetWindowText() — текст заголовка окна, если таковой имеется. Если выбранное окно является элементом управления, функция возвращает его текст.<br><br> <b>GetParent().</b><br><br> Позволяет получить дескриптор родительского окна для данного окна.<br><br> Ниже приведен текст программы Query. <br><br> <b>Программа 13.10.</b> Приложение Query<br><br> Option Explicit<br><br> Private Declare Function SetWindowPos Lib "user32"<br><br> (ByVal hwnd As Long, ByVal hWndInsertAfter As Long,<br><br> _<br><br> ByVal X As Long, ByVal Y As Long, ByVal ex As Long, _ <br><br> ByVal cy As Long, ByVal wFlags As Long) As Long <br><br> Private Declare Function GetCursorPos Lib "user32" _<br><br> (lpPoint As POINTAPI) As Long<br><br> Private Declare Function WindowFromPoint Lib "user32" _<br><br> (ByVal xPoint As Long, ByVal yPoint As Long) As Long <br><br> Private Declare Function GetParent Lib "user32" _<br><br> (ByVal hwnd As Long) As Long <br><br> Private Declare Function GetClassName Lib "user32" _ <br><br> Alias "GetClassNameA" (ByVal hwnd As Long, _<br><br> ByVal IpClassName As String, ByVal nMaxCount As Long) As Long<br><br> Private Declare Function GetWindowText Lib "user32"  _<br><br> Alias "GetWindowTextA" (ByVal hwnd As Long, _<br><br> ByVal IpString As String, ByVal cch As     Long) As Long<br><br> Const HWND_TOPMOST = -1 ,<br><br> Const SWP_SHOWWINDOW = &H40<br><br> Private Type POINTAPI<br><br> X As Long<br><br> Y As Long <br><br> End Type<br><br> Private gStop As Boolean<br><br> Private Sub Commandl_Click()<br><br> Dim mousePT As POINTAPI<br><br> Dim prevWindow As Long, curWindow As Long<br><br> Dim X As Long, Y As Long<br><br> Dim tmpStr As String<br><br> Dim parentWnd As Long, retValue As Long<br><br> ‘ Начало отслеживания перемещения мыши <br><br> If Commandl.Caption = "Start" Then <br><br> Commandl.Caption = "Stop" <br><br> gStop = False <br><br> prevWindow = 0<br><br> ‘ Отслеживание идет то тех пор, пока не    будет прервано<br><br> ‘ пользователем <br><br> Do<br><br>   ‘ Остановка отслеживания <br><br>   If gStop = True Then Exit Do <br><br> <br>   Call GetCursorPos(mousePT) <br><br>   X = mousePT.X <br><br>   Y = mousePT.Y<br><br>        ‘ Получение информации об окне, расположенном под <br><br>        ‘ указателем мыши<br><br>   curWindow = WindowFromPoint(X, Y) <br><br>   If curWindow<b><br><br> <></b> prevWindow Then <br><br> tmpStr = String$(256, " ") <br><br> prevWindow = curWindow<br><br> retValue = GetClassName(curWindow, tmpStr, 255) <br><br> tmpStr = Left$(tmpStr, InStr(tmpStr, vbNullChar) - 1)<br><br> Text1(0).Text = curWindow <br><br> Textl(1).Text « tmpStr<br><br> retValue = GetWindowText(curWindow, tmpStr, 255) <br><br> Text1 (2).Text = tmpStr<br><br> ‘ Получение дескриптора родительского окна <br><br> parentWnd = GetParent(curWindow) <br><br> retValue = GetClassName(parentWnd, tmpStr, 255) <br><br> tmpStr = Left$(tmpStr, InStr(tmpStr, vbNullChar) - 1)<br><br> Text1(3).Text = parentWnd <br><br> Text1(4).Text = tmpStr<br><br> retValue = GetWindowText(parentWnd, tmpStr, 255) <br><br> Text1(5).Text = tmpStr <br><br>   End If <br><br>   DoEvents <br><br> Loop<br><br>      ‘ Прекращение отслеживания мыши <br><br> Else<br><br>    Commandl.Caption = "Start" <br><br>    gStop = True <br><br>   End If <br><br> End Sub<br><br> Private Sub Form_QueryUnload(Cancel As     Integer, _<br><br>    UnloadMode As Integer) <br><br> gStop = True <br><br> End Sub<br><br> Private Sub Form_Load() <br><br> Dim retValue As Long<br><br> If Commandl.Caption = "Start" Then <br><br> gStop = False <br><br> ‘ Commandl.Caption = "Stop"<br><br> retValue = SetWindowPos(Me.hwnd,     HWND_TOPMOST, _<br><br>    Me.CurrentX, Me.CurrentY, _ <br><br>    Me.Width, Me.Height, SWP_SHOWWINDOW) <br><br>    Else<br><br> gStop = True <br><br> Commandl.caption = "Start" <br><br>   End If <br><br> End Sub<br><br><br> <h1>Запуск сценариев с помощью</h1> WSCRIPT.EXE<br> Двойной щелчок на значке сценария — самый быстрый способ его запуска, но такой метод не позволяет использовать аргументы. Когда сценарий не имеет визуального интерфейса, единственной возможностью воздействия на ход его выполнения является передача параметров. Для запуска сценария и передачи ему аргументов необходимо воспользоваться приложением WSCRIPT.EXE.<br> Для этого выберите в меню Start команду Run, которая открывает диалоговое окно запуска. Введите имя приложения WSCRIPT.EXE, а затем — имя запускаемого сценария. Например, FILEDTR.VBS из папки SCRIPTS на рабочем столе.<br> WSCRIPT С:\WINDOWS\DESKTOP\SCRIPTS\FILEDTR.VBS<br> Команда запускает программу WSCRIPT, которая запускает FILEDTR.VBS. Если путь содержит пробелы, то его необходимо заключить в двойные кавычки.<br> WSCRIPT "С:\WINDOWS\DESKTOP\SIMPLE SCRIPTS\FILEDTR.VBS" <br> Можно передавать и аргументы, отделив их от команды пробелами.<br> WSCRIPT С:\WINDOWS\DESKTOP\SCRIPTS\FILEDTR.VBS arg1 arg2 <br> В данном случае используются два аргумента — arg1 и arg2.<br> Примечание<br> Множественные аргументы разделяются пробелом (или несколькими пробелами). Запятая воспринимается как часть аргумента.<br> Кроме среды запуска сценариев, WSCRIPT предоставляет доступ к нескольким возможностям оболочки Windows (к которым VBScript не имеет доступа). Можно рассматривать объекты WSCRIPT как расширение VBScript. Мы начнем с рассмотрения семейства Arguments, которое содержит аргументы, передаваемые сценарию. Далее мы научимся осуществлять доступ к аргументам сценария.<br> Примечание<br> Если необходимо передать большое количество аргументов (достаточно распространенная ситуация), то имеет смысл сохранить их в текстовом файле. Пользователю легче ввести дюжину имен файлов, подлежащих обработке, в текстовый файл. Не рассчитываете на то, что пользователь сценария введет длинное имя пути и сделает это правильно с первого раза.<br> <b>Использование аргументов</b><br> Рассмотрим обработку аргументов в коде сценария. VBScript не может обрабатывать аргументы. Свойство Arguments объекта Wscript позволяет сценарию прочесть аргументы. Для этого необходимо создать экземпляр объекта следующим оператором.<br> <br> Set Args = Wscript.Arguments<br><br> Переменная<br><br> Args - это семейство со свойствами Item и Count. Для обработки такого семейства можно использовать цикл For... Next<br><br> For i = 0 to Args.Count - 1<br><br> {Обработка каждого аргумента} <br><br> Next<br><br> или цикл For Each . . . Next<br><br> For Each arg In Args<br><br> {Обработка каждого аргумента} <br><br> Next<br><br> В первом случае доступ к каждому аргументу осуществляется через Args(i), а во втором — через переменную arg. Сценарии ARGS1.VBS и ARGS2.VBS демонстрируют, как это выполняется обоими способами.<br><br> <b>Программа 20.13.</b> Сценарий ARGS1.VBS<br><br> Set Args = Wscript.Arguments <br><br> For i = 0 to Args.Count - 1<br><br> txt =<br><br> txt & Args(i) & vbCrLf <br><br> Next <br><br> MsgBox txt<br><br> Каждый аргумент — это член семейства Args,<br><br> в котором он появляется в том же порядке, в котором был передан.<br><br> <b>Программа 20.14.</b> Сценарий ARGS2.VBS<br><br> Set Args = Wscript.Arguments <br><br> For Each arg In Args<br><br> txt = txt & arg & vbCrLf <br><br> Next <br><br> MsgBox txt<br><br> Для запуска этих сценариев необходимо воспользоваться командой Run (Выполнить) из меню Start (Пуск). В диалоговом окне Run необходимо ввести следующую строку.<br><br> WSCRIPT "C:\SCRIPTS\ARGS1.VBS" John Doe 33.55<br><br> Предположим, необходимо модифицировать путь к сценарию ARGS1.VBS согласно структуре жесткого диска. Двойные кавычки необходимы, так как длинные имена Windows 98 могут содержать пробелы. Аргументы разделены пробелами. Если запустить сценарий с указанными аргументами, то будет выведено сообщение (рис 20.7).<br><br> <div style="text-align:center;"><img src="image/index-image148.gif" alt="Запуск сценариев с помощью"></div><br><br> <b>Рис. 20.7.</b> Сценарии ARGS1.VBA и ARGS2.VBA: отображение аргументов в окне сообщений<br><br> Нельзя пользоваться запятой в качестве разделителя. Она будет рассматриваться как часть аргумента. Например, если ввести<br><br> WSCRIPT "С:\SCRIPTS\ARGS1.VBS" 1, 2, string <br><br> результат будет иметь вид, показанный на рис. 20.8.<br><br> <div style="text-align:center;"><img src="image/index-image149.gif" alt="Запуск сценариев с помощью"></div><br><br> <b>Рис. 20.8.</b> Параметры сценария не разделяются запятой<br><br> Если аргумент содержит пробелы, то его необходимо заключить в двойные кавычки. Например, если последний аргумент в следующей строке будет без кавычек,<br><br> WSCRIPT "С:\SCRIPTS\ARGS1.VBS" 1, 2, "string variable"<br><br>то семейство Arguments будет содержать четыре аргумента: 1, 2, "string" и "variable" (сами кавычки в аргумент не входят).<br><br><br>  <a name="48"><h1>  <img src="/8.gif">  Программирование: Языки - Технологии - Разработка</h1> <ul> <li><a href="/599-1/index.htm">Программирование</a><br> <li><a href="/600-1/index.htm">Технологии программирования</a><br> <li><a href="/601-1/index.htm">Разработка программ</a><br> <li><a href="/602-1/index.htm">Работа с данными</a><br> <li><a href="/603-1/index.htm">Методы программирования</a><br> <br> <li><a href="/604-1/index.htm">IDE интерфейс</a><br> <li><a href="/605-1/index.htm">Графический интерфейс</a><br> <li><a href="/606-1/index.htm">Программирование интерфейсов</a><br> <li><a href="/607-1/index.htm">Отладка программ</a><br> <li><a href="/608-1/index.htm">Тестирование программ</a><br> <br> <li><a href="/609-1/index.htm">Программирование на Delphi</a><br> <li><a href="/610-1/index.htm">Программирование в ActionScript</a><br> <li><a href="/611-1/index.htm">Assembler</a><br> <li><a href="/612-1/index.htm">Basic</a><br> <li><a href="/613-1/index.htm">Pascal</a><br> <br> <li><a href="/614-1/index.htm">Perl</a><br> <li><a href="/615-1/index.htm">VBA</a><br> <li><a href="/616-1/index.htm">VRML</a><br> <li><a href="/617-1/index.htm">XML</a><br> <li><a href="/618-1/index.htm">Ada</a><br> <br> <li><a href="/619-1/index.htm">Lisp</a><br> <li><a href="/620-1/index.htm">Python</a><br> <li><a href="/621-1/index.htm">UML</a><br> <li><a href="/622-1/index.htm">Форт</a><br> <li><a href="/623-1/index.htm">Языки программирования</a><br> </ul> <br> <hr> <hr> <br> </div></div> </body></html>