ИнтеллигенцияX

Вот решил для примера сделать простенький браузер. Вы можете его усовершенствовать. Есть только все необходимые функции.

Можете его переделывать под себя. На форму добавляем 5 кнопок:

1. Перейти на сайт
2. Обновить сайт
3. Остановить загрузку
4. Вернутся на страницу назад
5. Вернутся на страницу вперед

Ну и добавляем WebBorwser, где собственно и будет отображаться сайт.

Файл грузить не стану, а просто выложу код.

Будут вопросы, то в комменты.

Впринципе, делать из браузера в ВБ большой проект не стоит.

Браузеров очень много, а так как форма браузера работает на движке Интернет Экплорера, то ждать ничего хорошего нельзя.

Лучше использовать только в целях ознакомления. Еще, для развития можно посмотреть статью - "Браузер на WebKit"

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Navigate(TextBox1.Text) 'Переходим на сайт написанный в текстовом поле
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
WebBrowser1.Refresh() 'Обновляем страницу
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
WebBrowser1.Stop() 'Останавливаем загрузку страницы
End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
WebBrowser1.GoBack() 'Назад
End Sub

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
WebBrowser1.GoForward() 'Вперед
End Sub
End Class