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