Mega Code Archive

 

Categories / VB.Net by API / System Windows Forms

 

WebBrowser GoForward()

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     <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()         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.Size = New System.Drawing.Size(703, 25)         Me.ToolStripLabel1.Size = New System.Drawing.Size(50, 22)         Me.ToolStripLabel1.Text = "Address:"         Me.txtURL.Size = New System.Drawing.Size(200, 25)         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