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



         

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


Рис. 21.4. SuperBrowser — пользовательский Web-броузер, который можно вставить в любое приложение Visual Basic

3. На панели элементов управления выберите значок WebBrowser и поместите экземпляр элемента управления на каждую вкладку элемента TabStrip. Элемент управления WebBrowser должен занять почти всю область страницы. Три элемента управления WebBrowser - элементы массива WebBrowserI Их индексы - 0, 1 и 2.

4. Выполните двойной щелчок на форме, чтобы открыть окно Code.

5. В обработчик события Load формы введите следующие строки для перемещения трех элементов управления WebBrowser к трем различным Web-узлам.

Private Sub Form Load()

WebBrowser1(0).Navigate "http://home.microsoft.com"

WebBrowser1(1).Navigate "http://www.sybex.com"

WebBrowser1(2).Navigate "http://www.infoseek.com"

End Sub

Как только форма загружена, соответствующие элементы управления WebBrowser загружают три страницы и отображают их. Для просмотра страниц переключите соответствующую вкладку элемента управления TabStnp. Все три страницы про­должают загружаться так, как будто открыты три экземпляра Internet Explorer и каждый из них воспроизводит свой документ.

Добавим несколько строк программы, чтобы отобразить URL каждой страницы на соответствующей вкладке. Переключитесь обратно в окно Code и введите следующие строки в событие BeforeNavigate2 элемента управления Web-броузера.

Private Sub WebBrowser1_BeforeNavigate2(Index As Integer, _

ByVal URL As String, ByVal Flags As Long, _

ByVal TargetFrameName As String, PostData As Variant, _

ByVal Headers As String, Cancel As Boolean)

  SSTabl.TabCaption(Index) = URL

End Sub

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

После загрузки страницы элементу управления WebBrowser становится известен ее заголовок. В этот момент можно заменить URL на фактический заголовок. Для этого введем соответствующий код в событие NavigateComplete.

Private Sub WebBrowserl_NavigateComplete(Index As Integer, _




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