Собственный браузер
Вы можете внутри своего проекта создать собственный браузер, который даст вам возможность просматривать Web-страницы прямо в окне вашего приложения. Добавьте на Toolbox обычным образом элемент управления Microsoft WebBrowser. Затем поместите его на форму и растяните пошире. Он приобретет имя AxWebBrowser1. Поместите на форму кнопку. Введите код:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
AxWebBrowser1.Navigate("http://www.yahoo.com/")
End Sub
Здесь Navigate – метод объекта AxWebBrowser1. Не пугайтесь, если VB подчеркнет адрес в кавычках. Это привычное подчеркивание Интернет-адресов.
Теперь вам достаточно нажать на кнопку и, если вы в данный момент подсоединены к Интернету, в окне вашего браузера появится страничка с указанным в кавычках адресом (см. Рис. 23.2).
Рис. 23.2
Теперь вы можете щелкать по ссылкам на загруженной страничке и таким образом путешествовать по страничкам Интернет, как и в обычном браузере.
В отличие от фирменных браузеров у вашего браузера нет ни кнопок, ни списков, ни других инструментов, облегчающих навигацию по Интернету. Вы сами прекрасно сможете организовать все, что вам нужно, используя в проекте кнопки, раскрывающиеся списки и другие стандартные элементы управления VB. В этом вам помогут компоненты объекта AxWebBrowser1, такие как:
- Свойство Busy. Оно равно True, если браузер занят – ищет или скачивает страницы.
- Событие DocumentComplete. Наступает, когда страница или фрейм страницы загружены в окно браузера.
- Метод Stop. Пользуйтесь им, чтобы прервать слишком медленную загрузку Web-страницы.
Я думаю, вам будет интересно побродить по меню фирменного браузера Internet Explorer и прикинуть, какие его компоненты вы можете запрограммировать, а какие нет.
Кроме описанных возможностей работы в Интернете, VB позволяет организовать работу с электронной почтой (E-mail), запускать Internet Explorer, не выходя из проекта, и т.д.
Задание 19.
Запрограммируйте главный элемент браузера – адресную строку – раскрывающийся список успешно загруженных в прошлом адресов Интернет-страниц. Адресная строка должна работать привычным образом, то есть при щелчке по элементу списка должна загружаться страница и вы должны иметь возможность писать в строку новый адрес.
