простинкий браузер Написания браузера на vb6 не состоявляет большого труда и его создание не требует глубоких познаний в программировании. Для начала довайте создадим стандартную форму, после чего на ней нам нужно разместить основной компонент нашего браузера Micosoft internet controls. ЖмёмProjectComponents на страничке Controls отмечаем флажком компонент Microsoft Internet Controls после чего жмём окей и на панели Toolbox появиться этот обьект ввиде глобуса. Размещаем его на форме.
Теперь довайте рассмотрим методы работы с ним:
Разместите на форме button, двойным нажатием на нем вызовите редактор кода, (всё там удалите) после чего пишем Code Dim site As String
Private Sub Command1_Click()
site = "http://www.hacker-pro.net"
WebBrowser1.Navigate site
End Sub В режиме просмотра кликнув на кнопке вы перейдёте на главную страницу нашего форума. Иногда бывает что нужно принудительно остановить загрузку страницы, в этом нам поможет: Code Private Sub Command2_Click() WebBrowser1.Stop End Sub Тоесть опять создаём на форме кнопку(button) и вбиваем этот код.
В случае если нужно знать когда страница на 100% загружена, нужно написать следующее - Code Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) MsgBox "Загрузка оконченна" End Sub Для удобства разместите внизу на форме Label, в котором будет отоброжаться состояние браузера и замените MsgBox "Загрузка оконченна" на Label1.Caption "Загрузка оконченна" Используя методLocationName можно отображать название текущего сайта в заголовке браузера: Code Private Sub WebBrowser1_DownloadComplete() Form1.Caption = WebBrowser1.LocationName End Sub
Ну и конечноже как и в любом другом браузере довайте разместим ещё 4 кнопки *Назад*, *Вперед*, *Обновить*, *Домой*. ВCaption для удобства напишите соответственно для каждой кнопки свой заголовок, тобиш текст который будет отоброжаться на кнопке.
Вбиваем код: Code Private Sub Command3_Click() On Error Resume Next WebBrowser1.GoBack ' Назад End Sub Private Sub Command4_Click() On Error Resume Next WebBrowser1.GoForvard ' Вперёд End Sub Private Sub Command5_Click() WebBrowser1.Refresh ' Обновить End Sub Private Sub Command6_Click() On Error Resume Next WebBrowser1.GoHome ' Перейти на домашнюю страничку End Sub Ну и всё что должно быть в простеньком браузере. Удачи в ваших начинаниях. Автор: Nobody4all
Источник: http://hacker-pro.net
fdsg
| 
