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

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

水如烟

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

阅读量2k

点赞数

分类专栏： VB.NET应用点滴文章标签：扩展 webbrowser object components internet class

本文链接：https://blog.csdn.net/lzmtw/article/details/1528895

版权

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

摘要由CSDN通过智能技术生成

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

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 WinStatusStrip
         Inherits System.Windows.Forms.StatusStrip

         < 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 (WinStatusStrip))
             Me .ProgressToolStripProgressBar = New System.Windows.Forms.ToolStripProgressBar
             Me .UnkownToolStripStatusLabel01 = New System.Windows.Forms.ToolStripStatusLabel
             Me .PopWindowToolStripStatusLabel = New System.Windows.Forms.ToolStripStatusLabel
             Me .ActiveXToolStripStatusLabel = New System.Windows.Forms.ToolStripStatusLabel
             Me .UnkownToolStripStatusLabel02 = New System.Windows.Forms.ToolStripStatusLabel
             Me .VerisignToolStripStatusLabel = New System.Windows.Forms.ToolStripStatusLabel
             Me .SecurityToolStripStatusLabel = New System.Windows.Forms.ToolStripStatusLabel
             Me .MessageToolStripStatusLabel = New System.Windows.Forms.ToolStripStatusLabel
             Me .SuspendLayout()
             '
             ' ProgressToolStripProgressBar
             '
             Me .ProgressToolStripProgressBar.Name = " ProgressToolStripProgressBar "
             Me .ProgressToolStripProgressBar.Size = New System.Drawing.Size( 100 , 15 )
             Me .ProgressToolStripProgressBar.Style = System.Windows.Forms.ProgressBarStyle.Continuous
             Me .ProgressToolStripProgressBar.Visible = False
             '
             ' UnkownToolStripStatusLabel01
             '
             Me .UnkownToolStripStatusLabel01.AutoSize = False
             Me .UnkownToolStripStatusLabel01.BorderSides = CType ((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
                         Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
                         Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
             Me .UnkownToolStripStatusLabel01.BorderStyle = System.Windows.Forms.Border3DStyle.SunkenOuter
             Me .UnkownToolStripStatusLabel01.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
             Me .UnkownToolStripStatusLabel01.Name = " UnkownToolStripStatusLabel01 "
             Me .UnkownToolStripStatusLabel01.Size = New System.Drawing.Size( 30 , 16 )
             Me .UnkownToolStripStatusLabel01.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
             '
             ' PopWindowToolStripStatusLabel
             '
             Me .PopWindowToolStripStatusLabel.AutoSize = False
             Me .PopWindowToolStripStatusLabel.BorderSides = CType ((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
                         Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
                         Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
             Me .PopWindowToolStripStatusLabel.BorderStyle = System.Windows.Forms.Border3DStyle.SunkenOuter
             Me .PopWindowToolStripStatusLabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
             Me .PopWindowToolStripStatusLabel.Name = " PopWindowToolStripStatusLabel "
             Me .PopWindowToolStripStatusLabel.Size = New System.Drawing.Size( 30 , 16 )
             Me .PopWindowToolStripStatusLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
             '
             ' ActiveXToolStripStatusLabel
             '
             Me .ActiveXToolStripStatusLabel.AutoSize = False
             Me .ActiveXToolStripStatusLabel.BorderSides = CType ((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
                         Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
                         Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
             Me .ActiveXToolStripStatusLabel.BorderStyle = System.Windows.Forms.Border3DStyle.SunkenOuter
             Me .ActiveXToolStripStatusLabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
             Me .ActiveXToolStripStatusLabel.Name = " ActiveXToolStripStatusLabel "
             Me .ActiveXToolStripStatusLabel.Size = New System.Drawing.Size( 30 , 16 )
             Me .ActiveXToolStripStatusLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
             '
             ' UnkownToolStripStatusLabel02
             '
             Me .UnkownToolStripStatusLabel02.AutoSize = False
             Me .UnkownToolStripStatusLabel02.BorderSides = CType ((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
                         Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
                         Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
             Me .UnkownToolStripStatusLabel02.BorderStyle = System.Windows.Forms.Border3DStyle.SunkenOuter
             Me .UnkownToolStripStatusLabel02.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
             Me .UnkownToolStripStatusLabel02.Name = " UnkownToolStripStatusLabel02 "
             Me .UnkownToolStripStatusLabel02.Size = New System.Drawing.Size( 30 , 16 )
             Me .UnkownToolStripStatusLabel02.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
             '
             ' VerisignToolStripStatusLabel
             '
             Me .VerisignToolStripStatusLabel.AutoSize = False
             Me .VerisignToolStripStatusLabel.BorderSides = CType ((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
                         Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
                         Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
             Me .VerisignToolStripStatusLabel.BorderStyle = System.Windows.Forms.Border3DStyle.SunkenOuter
             Me .VerisignToolStripStatusLabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
             Me .VerisignToolStripStatusLabel.Name = " VerisignToolStripStatusLabel "
             Me .VerisignToolStripStatusLabel.Size = New System.Drawing.Size( 30 , 16 )
             Me .VerisignToolStripStatusLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
             '
             ' SecurityToolStripStatusLabel
             '
             Me .SecurityToolStripStatusLabel.AutoSize = False
             Me .SecurityToolStripStatusLabel.BorderSides = CType ((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
                         Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
                         Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
             Me .SecurityToolStripStatusLabel.BorderStyle = System.Windows.Forms.Border3DStyle.SunkenOuter
             Me .SecurityToolStripStatusLabel.Image = CType (resources.GetObject( " SecurityToolStripStatusLabel.Image " ), System.Drawing.Image)
             Me .SecurityToolStripStatusLabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
             Me .SecurityToolStripStatusLabel.Name = " SecurityToolStripStatusLabel "
             Me .SecurityToolStripStatusLabel.Size = New System.Drawing.Size( 130 , 16 )
             Me .SecurityToolStripStatusLabel.Text = " Internet "
             Me .SecurityToolStripStatusLabel.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
             '
             ' MessageToolStripStatusLabel
             '
             Me .MessageToolStripStatusLabel.BorderSides = CType ((((System.Windows.Forms.ToolStripStatusLabelBorderSides.Left Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Top) _
                         Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Right) _
                         Or System.Windows.Forms.ToolStripStatusLabelBorderSides.Bottom), System.Windows.Forms.ToolStripStatusLabelBorderSides)
             Me .MessageToolStripStatusLabel.BorderStyle = System.Windows.Forms.Border3DStyle.SunkenOuter
             Me .MessageToolStripStatusLabel.Image = CType (resources.GetObject( " MessageToolStripStatusLabel.Image " ), System.Drawing.Image)
             Me .MessageToolStripStatusLabel.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
             Me .MessageToolStripStatusLabel.Name = " MessageToolStripStatusLabel "
             Me .MessageToolStripStatusLabel.Size = New System.Drawing.Size( 185 , 17 )
             Me .MessageToolStripStatusLabel.Spring = True
             Me