Mongoose IE Element

    • VB.NET

    Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von r3mote.

      Mongoose IE Element


      Mongoose World 2 ist ein sehr einfacher WebBrowser mit der Fähigkeit Zeile die in einem neuen Fenster zu laden sind, in Mongooses neuem Fenster zur laden...

      VBVersion: VB8

      *Das Bild zeigt nur den Browser auf den dieses IE-Element angewendet wurde!

      VB.NET-Quellcode

      1. Imports System.Runtime
      2. Imports System.ComponentModel
      4. Public Class MongooseBrowser
      5. Inherits WebBrowser
      6. Private cookie As AxHost.ConnectionPointCookie
      7. Private events As WebBrowserExtendedEvents
      8. Private Const WM_PARENTNOTIFY As Integer = &H210
      9. Private Const WM_DESTROY As Integer = 2
      12. Public Event WindowClosing()
      14. Protected Overrides Sub WndProc(ByRef m As Message)
      15. Select Case m.Msg
      16. Case WM_PARENTNOTIFY
      17. If (Not DesignMode) Then
      18. If (m.WParam = WM_DESTROY) Then
      19. RaiseEvent WindowClosing()
      20. End If
      21. End If
      22. DefWndProc(m)
      23. Case Else
      24. MyBase.WndProc(m)
      25. End Select
      26. End Sub
      29. Protected Overloads Overrides Sub CreateSink()
      30. MyBase.CreateSink()
      31. events = New WebBrowserExtendedEvents(Me)
      32. cookie = New AxHost.ConnectionPointCookie(Me.ActiveXInstance, events, GetType(DWebBrowserEvents2))
      33. End Sub
      35. Protected Overloads Overrides Sub DetachSink()
      36. If cookie IsNot Nothing Then
      37. cookie.Disconnect()
      38. cookie = Nothing
      39. End If
      40. MyBase.DetachSink()
      41. End Sub
      43. Public Event NewWindowWithTaget As EventHandler(Of WebBrowserExtendedNavigatingEventArgs)
      44. Protected Sub OnNewWindow3(ByVal url As String, ByVal e As WebBrowserExtendedNavigatingEventArgs)
      45. RaiseEvent NewWindowWithTaget(Me, e)
      46. End Sub
      48. Private Class WebBrowserExtendedEvents
      49. Inherits System.Runtime.InteropServices.StandardOleMarshalObject
      50. Implements DWebBrowserEvents2
      52. Private _Browser As ExtendedWebBrowser
      53. Public Sub New(ByVal browser As ExtendedWebBrowser)
      54. _Browser = browser
      55. End Sub
      57. Public Sub NewWindow3(ByVal pDisp As Object, ByRef cancel As Boolean, ByRef flags As Object, ByRef hostURL As Object, ByRef URL As Object) Implements DWebBrowserEvents2.NewWindow3
      58. Dim args As New WebBrowserExtendedNavigatingEventArgs(URL)
      59. args.Cancel = cancel
      60. _Browser.OnNewWindow3(URL, args)
      61. cancel = args.Cancel
      62. End Sub
      63. End Class
      64. <InteropServices.ComImport(), InteropServices.Guid("34A715A0-6587-11D0-924A-0020AFC7AC4D"), InteropServices.InterfaceTypeAttribute(InteropServices.ComInterfaceType.InterfaceIsIDispatch), InteropServices.TypeLibType(InteropServices.TypeLibTypeFlags.FHidden)> _
      65. Public Interface DWebBrowserEvents2
      67. <InteropServices.DispId(273)> _
      68. Sub NewWindow3(ByVal pDisp As Object, ByRef cancel As Boolean, ByRef flags As Object, ByRef hostURL As Object, ByRef URL As Object)
      69. End Interface
      70. End Class
      72. Public Class WebBrowserExtendedNavigatingEventArgs
      73. Inherits CancelEventArgs
      74. Private _Url As String
      75. Public Sub New(ByVal url As String)
      76. _Url = url
      77. End Sub
      78. Public ReadOnly Property Url() As String
      79. Get
      80. Return _Url
      81. End Get
      82. End Property
      83. End Class

      Keine PN's bezüglich VB an mich! Dafür gibt es das Forum!

      :Kreis hier. Kreis da.:

      Dieser Beitrag wurde bereits 8 mal editiert, zuletzt von „mikeb69“ () aus folgendem Grund: VB-Version hinzugefügt.

      Sind Webbrowser jetzt die neuen Texteditoren und Desktop Locker oder wie? Naja das Design ist Geschmackssache, aber bei mir ist das Ding extrem Langsam. Lädt ewig! Beim Schließen hat er auch Fehler, liegt wohl am Design denn das Fenser wird weiter halb angezeigt.

      lg

      Den "Browser" habe ich vor ewigkeiten gemacht, worum es ja eig auch nur geht, is die BrowserKlasse, die kann sich jeder gerne ziehn...

      Keine PN's bezüglich VB an mich! Dafür gibt es das Forum!

      :Kreis hier. Kreis da.:

      Der Code steht doch da!!! :D Oben im ersten Post, einfach nur im Projekt ne neue Klasse erstellen, Code rein, fertig :D

      Keine PN's bezüglich VB an mich! Dafür gibt es das Forum!

      :Kreis hier. Kreis da.: