Visual Basic 6. Руководство разработчика



         

Использование элемента управления - часть 3


ByVal URL As String)

SSTabl.TabCaption(Index) = WebBrowser1(Index).LocationName

End Sub

Запустим приложение и посмотрим, как заголовки элемента управления TabStrip отображают содержимое каждой страницы.

Контроль процесса загрузки

Это приложение предоставляет хорошую возможность поэкспериментировать с событиями загрузки. Переключитесь обратно в окно Code и введите следующий код в события DownIoadBegin и DownloadComplete:

Private Sub WebBrowser1_DownloadBegin(Index As Integer)

Debug.Print "Started Download for tab #" & Index

' (Началась загрузка в страницу с вкладкой №...)

End Sub

Private Sub WebBrowser1_DownloadComplete (Index As Integer)

Debug.Print "Completed Download for tab #" & Index

'(Закончена загрузка в страницу с вкладкой №...)

End Sub

Если теперь запустить приложение, то в окне проверки появятся следующие сообщения (порядок их появления может быть другим).

Started Download for tab #0

Started Download for tab #1

Started Download for tab #2

Completed Download for tab #1

Completed Download for tab #2

Started Download for tab #1

Started Download for tab #2

Completed Download for tab #1

Completed Download for tab #0

Started Download for tab #0

Completed Download for tab #0

Completed Download for tab #2

Элемент управления WebBrowser совершает несколько загрузок для каждой страницы. Эти сообщения соответствуют загрузкам различных элементов каждой страницы. Если хотите отобразить прогресс загрузки, запрограммируйте событие ProgressChange.

Для этого поместите элемент управления Label на первой странице элемента управления TabStrip и введите следующие строки в событие ProgressChange элемента управления WebBrowser.

Private Sub WebBrowserl_ProgressChange(Index As Integer, _

ByVal Progress As Long, ByVal ProgressMax As Long)

   If SSTab1.Tab = Index Then

If Progress >= 0 Then

Label1.Caption = "Download Progress " & _

Progress & "/" & ProgressMax

' (Загружено)

Else

Label1.Caption = "Page downloaded"

' (Страница загружена)

End If

End If

End Sub

Внешний оператор If проверяет, что отображается только прогресс загрузки выбранной вкладки. Если событие ProgressChange сообщает, что WebBrowser управляет другой вкладкой, то событие не обрабатывается.

Примечание

При быстром соединении с сервером такие сообщения появляются на очень короткое время.

Добавление других возможностей к пользовательскому Web-броузеру

Другая интересная возможность, добавляемая к броузеру - мониторинг текущих URL. Можно хранить список URL, наиболее часто посещаемых пользователем. Когда пользователь выбирает один из них, броузер спрашивает, хочет ли пользователь открыть страницу из кэша или ее необходимо перезагрузить.

Можно ограничить доступ пользователя только сетью компании, лишив его возможности совершать путешествия по дальним сайтам в рабочее время.




Содержание  Назад  Вперед