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

最新推荐文章于 2023-08-12 01:36:00 发布

原创最新推荐文章于 2023-08-12 01:36:00 发布 · 2k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#扩展 #webbrowser #object #components #internet #class

VB.NET应用点滴专栏收录该内容

120 篇文章

订阅专栏

本文作者水如烟探讨了WebBrowser组件的应用，特别关注其状态栏和菜单的扩展。尽管部分高级功能可能无法直接从WebBrowser类获取，作者仍尝试实现并留待后续研究。

Author:水如烟

再看状态栏和菜单：

到了这里,许多功能从WebBrowser类中取不到了.先空着,后面再尝试实现,实现不了的空着算了.

代码

Imports System.ComponentModel

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

         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.ProgressChanged, AddressOf WebBrowser_ProgressChanged
                     RemoveHandler gWebBrowser.StatusTextChanged, AddressOf WebBrowser_StatusTextChanged
                    gWebBrowser = Nothing
                 End If

                 If value IsNot Nothing Then
                    gWebBrowser = value
                     AddHandler gWebBrowser.ProgressChanged, AddressOf WebBrowser_ProgressChanged
                     AddHandler gWebBrowser.StatusTextChanged, AddressOf WebBrowser_StatusTextChanged
                 End If
             End Set
         End Property

         Private Sub WebBrowser_StatusTextChanged( ByVal sender As Object , ByVal e As System.EventArgs)
             Me .MessageToolStripStatusLabel.Text = Me .gWebBrowser.StatusText
         End Sub

         Private Sub WebBrowser_ProgressChanged( ByVal sender As Object , ByVal e As System.Windows.Forms.WebBrowserProgressChangedEventArgs)
             Me .ProgressToolStripProgressBar.Value = CInt (e.CurrentProgress / e.MaximumProgress * 100 )
             If Me .ProgressToolStripProgressBar.Value = 100 Then Me .ProgressToolStripProgressBar.Value = 0
             Me .ProgressToolStripProgressBar.Visible = Not ( Me .ProgressToolStripProgressBar.Value = 0 )
         End Sub

     End Class
End Namespace

Imports System.ComponentModel

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

#Region "file"
         Private Sub NewWinToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles NewWinToolStripMenuItem.Click
             If Me .gWebBrowser IsNot Nothing Then

             End If
         End Sub

         Private Sub OpenToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles OpenToolStripMenuItem.Click
             If Me .gWebBrowser IsNot Nothing Then

             End If
         End Sub

         Private Sub EditorToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles EditorToolStripMenuItem.Click
             If Me .gWebBrowser IsNot Nothing Then

             End If
         End Sub

         Private Sub SaveToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles SaveToolStripMenuItem.Click
             If Me .gWebBrowser IsNot Nothing Then

             End If
         End Sub

         Private Sub SaveAsToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles SaveAsToolStripMenuItem.Click
             If Me .gWebBrowser IsNot Nothing Then
                 Me .gWebBrowser.ShowSaveAsDialog()
             End If
         End Sub

         Private Sub PageSetupToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles PageSetupToolStripMenuItem.Click
             If Me .gWebBrowser IsNot Nothing Then
                 Me .gWebBrowser.ShowPageSetupDialog()
             End If
         End Sub

         Private Sub PrintToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles PrintToolStripMenuItem.Click
             If Me .gWebBrowser IsNot Nothing Then
                 Me .gWebBrowser.ShowPrintDialog()
             End If
         End Sub

         Private Sub PrintPreviewToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles PrintPreviewToolStripMenuItem.Click
             If Me .gWebBrowser IsNot Nothing Then
                 Me .gWebBrowser.ShowPrintPreviewDialog()
             End If
         End Sub

         Private Sub PropertiesToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles PropertiesToolStripMenuItem.Click
             If Me .gWebBrowser IsNot Nothing Then
                 Me .gWebBrowser.ShowPropertiesDialog()
             End If
         End Sub

         Private Sub CloseToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles CloseToolStripMenuItem.Click
             If Me .gWebBrowser IsNot Nothing Then
                 Me .gWebBrowser.FindForm.Close()
             End If
         End Sub
#End Region

#Region "edit"
         Private Sub CutToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles CutToolStripMenuItem.Click

         End Sub

         Private Sub CopyToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles CopyToolStripMenuItem.Click

         End Sub

         Private Sub PasteToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles PasteToolStripMenuItem.Click

         End Sub

         Private Sub SelectAllToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles SelectAllToolStripMenuItem.Click

         End Sub

         Private Sub FindToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles FindToolStripMenuItem.Click

         End Sub
#End Region

#Region "view"

         Private Sub StandarBarToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles StandarBarToolStripMenuItem.Click
             If Me .gWebBrowser IsNot Nothing Then

             End If
         End Sub

         Private Sub AddressBarToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles AddressBarToolStripMenuItem.Click
             If Me .gWebBrowser IsNot Nothing Then

             End If
         End Sub

         Private Sub LinkBarToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles LinkBarToolStripMenuItem.Click
             If Me .gWebBrowser IsNot Nothing Then

             End If
         End Sub

         Private Sub StatusBarToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles StatusBarToolStripMenuItem.Click
             If Me .gWebBrowser IsNot Nothing Then

             End If
         End Sub

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

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

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

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

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

         Private Sub SourceToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles SourceToolStripMenuItem.Click

         End Sub
#End Region

#Region "favorite"
         Private Sub AddToFavoriteToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles AddToFavoriteToolStripMenuItem.Click

         End Sub

         Private Sub CoordinateFavoriteToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles CoordinateFavoriteToolStripMenuItem.Click

         End Sub
#End Region

#Region "tools"
         Private Sub ActiveXToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles ActiveXToolStripMenuItem.Click

         End Sub

         Private Sub WinUpdateToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles WinUpdateToolStripMenuItem.Click

         End Sub

         Private Sub InternetOptionsToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles InternetOptionsToolStripMenuItem.Click

         End Sub
#End Region

#Region "help"
         Private Sub AboutToolStripMenuItem_Click( ByVal sender As Object , ByVal e As System.EventArgs) _
         Handles AboutToolStripMenuItem.Click

         End Sub
#End Region

         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 .GoBackToolStripMenuItem.Enabled = Me .gWebBrowser.CanGoBack
         End Sub

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

     End Class
End Namespace

Namespace LzmTW.uSystem.uWindows.uForm.Web
     < DesignerSerializer( " System.Windows.Forms.Design.ToolStripCodeDomSerializer, System.Design, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a " , " System.ComponentModel.Design.Serialization.CodeDomSerializer, System.Design, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a " ), ComVisible( True ), ClassInterface(ClassInterfaceType.AutoDispatch), DefaultEvent( " ItemClicked " ), DefaultProperty( " Items " ), Designer( " System.Windows.Forms.Design.ToolStripDesigner, System.Design, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a " ) > _
     Partial Class WinMenuStrip
         Inherits System.Windows.Forms.MenuStrip

         < 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()
             Me .FileToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .NewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .NewWinToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .OpenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .EditorToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .SaveToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .SaveAsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .FileToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator
             Me .PageSetupToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .PrintToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .PrintPreviewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .FileToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator
             Me .AddToToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .FileToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator
             Me .PropertiesToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .CloseToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .EditToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .CutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .CopyToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .PasteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .EditToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator
             Me .SelectAllToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .EditToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator
             Me .FindToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .ViewToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .ToolBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .StandarBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .AddressBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .LinkBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .StatusBarToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .ViewToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator
             Me .GotoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .GoBackToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .GoForwardToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .GotoToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator
             Me .HomeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .GotoToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator
             Me .StopToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .RefleshToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .ViewToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator
             Me .SourceToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .FavoriteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .AddToFavoriteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .CoordinateFavoriteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .ToolsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .WinUpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .ToolsToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator
             Me .InternetOptionsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .HelpToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .AboutToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .ActiveXToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem
             Me .SuspendLayout()
             '
             ' FileToolStripMenuItem
             '
             Me .FileToolStripMenuItem.DropDownItems.AddRange( New System.Windows.Forms.ToolStripItem() { Me .NewToolStripMenuItem, Me .OpenToolStripMenuItem, Me .EditorToolStripMenuItem, Me .SaveToolStripMenuItem, Me .SaveAsToolStripMenuItem, Me .FileToolStripSeparator1, Me .PageSetupToolStripMenuItem, Me .PrintToolStripMenuItem, Me .PrintPreviewToolStripMenuItem, Me .FileToolStripSeparator2, Me .AddToToolStripMenuItem, Me .FileToolStripSeparator3, Me .PropertiesToolStripMenuItem, Me .CloseToolStripMenuItem})
             Me .FileToolStripMenuItem.Name = " FileToolStripMenuItem "
             Me .FileToolStripMenuItem.Size = New System.Drawing.Size( 59 , 20 )
             Me .FileToolStripMenuItem.Text = " 文件(&F) "
             '
             ' NewToolStripMenuItem
             '
             Me .NewToolStripMenuItem.DropDownItems.AddRange( New System.Windows.Forms.ToolStripItem() { Me .NewWinToolStripMenuItem})
             Me .NewToolStripMenuItem.Name = " NewToolStripMenuItem "
             Me .NewToolStripMenuItem.Size = New System.Drawing.Size( 172 , 22 )
             Me .NewToolStripMenuItem.Text = " 新建(&N) "
             '
             ' NewWinToolStripMenuItem
             '
             Me .NewWinToolStripMenuItem.Name = " NewWinToolStripMenuItem "
             Me .NewWinToolStripMenuItem.ShortcutKeys = CType ((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.N), System.Windows.Forms.Keys)
             Me .NewWinToolStripMenuItem.Size = New System.Drawing.Size( 153 , 22 )
             Me .NewWinToolStripMenuItem.Text = " 窗口(&W) "
             '
             ' OpenToolStripMenuItem
             '
             Me .OpenToolStripMenuItem.Name = " OpenToolStripMenuItem "
             Me .OpenToolStripMenuItem.ShortcutKeys = CType ((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.O), System.Windows.Forms.Keys)
             Me .OpenToolStripMenuItem.Size = New System.Drawing.Size( 172 , 22 )
             Me .OpenToolStripMenuItem.Text = " 打开(&O)... "
             '
             ' EditorToolStripMenuItem
             '
             Me .EditorToolStripMenuItem.Name = " EditorToolStripMenuItem "
             Me .EditorToolStripMenuItem.Size = New System.Drawing.Size( 172 , 22 )
             Me .EditorToolStripMenuItem.Text = " 用 {0} 编辑(&D) "
             '
             ' SaveToolStripMenuItem
             '
             Me .SaveToolStripMenuItem.Enabled = False
             Me .SaveToolStripMenuItem.Name = " SaveToolStripMenuItem "
             Me .SaveToolStripMenuItem.Size = New System.Drawing.Size( 172 , 22 )
             Me .SaveToolStripMenuItem.Text = " 保存(&S) "
             '
             ' SaveAsToolStripMenuItem
             '
             Me .SaveAsToolStripMenuItem.Name = " SaveAsToolStripMenuItem "
             Me .SaveAsToolStripMenuItem.Size = New System.Drawing.Size( 172 , 22 )
             Me .SaveAsToolStripMenuItem.Text = " 另存为(&A)... "
             '
             ' FileToolStripSeparator1
             '
             Me .FileToolStripSeparator1.Name = " FileToolStripSeparator1 "
             Me .FileToolStripSeparator1.Size = New System.Drawing.Size( 169 , 6 )
             '
             ' PageSetupToolStripMenuItem
             '
             Me .PageSetupToolStripMenuItem.Name = " PageSetupToolStripMenuItem "
             Me .PageSetupToolStripMenuItem.Size = New System.Drawing.Size( 172 , 22 )
             Me .PageSetupToolStripMenuItem.Text = " 页面设置(&U)... "
             '
             ' PrintToolStripMenuItem
             '
             Me .PrintToolStripMenuItem.Name = " PrintToolStripMenuItem "
             Me .PrintToolStripMenuItem.Size = New System.Drawing.Size( 172 , 22 )
             Me .PrintToolStripMenuItem.Text = " 打印(&P)... "
             '
             ' PrintPreviewToolStripMenuItem
             '
             Me .PrintPreviewToolStripMenuItem.Name = " PrintPreviewToolStripMenuItem "
             Me .PrintPreviewToolStripMenuItem.Size = New System.Drawing.Size( 172 , 22 )
             Me .PrintPreviewToolStripMenuItem.Text = " 打印预览(&V)... "
             '
             ' FileToolStripSeparator2
             '
             Me .FileToolStripSeparator2.Name = " FileToolStripSeparator2 "
             Me .FileToolStripSeparator2.Size = New System.Drawing.Size( 169 , 6 )
             '
             ' AddToToolStripMenuItem
             '
             Me .AddToToolStripMenuItem.Name = " AddToToolStripMenuItem "
             Me .AddToToolStripMenuItem.Size = New System.Drawing.Size( 172 , 22 )
             Me .AddToToolStripMenuItem.Text = " 将此站点添加到(&A) "
             '
             ' FileToolStripSeparator3
             '
             Me .FileToolStripSeparator3.Name = " FileToolStripSeparator3 "
             Me .FileToolStripSeparator3.Size = New System.Drawing.Size( 169 , 6 )
             '
             ' PropertiesToolStripMenuItem
             '
             Me .PropertiesToolStripMenuItem.Name = " PropertiesToolStripMenuItem "
             Me .PropertiesToolStripMenuItem.Size = New System.Drawing.Size( 172 , 22 )
             Me .PropertiesToolStripMenuItem.Text = " 属性(&R) "
             '
             ' CloseToolStripMenuItem
             '
             Me .CloseToolStripMenuItem.Name = " CloseToolStripMenuItem "
             Me .CloseToolStripMenuItem.Size = New System.Drawing.Size( 172 , 22 )
             Me .CloseToolStripMenuItem.Text = " 关闭(&C) "
             '
             ' EditToolStripMenuItem
             '
             Me .EditToolStripMenuItem.DropDownItems.AddRange( New System.Windows.Forms.ToolStripItem() { Me .CutToolStripMenuItem, Me .CopyToolStripMenuItem, Me .PasteToolStripMenuItem, Me .EditToolStripSeparator1, Me .SelectAllToolStripMenuItem, Me .EditToolStripSeparator2, Me .FindToolStripMenuItem})
             Me .EditToolStripMenuItem.Name = " EditToolStripMenuItem "
             Me .EditToolStripMenuItem.Size = New System.Drawing.Size( 59 , 20 )
             Me .EditToolStripMenuItem.Text = " 编辑(&E) "
             '
             ' CutToolStripMenuItem
             '
             Me .CutToolStripMenuItem.Enabled = False
             Me .CutToolStripMenuItem.Name = " CutToolStripMenuItem "
             Me .CutToolStripMenuItem.ShortcutKeys = CType ((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.X), System.Windows.Forms.Keys)
             Me .CutToolStripMenuItem.Size = New System.Drawing.Size( 231 , 22 )
             Me .CutToolStripMenuItem.Text = " 剪切(&T) "
             '
             ' CopyToolStripMenuItem
             '
             Me .CopyToolStripMenuItem.Enabled = False
             Me .CopyToolStripMenuItem.Name = " CopyToolStripMenuItem "
             Me .CopyToolStripMenuItem.ShortcutKeys = CType ((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.C), System.Windows.Forms.Keys)
             Me .CopyToolStripMenuItem.Size = New System.Drawing.Size( 231 , 22 )
             Me .CopyToolStripMenuItem.Text = " 复制(&C) "
             '
             ' PasteToolStripMenuItem
             '
             Me .PasteToolStripMenuItem.Enabled = False
             Me .PasteToolStripMenuItem.Name = " PasteToolStripMenuItem "
             Me .PasteToolStripMenuItem.ShortcutKeys = CType ((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.V), System.Windows.Forms.Keys)
             Me .PasteToolStripMenuItem.Size = New System.Drawing.Size( 231 , 22 )
             Me .PasteToolStripMenuItem.Text = " 粘贴(&P) "
             '
             ' EditToolStripSeparator1
             '
             Me .EditToolStripSeparator1.Name = " EditToolStripSeparator1 "
             Me .EditToolStripSeparator1.Size = New System.Drawing.Size( 228 , 6 )
             '
             ' SelectAllToolStripMenuItem
             '
             Me .SelectAllToolStripMenuItem.Name = " SelectAllToolStripMenuItem "
             Me .SelectAllToolStripMenuItem.ShortcutKeys = CType ((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.A), System.Windows.Forms.Keys)
             Me .SelectAllToolStripMenuItem.Size = New System.Drawing.Size( 231 , 22 )
             Me .SelectAllToolStripMenuItem.Text = " 全选(&A) "
             '
             ' EditToolStripSeparator2
             '
             Me .EditToolStripSeparator2.Name = " EditToolStripSeparator2 "
             Me .EditToolStripSeparator2.Size = New System.Drawing.Size( 228 , 6 )
             '
             ' FindToolStripMenuItem
             '
             Me .FindToolStripMenuItem.Name = " FindToolStripMenuItem "
             Me .FindToolStripMenuItem.ShortcutKeys = CType ((System.Windows.Forms.Keys.Control Or System.Windows.Forms.Keys.F), System.Windows.Forms.Keys)
             Me .FindToolStripMenuItem.Size = New System.Drawing.Size( 231 , 22 )
             Me .FindToolStripMenuItem.Text = " 查找(在当前页)(&F)... "
             '
             ' ViewToolStripMenuItem
             '
             Me .ViewToolStripMenuItem.DropDownItems.AddRange( New System.Windows.Forms.ToolStripItem() { Me .ToolBarToolStripMenuItem, Me .StatusBarToolStripMenuItem, Me .ViewToolStripSeparator1, Me .GotoToolStripMenuItem, Me .StopToolStripMenuItem, Me .RefleshToolStripMenuItem, Me .ViewToolStripSeparator2, Me .SourceToolStripMenuItem})
             Me .ViewToolStripMenuItem.Name = " ViewToolStripMenuItem "
             Me .ViewToolStripMenuItem.Size = New System.Drawing.Size( 59 , 20 )
             Me .ViewToolStripMenuItem.Text = " 查看(&V) "
             '
             ' ToolBarToolStripMenuItem
             '
             Me .ToolBarToolStripMenuItem.DropDownItems.AddRange( New System.Windows.Forms.ToolStripItem() { Me .StandarBarToolStripMenuItem, Me .AddressBarToolStripMenuItem, Me .LinkBarToolStripMenuItem})
             Me .ToolBarToolStripMenuItem.Name = " ToolBarToolStripMenuItem "
             Me .ToolBarToolStripMenuItem.Size = New System.Drawing.Size( 129 , 22 )
             Me .ToolBarToolStripMenuItem.Text = " 工具栏(&T) "
             '
             ' StandarBarToolStripMenuItem
             '
             Me .StandarBarToolStripMenuItem.Checked = True
             Me .StandarBarToolStripMenuItem.CheckOnClick = True
             Me .StandarBarToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked
             Me .StandarBarToolStripMenuItem.Name = " StandarBarToolStripMenuItem "
             Me .StandarBarToolStripMenuItem.Size = New System.Drawing.Size( 136 , 22 )
             Me .StandarBarToolStripMenuItem.Text = " 标准按钮(&S) "
             '
             ' AddressBarToolStripMenuItem
             '
             Me .AddressBarToolStripMenuItem.Checked = True
             Me .AddressBarToolStripMenuItem.CheckOnClick = True
             Me .AddressBarToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked
             Me .AddressBarToolStripMenuItem.Name = " AddressBarToolStripMenuItem "
             Me .AddressBarToolStripMenuItem.Size = New System.Drawing.Size( 136 , 22 )
             Me .AddressBarToolStripMenuItem.Text = " 地址栏(&A) "
             '
             ' LinkBarToolStripMenuItem
             '
             Me .LinkBarToolStripMenuItem.Checked = True
             Me .LinkBarToolStripMenuItem.CheckOnClick = True
             Me .LinkBarToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked
             Me .LinkBarToolStripMenuItem.Name = " LinkBarToolStripMenuItem "
             Me .LinkBarToolStripMenuItem.Size = New System.Drawing.Size( 136 , 22 )
             Me .LinkBarToolStripMenuItem.Text = " 链接(&L) "
             '
             ' StatusBarToolStripMenuItem
             '
             Me .StatusBarToolStripMenuItem.Checked = True
             Me .StatusBarToolStripMenuItem.CheckOnClick = True
             Me .StatusBarToolStripMenuItem.CheckState = System.Windows.Forms.CheckState.Checked
             Me .StatusBarToolStripMenuItem.Name = " StatusBarToolStripMenuItem "
             Me .StatusBarToolStripMenuItem.Size = New System.Drawing.Size( 129 , 22 )
             Me .StatusBarToolStripMenuItem.Text = " 状态栏(&B) "
             '
             ' ViewToolStripSeparator1
             '
             Me .ViewToolStripSeparator1.Name = " ViewToolStripSeparator1 "
             Me .ViewToolStripSeparator1.Size = New System.Drawing.Size( 126 , 6 )
             '
             ' GotoToolStripMenuItem
             '
             Me .GotoToolStripMenuItem.DropDownItems.AddRange( New System.Windows.Forms.ToolStripItem() { Me .GoBackToolStripMenuItem, Me .GoForwardToolStripMenuItem, Me .GotoToolStripSeparator1, Me .HomeToolStripMenuItem, Me .GotoToolStripSeparator2})
             Me .GotoToolStripMenuItem.Name = " GotoToolStripMenuItem "
             Me .GotoToolStripMenuItem.Size = New System.Drawing.Size( 129 , 22 )
             Me .GotoToolStripMenuItem.Text = " 转到(&O) "
             '
             ' GoBackToolStripMenuItem
             '
             Me .GoBackToolStripMenuItem.Enabled = False
             Me .GoBackToolStripMenuItem.Name = " GoBackToolStripMenuItem "
             Me .GoBackToolStripMenuItem.ShortcutKeys = CType ((System.Windows.Forms.Keys.Alt Or System.Windows.Forms.Keys.Left), System.Windows.Forms.Keys)
             Me .GoBackToolStripMenuItem.Size = New System.Drawing.Size( 171 , 22 )
             Me .GoBackToolStripMenuItem.Text = " 后退(&B) "
             '
             ' GoForwardToolStripMenuItem
             '
             Me .GoForwardToolStripMenuItem.Enabled = False
             Me .GoForwardToolStripMenuItem.Name = " GoForwardToolStripMenuItem "
             Me .GoForwardToolStripMenuItem.ShortcutKeys = CType ((System.Windows.Forms.Keys.Alt Or System.Windows.Forms.Keys.Right), System.Windows.Forms.Keys)
             Me .GoForwardToolStripMenuItem.Size = New System.Drawing.Size( 171 , 22 )
             Me .GoForwardToolStripMenuItem.Text = " 前进(&F) "
             '
             ' GotoToolStripSeparator1
             '
             Me .GotoToolStripSeparator1.Name = " GotoToolStripSeparator1 "
             Me .GotoToolStripSeparator1.Size = New System.Drawing.Size( 168 , 6 )
             '
             ' HomeToolStripMenuItem
             '
             Me .HomeToolStripMenuItem.Name = " HomeToolStripMenuItem "
             Me .HomeToolStripMenuItem.Size = New System.Drawing.Size( 171 , 22 )
             Me .HomeToolStripMenuItem.Text = " 主页(&H) "
             '
             ' GotoToolStripSeparator2
             '
             Me .GotoToolStripSeparator2.Name = " GotoToolStripSeparator2 "
             Me .GotoToolStripSeparator2.Size = New System.Drawing.Size( 168 , 6 )
             '
             ' StopToolStripMenuItem
             '
             Me .StopToolStripMenuItem.Name = " StopToolStripMenuItem "
             Me .StopToolStripMenuItem.Size = New System.Drawing.Size( 129 , 22 )
             Me .StopToolStripMenuItem.Text = " 停止(&P) "
             '
             ' RefleshToolStripMenuItem
             '
             Me .RefleshToolStripMenuItem.Name = " RefleshToolStripMenuItem "
             Me .RefleshToolStripMenuItem.ShortcutKeys = System.Windows.Forms.Keys.F5
             Me .RefleshToolStripMenuItem.Size = New System.Drawing.Size( 129 , 22 )
             Me .RefleshToolStripMenuItem.Text = " 刷新(&R) "
             '
             ' ViewToolStripSeparator2
             '
             Me .ViewToolStripSeparator2.Name = " ViewToolStripSeparator2 "
             Me .ViewToolStripSeparator2.Size = New System.Drawing.Size( 126 , 6 )
             '
             ' SourceToolStripMenuItem
             '
             Me .SourceToolStripMenuItem.Name = " SourceToolStripMenuItem "
             Me .SourceToolStripMenuItem.Size = New System.Drawing.Size( 129 , 22 )
             Me .SourceToolStripMenuItem.Text = " 源文件(&C) "
             '
             ' FavoriteToolStripMenuItem
             '
             Me .FavoriteToolStripMenuItem.DropDownItems.AddRange( New System.Windows.Forms.ToolStripItem() { Me .AddToFavoriteToolStripMenuItem, Me .CoordinateFavoriteToolStripMenuItem})
             Me .FavoriteToolStripMenuItem.Name = " FavoriteToolStripMenuItem "
             Me .FavoriteToolStripMenuItem.Size = New System.Drawing.Size( 59 , 20 )
             Me .FavoriteToolStripMenuItem.Text = " 收藏(&A) "
             '
             ' AddToFavoriteToolStripMenuItem
             '
             Me .AddToFavoriteToolStripMenuItem.Name = " AddToFavoriteToolStripMenuItem "
             Me .AddToFavoriteToolStripMenuItem.Size = New System.Drawing.Size( 178 , 22 )
             Me .AddToFavoriteToolStripMenuItem.Text = " 添加到收藏夹(&A)... "
             '
             ' CoordinateFavoriteToolStripMenuItem
             '
             Me .CoordinateFavoriteToolStripMenuItem.Name = " CoordinateFavoriteToolStripMenuItem "
             Me .CoordinateFavoriteToolStripMenuItem.Size = New System.Drawing.Size( 178 , 22 )
             Me .CoordinateFavoriteToolStripMenuItem.Text = " 整理收藏夹(&O)... "
             '
             ' ToolsToolStripMenuItem
             '
             Me .ToolsToolStripMenuItem.DropDownItems.AddRange( New System.Windows.Forms.ToolStripItem() { Me .ActiveXToolStripMenuItem, Me .WinUpdateToolStripMenuItem, Me .ToolsToolStripSeparator1, Me .InternetOptionsToolStripMenuItem})
             Me .ToolsToolStripMenuItem.Name = " ToolsToolStripMenuItem "
             Me .ToolsToolStripMenuItem.Size = New System.Drawing.Size( 59 , 20 )
             Me .ToolsToolStripMenuItem.Text = " 工具(&T) "
             '
             ' WinUpdateToolStripMenuItem
             '
             Me .WinUpdateToolStripMenuItem.Name = " WinUpdateToolStripMenuItem "
             Me .WinUpdateToolStripMenuItem.Size = New System.Drawing.Size( 184 , 22 )
             Me .WinUpdateToolStripMenuItem.Text = " Windows Update(&U) "
             '
             ' ToolsToolStripSeparator1
             '
             Me .ToolsToolStripSeparator1.Name = " ToolsToolStripSeparator1 "
             Me .ToolsToolStripSeparator1.Size = New System.Drawing.Size( 181 , 6 )
             '
             ' InternetOptionsToolStripMenuItem
             '
             Me .InternetOptionsToolStripMenuItem.Name = " InternetOptionsToolStripMenuItem "
             Me .InternetOptionsToolStripMenuItem.Size = New System.Drawing.Size( 184 , 22 )
             Me .InternetOptionsToolStripMenuItem.Text = " Internet 选项(&O)... "
             '
             ' HelpToolStripMenuItem
             '
             Me .HelpToolStripMenuItem.DropDownItems.AddRange( New System.Windows.Forms.ToolStripItem() { Me .AboutToolStripMenuItem})
             Me .HelpToolStripMenuItem.Name = " HelpToolStripMenuItem "
             Me .HelpToolStripMenuItem.Size = New System.Drawing.Size( 59 , 20 )
             Me .HelpToolStripMenuItem.Text = " 帮助(&H) "
             '
             ' AboutToolStripMenuItem
             '
             Me .AboutToolStripMenuItem.Name = " AboutToolStripMenuItem "
             Me .AboutToolStripMenuItem.Size = New System.Drawing.Size( 262 , 22 )
             Me .AboutToolStripMenuItem.Text = " 关于 LzmTW Internet Explorer (&A) "
             '
             ' ActiveXToolStripMenuItem
             '
             Me .ActiveXToolStripMenuItem.Name = " ActiveXToolStripMenuItem "
             Me .ActiveXToolStripMenuItem.Size = New System.Drawing.Size( 184 , 22 )
             Me .ActiveXToolStripMenuItem.Text = " 管理加载项(&A)... "
             '
             ' WinMenuStrip
             '
             Me .Items.AddRange( New System.Windows.Forms.ToolStripItem() { Me .FileToolStripMenuItem, Me .EditToolStripMenuItem, Me .ViewToolStripMenuItem, Me .FavoriteToolStripMenuItem, Me .ToolsToolStripMenuItem, Me .HelpToolStripMenuItem})
             Me .Text = " WinMenuStrip "
             Me .ResumeLayout( False )

         End Sub

         Friend WithEvents FileToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents NewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents NewWinToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents OpenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents EditorToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents SaveToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents SaveAsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents FileToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
         Friend WithEvents PageSetupToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents PrintToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents PrintPreviewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents FileToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
         Friend WithEvents AddToToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents FileToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator
         Friend WithEvents PropertiesToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents CloseToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents EditToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents CutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents CopyToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents PasteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents EditToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
         Friend WithEvents SelectAllToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents EditToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
         Friend WithEvents FindToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents ViewToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents ToolBarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents StandarBarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents AddressBarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents LinkBarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents StatusBarToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents ViewToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
         Friend WithEvents GotoToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents GoBackToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents GoForwardToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents GotoToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
         Friend WithEvents HomeToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents GotoToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
         Friend WithEvents StopToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents RefleshToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents ViewToolStripSeparator2 As System.Windows.Forms.ToolStripSeparator
         Friend WithEvents SourceToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents FavoriteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents AddToFavoriteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents CoordinateFavoriteToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents ToolsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents WinUpdateToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents ToolsToolStripSeparator1 As System.Windows.Forms.ToolStripSeparator
         Friend WithEvents InternetOptionsToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents HelpToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents AboutToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem
         Friend WithEvents ActiveXToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem

     End Class
End Namespace