Использование элемента управления
Script
Элемент управления Script работает очень просто: запоминает процедуры и выполняет их в любое время. Также он вычисляет произвольные выражения и возвращает результат. Напишем несколько простых программ, в которых используется этот элемент управления
Чтобы использовать элемент управления Script в проекте, необходимо добавить его на панель элементов управления. Для этого выполните следующие действия.
1. Откройте новый проект.
2. Щелкните правой кнопкой мыши на панели элементов управления и из контекстного меню выберите команду Components для открытия соответствующего диалогового окна.
3. Установите флажок Microsof Script Control 1.0 (или более новую версию, если она доступна) и щелкните на кнопке ОК.
4. Как только элемент будет добавлен на панель элементов управления, поместите его экземпляр на форму.
Перечислим наиболее важные компоненты элемента управления
Script, которые используются в наших примерах.
Метод ExecuteStatement
Этот метод выполняет один оператор и возвращает результат Он принимает единственный аргумент - оператор, который будет выполняться. Имеется оператор VBScript.
MsgBox "Programmers of the world unite!"
'(Программисты всех стран, объединяйтесь!)
Чтобы выполнить его (и вывести сообщение на экран), в метод ExecuteStatement передается строка statement, задающая этот оператор.
statement =
"MsgBox " & Chr(34) &
"Программисты всех стран, объединяйтесь!" & Chr(34)
ScriptControll.ExecuteStatement statement
Выражение Chr(34) добавляет двойные кавычки в строковую переменную. Другой подход — использовать две двойные кавычки подряд и объединить два оператора в один.
ScriptControll.ExecuteStatement _
"MsgBox "" Welcome to VBScript!"""
Возможности метода ExecuteStatement
не ограничиваются вызовом одной функции. VBScript позволяет поместить несколько операторов в одну строку, разделяя их двоеточием. Вот небольшой код на VBScript (пригодный для VB).
X=InputBox ("Enter a value from 0 to 5")
WebBrowser
Элемент управления WebBrowser предназначен для создания собственных броузеров, так как он обладает всеми функциональными возможностями просмотра, присущими Internet Explorer. Можно задействовать кнопки Back и Forward, управлять доступом пользователя к узлам и многое другое.
Конечно же, элемент управления WebBrowser не обладает всеми возможностями Internet Explorer. Наиболее значительное ограничение — невозможность доступа к воспроизводимому документу и сохранение HTML-документа из кода программы. Хотя пользователь может открыть контекстное меню документа и выбрать View Source.
Рассмотрим два приложения, которые демонстрируют использование элемента управления WebBrowser в приложениях Visual Basic. Первое приложение является Web-броузером, во втором приложении показано, как использовать HTML-документ в приложениях Visual Basic и добавлять гипертекстовые ссылки.
VB6 в действии: пользовательский Web-броузер
На рис. 21.4 продемонстрирован интересный подход к построению броузеров. Форма содержит элемент управления TabStrip с несколькими страницами, отображающими различные URL - локальные файлы или страницы с удаленных серверов. Можно использовать локальные файлы подсказки для вашего приложения или подсоединить пользователей приложения к Web-серверу для обеспечения их оперативной информацией.
Чтобы создать приложение SuperBrowser, выполните следующие действия.
1. Откройте новый Standart ЕХЕ-проект и добавьте элемент управления TabStrip к форме. Увеличьте размер формы, и растяните элемент управления TabStrip, чтобы он занял как можно большую часть формы. Можно оставить немного места для нескольких кнопок, например, Back и Forward (которые в этом примере не используются).
2. Если панель элементов управления не содержит значок WebBrowser, то добавьте его, используя диалоговое окно Components (выберите элемент управления Internet Controls из списка доступных элементов управления). Придется также добавить элемент управления TabStrip к панели элементов управления, используя диалоговое окно Component.
Rates
Перед исследованием кода элемента управления, рассмотрим его использование в тестовом проекте. Тестовый проект состоит из одиночной формы, которая содержит образец элемента управления Rates и кнопку Get Rates. Когда кнопка нажата, элемент управления связывается с Web-сервером и запрашивает курсы обмена различных валют. Код обработчика щелчка на кнопке Get Rates вызывает метод DownLoadRates, передавая URL текстового файла в качестве параметра.
Private Sub bttnGetRates_Click()
RateControll.DownloadRates ("http://127.0.0.I/rates.txt")
End Sub
Файл Rates.txt, используемый в этом примере, находится в корневой папке Web-сервера, который установлен на компьютере. Если на используемом компьютере или другом компьютере в локальной вычислительной сети установлен Internet Information Server или Personal Web Server, то необходимо поместить туда файл Rates.txt и соединится с сервером для его загрузки. Адрес 127.0.0.1 является адресом локальной машины. Если Web-сервер отсутствует, то чтобы узнать, как записать файл на сервер провайдера интернета смотрите инструкции, приведенные в параграфе " Тестирование элемента управления Rates".
Примечание
Не пытайтесь пока проверять проект Rates. Этот элемент управления должен найти информацию на HTTP-сервере: необходимо обеспечить наличие URL для метода DownloadRates. В параграфе " Тестирование элемента управления Rates"
в конце главы показано, как поместить файл Rates.txt на сервере. Выполните инструкции, приведенные в этом параграфе, а затем запустите проект Rates.
