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
|
