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



         

Использование гиперссылок в приложениях


Visual Basic

Одна из наиболее привлекательных возможностей Web-страниц — гиперссылки, позволяющие соединять страницы, находящиеся в World Wide Web. Ниже приведен пример использования гиперссылок, как части интерфейса пользователя приложения Visual Basic.

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

Приложение DemoPage показано на рис. 21.5 и находится на прилагаемом компакт-диске. Оно состоит из двух форм:

• VBForm;

• WebForm.

Основная форма - VBForm - используется для построения простых фигур методами Visual Basic WebForm воспроизводит HTML-документ, который содержит команды Visual Basic (методы для рисования). HTML-документ содержит команды и несколько гиперссылок. При активизации гиперссылки новый документ не воспроизводится. Вместо этого рисуется фигура на первой форме.

Разработаем две формы (см. рис. 21.5). Основная форма содержит вверху элемент управления Label, на котором отображается команда. Вторая форма (WebForm) -элемент управления WebBrowser, на котором воспроизводится страница Demo.htm.

После загрузки первая форма загружает вторую и воспроизводит HTML-документ на элементе управления WebBrowser. Весь код формы VBForm размещен в событии Load.

Программа 21.5. Событие Load

Private Sub Form_Load()

Dim target

target = App.Path & "\Demo.htm"

WEBForm.WebBrowser1.Navigate.target

WEBForm.Show

End Sub

Рис. 21.5. Две формы приложения DemoPage

Чтобы избежать абсолютных ссылок, предполагается, что HTML-документ (файл Demo.htm) сохранен в папке проекта. Полная страница Demo htm показана на рис. 21.6.

Рис. 21.6. Страница Demo htm в Internet Explorer

Программа 21.6. Приложение Demo Page

<HTML>

<TITLE>Demo Page</TITLE>

<BODY>

<CENTER>

<Hl>Graphics Demo Page</Hl>

</CENTER>

The hyperlinks on this page contact the VBForm  and draw various shapes on it.

<P>

<H3>Circles</H3>

The Visual Basic method for drawing circles on a     Form or

PictureBox control is called Circle and its syntax is:




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