VB.Net by API/System.Windows.Forms/WebBrowser
Содержание
WebBrowser.GoBack()
<source lang="vbnet">
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.rupilerServices.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
</source>
WebBrowser.GoForward()
<source lang="vbnet">
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.rupilerServices.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
</source>
WebBrowser.GoHome()
<source lang="vbnet">
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.rupilerServices.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
</source>
<source lang="vbnet">
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.rupilerServices.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
</source>