Mega Code Archive

 

Categories / VB.Net Tutorial / GUI

 

WebBrowser Demo

Imports System.Windows.Forms public class WebBrowserDemo    public Shared Sub Main         Application.Run(New Form1)    End Sub End class Public Class Form1     Private Sub txtURL_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtURL.KeyDown         If (e.KeyCode = Keys.Enter) Then             WebBrowser1.Navigate(txtURL.Text)         End If     End Sub     Private Sub btnBack_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBack.Click         WebBrowser1.GoBack()     End Sub     Private Sub btnForward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnForward.Click         WebBrowser1.GoForward()     End Sub     Private Sub btnHome_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnHome.Click         WebBrowser1.GoHome()     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.ToolStrip1 = New System.Windows.Forms.ToolStrip         Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel         Me.txtURL = New System.Windows.Forms.ToolStripTextBox         Me.btnBack = New System.Windows.Forms.ToolStripButton         Me.btnForward = New System.Windows.Forms.ToolStripButton         Me.btnHome = New System.Windows.Forms.ToolStripButton         Me.WebBrowser1 = New System.Windows.Forms.WebBrowser         Me.ToolStrip1.SuspendLayout()         Me.SuspendLayout()         '         'ToolStrip1         '         Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1, Me.txtURL, Me.btnBack, Me.btnForward, Me.btnHome})         Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)         Me.ToolStrip1.Name = "ToolStrip1"         Me.ToolStrip1.Size = New System.Drawing.Size(703, 25)         Me.ToolStrip1.TabIndex = 0         Me.ToolStrip1.Text = "ToolStrip1"         '         'ToolStripLabel1         '         Me.ToolStripLabel1.Name = "ToolStripLabel1"         Me.ToolStripLabel1.Size = New System.Drawing.Size(50, 22)         Me.ToolStripLabel1.Text = "Address:"         '         'txtURL         '         Me.txtURL.Name = "txtURL"         Me.txtURL.Size = New System.Drawing.Size(200, 25)         '         'btnBack         '         Me.btnBack.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text         Me.btnBack.ImageTransparentColor = System.Drawing.Color.Magenta         Me.btnBack.Name = "btnBack"         Me.btnBack.Size = New System.Drawing.Size(33, 22)         Me.btnBack.Text = "Back"         '         'btnForward         '         Me.btnForward.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text         Me.btnForward.ImageTransparentColor = System.Drawing.Color.Magenta         Me.btnForward.Name = "btnForward"         Me.btnForward.Size = New System.Drawing.Size(51, 22)         Me.btnForward.Text = "Forward"         '         'btnHome         '         Me.btnHome.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text         Me.btnHome.ImageTransparentColor = System.Drawing.Color.Magenta         Me.btnHome.Name = "btnHome"         Me.btnHome.Size = New System.Drawing.Size(38, 22)         Me.btnHome.Text = "Home"         '         'WebBrowser1         '         Me.WebBrowser1.Dock = System.Windows.Forms.DockStyle.Fill         Me.WebBrowser1.Location = New System.Drawing.Point(0, 25)         Me.WebBrowser1.MinimumSize = New System.Drawing.Size(20, 20)         Me.WebBrowser1.Name = "WebBrowser1"         Me.WebBrowser1.Size = New System.Drawing.Size(703, 429)         Me.WebBrowser1.TabIndex = 1         '         'Form1         '         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font         Me.ClientSize = New System.Drawing.Size(703, 454)         Me.Controls.Add(Me.WebBrowser1)         Me.Controls.Add(Me.ToolStrip1)         Me.Name = "Form1"         Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen         Me.Text = "MyBrowser"         Me.ToolStrip1.ResumeLayout(False)         Me.ToolStrip1.PerformLayout()         Me.ResumeLayout(False)         Me.PerformLayout()     End Sub     Friend WithEvents ToolStrip1 As System.Windows.Forms.ToolStrip     Friend WithEvents WebBrowser1 As System.Windows.Forms.WebBrowser     Friend WithEvents ToolStripLabel1 As System.Windows.Forms.ToolStripLabel     Friend WithEvents txtURL As System.Windows.Forms.ToolStripTextBox     Friend WithEvents btnBack As System.Windows.Forms.ToolStripButton     Friend WithEvents btnForward As System.Windows.Forms.ToolStripButton     Friend WithEvents btnHome As System.Windows.Forms.ToolStripButton End Class