A Basic Web Browser
Imports System.IO
Imports System.Net
Imports System.Text
Imports System.Windows.Forms
public class MainClass
Shared Sub Main()
Dim form1 As Form = New Form1
Application.Run(form1)
End Sub
End Class
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
buttonBack.Enabled = False
buttonForward.Enabled = False
buttonStop.Enabled = False
End Sub
Private Sub buttonBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonBack.Click
WebBrowser1.GoBack()
TextBox1.Text = WebBrowser1.Url.ToString()
End Sub
Private Sub buttonForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonForward.Click
WebBrowser1.GoForward()
TextBox1.Text = WebBrowser1.Url.ToString()
End Sub
Private Sub buttonStop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonStop.Click
WebBrowser1.Stop()
End Sub
Private Sub buttonRefresh_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonRefresh.Click
WebBrowser1.Refresh()
End Sub
Private Sub buttonHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonHome.Click
WebBrowser1.GoHome()
TextBox1.Text = WebBrowser1.Url.ToString()
End Sub
Private Sub buttonSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonSubmit.Click
WebBrowser1.Navigate(TextBox1.Text)
End Sub
Private Sub WebBrowser1_CanGoBackChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser1.CanGoBackChanged
If WebBrowser1.CanGoBack = True Then
buttonBack.Enabled = True
Else
buttonBack.Enabled = False
End If
End Sub
Private Sub WebBrowser1_CanGoForwardChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles WebBrowser1.CanGoForwardChanged
If WebBrowser1.CanGoForward = True Then
buttonForward.Enabled = True
Else
buttonForward.Enabled = False
End If
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
buttonStop.Enabled = False
End Sub
Private Sub WebBrowser1_Navigated(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatedEventArgs) Handles WebBrowser1.Navigated
TextBox1.Text = WebBrowser1.Url.ToString()
Me.Text = WebBrowser1.DocumentTitle.ToString()
End Sub
Private Sub WebBrowser1_Navigating(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserNavigatingEventArgs) Handles WebBrowser1.Navigating
buttonStop.Enabled = True
End Sub
End Class
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
MyBase.Dispose(disposing)
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.buttonBack = New System.Windows.Forms.Button
Me.buttonForward = New System.Windows.Forms.Button
Me.buttonStop = New System.Windows.Forms.Button
Me.buttonHome = New System.Windows.Forms.Button
Me.buttonRefresh = New System.Windows.Forms.Button
Me.TextBox1 = New System.Windows.Forms.TextBox
Me.buttonSubmit = New System.Windows.Forms.Button
Me.WebBrowser1 = New System.Windows.Forms.WebBrowser
Me.SuspendLayout()
'
'buttonBack
'
Me.buttonBack.Location = New System.Drawing.Point(12, 12)
Me.buttonBack.Name = "buttonBack"
Me.buttonBack.Size = New System.Drawing.Size(75, 23)
Me.buttonBack.TabIndex = 0
Me.buttonBack.Text = "Back"
Me.buttonBack.UseVisualStyleBackColor = True
'
'buttonForward
'
Me.buttonForward.Location = New System.Drawing.Point(93, 12)
Me.buttonForward.Name = "buttonForward"
Me.buttonForward.Size = New System.Drawing.Size(75, 23)
Me.buttonForward.TabIndex = 1
Me.buttonForward.Text = "Forward"
Me.buttonForward.UseVisualStyleBackColor = True
'
'buttonStop
'
Me.buttonStop.Location = New System.Drawing.Point(174, 12)
Me.buttonStop.Name = "buttonStop"
Me.buttonStop.Size = New System.Drawing.Size(75, 23)
Me.buttonStop.TabIndex = 2
Me.buttonStop.Text = "Stop"
Me.buttonStop.UseVisualStyleBackColor = True
'
'buttonHome
'
Me.buttonHome.Location = New System.Drawing.Point(255, 12)
Me.buttonHome.Name = "buttonHome"
Me.buttonHome.Size = New System.Drawing.Size(75, 23)
Me.buttonHome.TabIndex = 3
Me.buttonHome.Text = "Home"
Me.buttonHome.UseVisualStyleBackColor = True
'
'buttonRefresh
'
Me.buttonRefresh.Location = New System.Drawing.Point(336, 12)
Me.buttonRefresh.Name = "buttonRefresh"
Me.buttonRefresh.Size = New System.Drawing.Size(75, 23)
Me.buttonRefresh.TabIndex = 4
Me.buttonRefresh.Text = "Refresh"
Me.buttonRefresh.UseVisualStyleBackColor = True
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(12, 41)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(399, 20)
Me.TextBox1.TabIndex = 5
'
'buttonSubmit
'
Me.buttonSubmit.Location = New System.Drawing.Point(417, 12)
Me.buttonSubmit.Name = "buttonSubmit"
Me.buttonSubmit.Size = New System.Drawing.Size(75, 49)
Me.buttonSubmit.TabIndex = 6
Me.buttonSubmit.Text = "Submit"
Me.buttonSubmit.UseVisualStyleBackColor = True
'
'WebBrowser1
'
Me.WebBrowser1.Location = New System.Drawing.Point(12, 67)
Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)
Me.WebBrowser1.Name = "WebBrowser1"
Me.WebBrowser1.Size = New System.Drawing.Size(655, 427)
Me.WebBrowser1.TabIndex = 7
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(679, 506)
Me.Controls.Add(Me.WebBrowser1)
Me.Controls.Add(Me.buttonSubmit)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.buttonRefresh)
Me.Controls.Add(Me.buttonHome)
Me.Controls.Add(Me.buttonStop)
Me.Controls.Add(Me.buttonForward)
Me.Controls.Add(Me.buttonBack)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents buttonBack As System.Windows.Forms.Button
Friend WithEvents buttonForward As System.Windows.Forms.Button
Friend WithEvents buttonStop As System.Windows.Forms.Button
Friend WithEvents buttonHome As System.Windows.Forms.Button
Friend WithEvents buttonRefresh As System.Windows.Forms.Button
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents buttonSubmit As System.Windows.Forms.Button
Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser
End Class
Related examples in the same category