re: How To: Close the Form hosting the WebBrowser control when scripting calls window.close in the .Net Framework version 2.0

NeilS — Tue, 06 Nov 2007 22:05:03 GMT

Jeff - following on from your NewWindow2 event capture in a managed web browser article - again this was really helpful.

re: How To: Close the Form hosting the WebBrowser control when scripting calls window.close in the .Net Framework version 2.0

disccomp — Wed, 13 Feb 2008 23:32:58 GMT

I am using an extendedwebbrowser, Your code almost ties up the last loose end. The only trouble is the closing event fires after windows asks whether to close the window after window.close is called from a script.

---------------------------------

Imports System.Runtime

Imports System.ComponentModel

'Extend the WebBrowser control

Public Class ExtendedWebBrowser

Inherits WebBrowser

Private cookie As AxHost.ConnectionPointCookie

Private events As WebBrowserExtendedEvents

Private Const WM_PARENTNOTIFY As Integer = &H210

Private Const WM_DESTROY As Integer = 2

'Define New event to fire

Public Event WindowClosing()

Protected Overrides Sub WndProc(ByRef m As Message)

Select Case m.Msg

Case WM_PARENTNOTIFY

If (Not DesignMode) Then

If (m.WParam = WM_DESTROY) Then

' Tell whoever cares we are closing

RaiseEvent WindowClosing()

End If

DefWndProc(m)

Case Else

MyBase.WndProc(m)

End Select

End Sub

'This method will be called to give you a chance to create your own event sink

Protected Overloads Overrides Sub CreateSink()

'MAKE SURE TO CALL THE BASE or the normal events won't fire

MyBase.CreateSink()

events = New WebBrowserExtendedEvents(Me)

cookie = New AxHost.ConnectionPointCookie(Me.ActiveXInstance, events, GetType(DWebBrowserEvents2))

End Sub

Protected Overloads Overrides Sub DetachSink()

If cookie IsNot Nothing Then

cookie.Disconnect()

cookie = Nothing

End If

MyBase.DetachSink()

End Sub

'This new event will fire when the page is navigating

Public Event NewWindowWithTaget As EventHandler(Of WebBrowserExtendedNavigatingEventArgs)

Protected Sub OnNewWindow3(ByVal url As String, ByVal e As WebBrowserExtendedNavigatingEventArgs)

RaiseEvent NewWindowWithTaget(Me, e)

End Sub

'This class will capture events from the WebBrowser

Private Class WebBrowserExtendedEvents

Inherits System.Runtime.InteropServices.StandardOleMarshalObject

Implements DWebBrowserEvents2

Private _Browser As ExtendedWebBrowser

Public Sub New(ByVal browser As ExtendedWebBrowser)

_Browser = browser

End Sub

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

Dim args As New WebBrowserExtendedNavigatingEventArgs(URL)

args.Cancel = cancel

_Browser.OnNewWindow3(URL, args)

cancel = args.Cancel

End Sub

End Class

<InteropServices.ComImport(), InteropServices.Guid("34A715A0-6587-11D0-924A-0020AFC7AC4D"), InteropServices.InterfaceTypeAttribute(InteropServices.ComInterfaceType.InterfaceIsIDispatch), InteropServices.TypeLibType(InteropServices.TypeLibTypeFlags.FHidden)> _

Public Interface DWebBrowserEvents2

<InteropServices.DispId(273)> _

Sub NewWindow3(ByVal pDisp As Object, ByRef cancel As Boolean, ByRef flags As Object, ByRef hostURL As Object, ByRef URL As Object)

End Interface

End Class

Public Class WebBrowserExtendedNavigatingEventArgs

Inherits CancelEventArgs

Private _Url As String

Public Sub New(ByVal url As String)

_Url = url

End Sub

Public ReadOnly Property Url() As String

Get

Return _Url

End Get

End Property

End Class