Сделать свой браузер? Была ли какая-то ошибка? Не говоря уже о таких гигантах, как IE, даже о компактной Opera, большинство из нас, простых людей, никогда не смогут этого сделать. Но если на вашем компьютере установлена профессиональная версия VB5.0, все будет намного проще. Хотите попробовать? Ну, поехали!
Главным героем программы является элемент управления ActiveX: WebBrowser. Конечно, он не включен в набор инструментов VB по умолчанию. Нам придется добавить его вручную. Способ следующий: щелкните правой кнопкой мыши набор инструментов, выберите «Детали...» в появившемся контекстном меню и убедитесь, что это так. Во всплывающем диалоговом окне выберите вкладку «Элементы управления», найдите Microsoft Internet Controls, установите флажок перед ним и нажмите «ОК». На этом этапе вы обнаружите, что на панели инструментов есть еще два маленьких значка. Среди них элемент управления, представленный значком глобуса, — это нужный нам веб-браузер.
Поскольку многие люди не очень знакомы с элементом управления WebBrowser, а в справке VB о нем нет информации (я все равно ее не нашел), необходимо представить его свойства, методы и события. Из-за ограничений места. мы охватываем только те, которые используются в программе:
Свойство: LocationURL Возвращает URL-адрес веб-страницы, отображаемой элементом управления.
Метод: перейдите к указанному URL-адресу или откройте указанный HTML-файл.
Событие: 1． DownloadBegin Срабатывает, когда начинается операция загрузки.
2. DownloadComplete срабатывает, когда операция загрузки завершается, завершается или завершается сбоем.
3. Элемент управления ProgressChange WebBrowser отслеживает ход операции загрузки и периодически вызывает это событие. Синтаксис: Sub WebBrowser_ProgressChange (ByVal Progress As Long, ByVal ProgressMax As Long). Аргумент Progress — это общий объем данных, загруженных в данный момент, а аргумент ProgressMax — общий объем данных, которые необходимо загрузить.
4． TitleChange срабатывает, когда изменяется заголовок текущего документа.
В дополнение к элементу управления WebBrowser программе также необходим элемент управления Label: Label1; элемент управления ComboBox: combo1, используемый для отображения URL-адреса; элемент управления StatusBar: StatusBar1; элемент управления ProgressBar: ProgressBar1, используемый для отображения хода загрузки (StatusBar). и элемент управления ProgressBar. Элемент управления ActiveX является членом Microsoft Windows Common Controls 5.0. Метод добавления его в панель инструментов такой же, как и для элемента управления WebBrowser). Значения свойств этих элементов управления используют значения по умолчанию.
Вот листинг программы:
| Опция явная Частная подформа_Load() Me.Caption="Мой исследователь" Label1.Caption = "URL-адрес" Combo1.Текст = "" Комбо1.Верх = Метка1.Высота Комбо1.Влево = 0 WebBrowser1.Top = Combo1.Top + Combo1.Height Веб-браузер1.Лефт = 0 Форма_Ресайз StatusBar1.Style = sbrSimple ProgressBar1.Zorder Конец субтитра |
| Частная подформа_Resize() При ошибке Перейти к a Комбо1.Ширина = Форма1.Ширина - 100 Веб-Браузер1.Ширина = Комбо1.Ширина Веб-браузер1.Высота = Форма1.Высота - Комбо1.Высота - 1000 ProgressBar1.Top = Me.Height - StatusBar1.Height - 330 ProgressBar1.Left = 0,25 * StatusBar1.Width ProgressBar1.Width = 0,75 * Me.Width - 250 а: Конец субтитра |
| Частная подписка Combo1_Click() `Перейти по указанному URL WebBrowser1.Navigate Combo1.Text Конец субтитра Private Sub Combo1_KeyDown (код клавиши как целое число, сдвиг как целое число) Тусклый я пока Dim существовал как логическое значение Если KeyCode = 13 Тогда Если Left(Combo1.Text, 7) <> "http://" Тогда Combo1.Text = "http://"+ Combo1.Text Конец, если WebBrowser1.Navigate Combo1.Text Для I = 0 Для Combo1.ListCount - 1 Если Комбо1.Список(I) = Комбо1.Текст Тогда существовал = Истина Выход для Еще существовал = Ложь Конец, если Следующий Если Не существовало Тогда Combo1.AddItem (Combo1.Text) Конец, если Конец, если Конец субтитра |
| Частный дополнительный WebBrowser1_DownloadBegin() `Когда загрузка начинается, в строке состояния отображается «Связывание...» StatusBar1.SimpleText = "Связывание..." Конец субтитра |
| Частный дополнительный WebBrowser1_DownloadComplete() `После завершения загрузки в строке состояния отображается «Ссылка завершена». StatusBar1.SimpleText = "Ссылка завершена" ПрогрессБар1.Значение = 0 Конец субтитра |
| Частный субWebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax Пока) `Индикатор выполнения меняется во время загрузки Если ProgressMax = 0, выйдите из Sub. ПрогрессБар1.Макс = ПрогрессМакс Если Прогресс <> -1 и Прогресс <= ProgressMax Тогда ProgressBar1.Value = Прогресс Конец, если Конец субтитра |
| Частный дополнительный WebBrowser1_TitleChange (текст ByVal как строка) Combo1.Text = Веб-браузер1.LocationURL Конец субтитра |