WebBrower的应用和功能扩展(三)

Author:水如烟

再看标准按钮。




代码：


Imports System.ComponentModel

Namespace LzmTW.uSystem.uWindows.uForm.Web
Public Class WinToolStrip

Public Event FavoriteClick As EventHandler
Public Event HistoryClick As EventHandler

Private Sub GoBackToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles GoBackToolStripButton.Click
If Me.gWebBrowser IsNot Nothing Then
Me.gWebBrowser.GoBack()
End If
End Sub

Private Sub GoForwardToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles GoForwardToolStripButton.Click
If Me.gWebBrowser IsNot Nothing Then
Me.gWebBrowser.GoForward()
End If
End Sub

Private Sub StopToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles StopToolStripButton.Click
If Me.gWebBrowser IsNot Nothing Then
Me.gWebBrowser.Stop()
End If
End Sub

Private Sub RefleshToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles RefleshToolStripButton.Click
If Me.gWebBrowser IsNot Nothing Then
Me.gWebBrowser.Refresh()
End If
End Sub

Private Sub SearchToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles SearchToolStripButton.Click
If Me.gWebBrowser IsNot Nothing Then
Me.gWebBrowser.GoSearch()
End If
End Sub

Private Sub HomeToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles HomeToolStripButton.Click
If Me.gWebBrowser IsNot Nothing Then
Me.gWebBrowser.GoHome()
End If
End Sub

Private Sub HistoryToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles HistoryToolStripButton.Click
If Me.gWebBrowser IsNot Nothing Then
RaiseEvent HistoryClick(sender, e)
End If
End Sub

Private Sub FavoriteToolStripButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles FavoriteToolStripButton.Click
If Me.gWebBrowser IsNot Nothing Then
RaiseEvent FavoriteClick(sender, e)
End If
End Sub

Private gWebBrowser As System.Windows.Forms.WebBrowser

<DesignerSerializationVisibility(DesignerSerializationVisibility.Visible)> _
Public Property WebBrowser() As System.Windows.Forms.WebBrowser
Get
Return Me.gWebBrowser
End Get
Set(ByVal value As System.Windows.Forms.WebBrowser)
If gWebBrowser IsNot Nothing Then
RemoveHandler gWebBrowser.CanGoBackChanged, AddressOf WebBrowser_CanGoBackChanged
RemoveHandler gWebBrowser.CanGoForwardChanged, AddressOf WebBrowser_CanGoForwardChanged
gWebBrowser = Nothing
End If

If value IsNot Nothing Then
gWebBrowser = value
AddHandler gWebBrowser.CanGoBackChanged, AddressOf WebBrowser_CanGoBackChanged
AddHandler gWebBrowser.CanGoForwardChanged, AddressOf WebBrowser_CanGoForwardChanged
End If
End Set
End Property

Private Sub WebBrowser_CanGoBackChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Me.GoBackToolStripButton.Enabled = Me.gWebBrowser.CanGoBack
End Sub

Private Sub WebBrowser_CanGoForwardChanged(ByVal sender As Object, ByVal e As System.EventArgs)
Me.GoForwardToolStripButton.Enabled = Me.gWebBrowser.CanGoForward
End Sub
End Class
End Namespace



Namespace LzmTW.uSystem.uWindows.uForm.Web
Partial Class WinToolStrip
Inherits System.Windows.Forms.ToolStrip

<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New(ByVal container As System.ComponentModel.IContainer)
MyClass.New()

'Windows.Forms 类撰写设计器支持所必需的
If (container IsNot Nothing) Then
container.Add(Me)
End If

End Sub

<System.Diagnostics.DebuggerNonUserCode()> _
Public Sub New()
MyBase.New()

'组件设计器需要此调用。
InitializeComponent()

End Sub

'Component 重写 Dispose，以清理组件列表。
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub

'组件设计器所必需的
Private components As System.ComponentModel.IContainer

'注意: 以下过程是组件设计器所必需的
'可使用组件设计器修改它。
'不要使用代码编辑器修改它。
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(WinToolStrip))
Me.GoBackToolStripButton = New System.Windows.Forms.ToolStripButton
Me.GoForwardToolStripButton = New System.Windows.Forms.ToolStripButton
Me.StopToolStripButton = New System.Windows.Forms.ToolStripButton
Me.RefleshToolStripButton = New System.Windows.Forms.ToolStripButton
Me.HomeToolStripButton = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator
Me.SearchToolStripButton = New System.Windows.Forms.ToolStripButton
Me.FavoriteToolStripButton = New System.Windows.Forms.ToolStripButton
Me.HistoryToolStripButton = New System.Windows.Forms.ToolStripButton
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator
Me.SuspendLayout()
'
'WinToolStrip
'
Me.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.GoBackToolStripButton, Me.GoForwardToolStripButton, Me.StopToolStripButton, Me.RefleshToolStripButton, Me.HomeToolStripButton, Me.ToolStripSeparator1, Me.SearchToolStripButton, Me.FavoriteToolStripButton, Me.HistoryToolStripButton, Me.ToolStripSeparator2})

Me.Name = "WinToolStrip"

'
'GoBackToolStripButton
'
Me.GoBackToolStripButton.Enabled = False
Me.GoBackToolStripButton.Image = CType(resources.GetObject("GoBackToolStripButton.Image"), System.Drawing.Image)
Me.GoBackToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.GoBackToolStripButton.Name = "GoBackToolStripButton"
Me.GoBackToolStripButton.Size = New System.Drawing.Size(49, 22)
Me.GoBackToolStripButton.Text = "后退"
'
'GoForwardToolStripButton
'
Me.GoForwardToolStripButton.Enabled = False
Me.GoForwardToolStripButton.Image = CType(resources.GetObject("GoForwardToolStripButton.Image"), System.Drawing.Image)
Me.GoForwardToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.GoForwardToolStripButton.Name = "GoForwardToolStripButton"
Me.GoForwardToolStripButton.Size = New System.Drawing.Size(49, 20)
Me.GoForwardToolStripButton.Text = "前进"
'
'StopToolStripButton
'
Me.StopToolStripButton.Image = CType(resources.GetObject("StopToolStripButton.Image"), System.Drawing.Image)
Me.StopToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.StopToolStripButton.Name = "StopToolStripButton"
Me.StopToolStripButton.Size = New System.Drawing.Size(49, 20)
Me.StopToolStripButton.Text = "停止"
'
'RefleshToolStripButton
'
Me.RefleshToolStripButton.Image = CType(resources.GetObject("RefleshToolStripButton.Image"), System.Drawing.Image)
Me.RefleshToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.RefleshToolStripButton.Name = "RefleshToolStripButton"
Me.RefleshToolStripButton.Size = New System.Drawing.Size(49, 20)
Me.RefleshToolStripButton.Text = "刷新"
'
'HomeToolStripButton
'
Me.HomeToolStripButton.Image = CType(resources.GetObject("HomeToolStripButton.Image"), System.Drawing.Image)
Me.HomeToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.HomeToolStripButton.Name = "HomeToolStripButton"
Me.HomeToolStripButton.Size = New System.Drawing.Size(49, 20)
Me.HomeToolStripButton.Text = "主页"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 6)
'
'SearchToolStripButton
'
Me.SearchToolStripButton.AutoToolTip = False
Me.SearchToolStripButton.Image = CType(resources.GetObject("SearchToolStripButton.Image"), System.Drawing.Image)
Me.SearchToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.SearchToolStripButton.Name = "SearchToolStripButton"
Me.SearchToolStripButton.Size = New System.Drawing.Size(49, 20)
Me.SearchToolStripButton.Text = "搜索"
'
'FavoriteToolStripButton
'
Me.FavoriteToolStripButton.AutoToolTip = False
Me.FavoriteToolStripButton.Image = CType(resources.GetObject("FavoriteToolStripButton.Image"), System.Drawing.Image)
Me.FavoriteToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.FavoriteToolStripButton.Name = "FavoriteToolStripButton"
Me.FavoriteToolStripButton.Size = New System.Drawing.Size(61, 20)
Me.FavoriteToolStripButton.Text = "收藏夹"
'
'HistoryToolStripButton
'
Me.HistoryToolStripButton.Image = CType(resources.GetObject("HistoryToolStripButton.Image"), System.Drawing.Image)
Me.HistoryToolStripButton.ImageTransparentColor = System.Drawing.Color.Magenta
Me.HistoryToolStripButton.Name = "HistoryToolStripButton"
Me.HistoryToolStripButton.Size = New System.Drawing.Size(49, 20)
Me.HistoryToolStripButton.Text = "历史"
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 6)
Me.ResumeLayout(False)
Me.PerformLayout()

End Sub

Private WithEvents GoBackToolStripButton As System.Windows.Forms.ToolStripButton
Private WithEvents GoForwardToolStripButton As System.Windows.Forms.ToolStripButton
Private WithEvents StopToolStripButton As System.Windows.Forms.ToolStripButton
Private WithEvents RefleshToolStripButton As System.Windows.Forms.ToolStripButton
Private WithEvents HomeToolStripButton As System.Windows.Forms.ToolStripButton
Private WithEvents ToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
Private WithEvents SearchToolStripButton As System.Windows.Forms.ToolStripButton
Private WithEvents FavoriteToolStripButton As System.Windows.Forms.ToolStripButton
Private WithEvents HistoryToolStripButton As System.Windows.Forms.ToolStripButton
Private WithEvents ToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator

End Class
End Namespace