How to Create a Web Browser in Visual Basic

Submitted by GeePee on Friday, April 24, 2015 - 23:29.
Introduction: Welcome to my tutorial on how to create a web browser in Visual Basic. Steps of Creation: Step 1: First we want to create a form with; Button1 - Go button2 - home button3 - back button4 - forward textbox1 - address/url webbrowser1 - web browser Step 2: Next we want to go in the Go button and check if the url is valid, if it is we want to navigate to it through the web browser. 
  1. Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  2.     If (TextBox1.Text.ToLower().StartsWith("http://www.") Or TextBox1.Text.ToLower().StartsWith("https://www.")) Then
  3.         WebBrowser1.Navigate(TextBox1.Text.ToLower())
  4.     End If
  5. End Sub
step 3: Now for the other buttons functions: Home 
  1. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  2.     WebBrowser1.GoHome()
  3. End Sub
Back 
  1. Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  2.     WebBrowser1.GoBack()
  3. End Sub
Forward 
  1. Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
  2.     WebBrowser1.GoForward()
  3. End Sub
Project Complete! That's it! Below is the full source code and download to the project files. 
  1. Public Class Form1
  2.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  3.         If (TextBox1.Text.ToLower().StartsWith("http://www.") Or TextBox1.Text.ToLower().StartsWith("https://www.")) Then
  4.             WebBrowser1.Navigate(TextBox1.Text.ToLower())
  5.         End If
  6.     End Sub
  7.  
  8.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
  9.         WebBrowser1.GoHome()
  10.     End Sub
  11.  
  12.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
  13.         WebBrowser1.GoBack()
  14.     End Sub
  15.  
  16.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
  17.         WebBrowser1.GoForward()
  18.     End Sub
  19. End Class

Tags

Add new comment

About text formats
  • 984 views