Простой браузер

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

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

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

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

браузер 300x183 Простой браузер

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

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

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

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

Лучше использовать только в целях ознакомления. Еще, для развития можно посмотреть статью - "Браузер на 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
  Метки: , , ,
  nakia
  Просмотров: 7 565
  Запись опубликована в 21:14

Один комментарий

  • Автор хорошие статьи, продолжайте в том же духе.Как мне все это осилить есть желание научиться программировать ?Есть пару верных рекомендаций?
    :lol:

Есть что сказать? Тогда действуй!