vb.net WPF webbrowser window.close 关闭后不触发 WindowClosing 事件 WNDPROC解决方案
#Region "WPF 当浏览器窗口关闭时触发 Quit事件 " #If OnSourceInitialized Then Protected Overrides Sub OnSourceInitialized(e As EventArgs) 'onload 等句柄创建后引用WSInitialized(Me,e) WSInitialized(Me,e) MyBase.OnSourceInitialized(e) End Sub #Else Private Sub LyWebTabItem_Loaded(sender As Object,e As RoutedEventArgs) Handles Me.Loaded WSInitialized(sender,e) End Sub #End If Sub WSInitialized(sender As Object,e As EventArgs) Dim hs As HwndSource = PresentationSource.FromVisual(Me) '=HwndSource.FromHwnd(new WindowInteropHelper(this).Handle); hs.AddHook(New HwndSourceHook(AddressOf WndProc)) End Sub ''' <summary> ''' Overridden ''' </summary> ''' <param name="m">The <see cref="Message"/> send to this procedure</param> <PermissionSet(SecurityAction.LinkDemand,Name:="FullTrust")> _ Protected Overloads Function WndProc(hwnd As IntPtr,msg As Int32,wParam As IntPtr,lParam As IntPtr,ByRef handled As Boolean) As IntPtr '(ByRef m As Forms.Message) 'Protected Overloads sub WndProc((ByRef m As Forms.Message)) 'winform方式 'If m.Msg = DirectCast(WindowsMessages.WM_PARENTNOTIFY,Integer) Then If msg = DirectCast(WindowsMessages.WM_PARENTNOTIFY,Integer) Then 'int lp = m.LParam.ToInt32(); 'Dim wp As Integer = m.WParam.ToInt32() Dim wp As Integer = wParam.ToInt32() Dim X As Integer = wp And &HFFFF 'int Y = (wp >> 16) & 0xFFFF; If X = DirectCast(WindowsMessages.WM_DESTROY,Integer) Then Me.OnQuit() End If End If Return IntPtr.Zero 'MyBase.WndProc(m) End Function ''' <summary> ''' A list of all the available window messages ''' </summary> Enum WindowsMessages WM_ACTIVATE = &H6 WM_ACTIVATEAPP = &H1C WM_AFXFIRST = &H360 WM_AFXLAST = &H37F WM_APP = &H8000 WM_ASKCBFORMATNAME = &H30C WM_CANCELJOURNAL = &H4B WM_CANCELMODE = &H1F WM_CAPTURECHANGED = &H215 WM_CHANGECBCHAIN = &H30D WM_CHAR = &H102 WM_CHARTOITEM = &H2F WM_CHILDACTIVATE = &H22 WM_CLEAR = &H303 WM_CLOSE = &H10 WM_COMMAND = &H111 WM_COMPACTING = &H41 WM_COMPAREITEM = &H39 WM_CONTEXTMENU = &H7B WM_COPY = &H301 WM_COPYDATA = &H4A WM_CREATE = &H1 WM_CTLCOLORBTN = &H135 WM_CTLCOLORDLG = &H136 WM_CTLCOLOREDIT = &H133 WM_CTLCOLORLISTBox = &H134 WM_CTLCOLORMSGBox = &H132 WM_CTLCOLORSCROLLBAR = &H137 WM_CTLCOLORSTATIC = &H138 WM_CUT = &H300 WM_DEADCHAR = &H103 WM_DELETEITEM = &H2D WM_DESTROY = &H2 WM_DESTROYCLIPBOARD = &H307 WM_DEVICECHANGE = &H219 WM_DEVMODECHANGE = &H1B WM_DISPLAYCHANGE = &H7E WM_DRAWCLIPBOARD = &H308 WM_DRAWITEM = &H2B WM_DROPFILES = &H233 WM_ENABLE = &HA WM_ENDSESSION = &H16 WM_ENTERIDLE = &H121 WM_ENTERMENULOOP = &H211 WM_ENTERSIZEMOVE = &H231 WM_ERASEBKGND = &H14 WM_EXITMENULOOP = &H212 WM_EXITSIZEMOVE = &H232 WM_FONTCHANGE = &H1D WM_GETDLGCODE = &H87 WM_GETFONT = &H31 WM_GETHOTKEY = &H33 WM_GETICON = &H7F WM_GETMINMAXINFO = &H24 WM_GETOBJECT = &H3D WM_GETTEXT = &HD WM_GETTEXTLENGTH = &HE WM_HANDHELDFIRST = &H358 WM_HANDHELDLAST = &H35F WM_HELP = &H53 WM_HOTKEY = &H312 WM_HSCROLL = &H114 WM_HSCROLLCLIPBOARD = &H30E WM_ICONERASEBKGND = &H27 WM_IME_CHAR = &H286 WM_IME_COMPOSITION = &H10F WM_IME_COMPOSITIONFULL = &H284 WM_IME_CONTROL = &H283 WM_IME_ENDCOMPOSITION = &H10E WM_IME_KEYDOWN = &H290 WM_IME_KEYLAST = &H10F WM_IME_KEYUP = &H291 WM_IME_NOTIFY = &H282 WM_IME_REQUEST = &H288 WM_IME_SELECT = &H285 WM_IME_SETCONTEXT = &H281 WM_IME_STARTCOMPOSITION = &H10D WM_INITDIALOG = &H110 WM_INITMENU = &H116 WM_INITMENUPOPUP = &H117 WM_INPUTLANGCHANGE = &H51 WM_INPUTLANGCHANGEREQUEST = &H50 WM_KEYDOWN = &H100 WM_KEYFIRST = &H100 WM_KEYLAST = &H108 WM_KEYUP = &H101 WM_KILLFOCUS = &H8 WM_LBUTTONDBLCLK = &H203 WM_LBUTTONDOWN = &H201 WM_LBUTTONUP = &H202 WM_MBUTTONDBLCLK = &H209 WM_MBUTTONDOWN = &H207 WM_MBUTTONUP = &H208 WM_MDIACTIVATE = &H222 WM_MDICASCADE = &H227 WM_MDICREATE = &H220 WM_MDIDESTROY = &H221 WM_MDIGETACTIVE = &H229 WM_MDIICONARRANGE = &H228 WM_MDIMAXIMIZE = &H225 WM_MDINEXT = &H224 WM_MDIREFRESHMENU = &H234 WM_MDIRESTORE = &H223 WM_MDISETMENU = &H230 WM_MDITILE = &H226 WM_MEASUREITEM = &H2C WM_MENUCHAR = &H120 WM_MENUCOMMAND = &H126 WM_MENUDRAG = &H123 WM_MENUGETOBJECT = &H124 WM_MENURBUTTONUP = &H122 WM_MENUSELECT = &H11F WM_MOUSEACTIVATE = &H21 WM_MOUSEFIRST = &H200 WM_MOUSEHOVER = &H2A1 WM_MOUSELAST = &H20A WM_MOUSELEAVE = &H2A3 WM_MOUSEMOVE = &H200 WM_MOUSEWHEEL = &H20A WM_MOVE = &H3 WM_MOVING = &H216 WM_NCACTIVATE = &H86 WM_NCCALCSIZE = &H83 WM_NCCREATE = &H81 WM_NCDESTROY = &H82 WM_NCHITTEST = &H84 WM_NCLBUTTONDBLCLK = &HA3 WM_NCLBUTTONDOWN = &HA1 WM_NCLBUTTONUP = &HA2 WM_NCMBUTTONDBLCLK = &HA9 WM_NCMBUTTONDOWN = &HA7 WM_NCMBUTTONUP = &HA8 WM_NCMOUSEHOVER = &H2A0 WM_NCMOUSELEAVE = &H2A2 WM_NCMOUSEMOVE = &HA0 WM_NCPAINT = &H85 WM_NCRBUTTONDBLCLK = &HA6 WM_NCRBUTTONDOWN = &HA4 WM_NCRBUTTONUP = &HA5 WM_NEXTDLGCTL = &H28 WM_NEXTMENU = &H213 WM_NOTIFY = &H4E WM_NOTIFYFORMAT = &H55 WM_NULL = &H0 WM_PAINT = &HF WM_PAINTCLIPBOARD = &H309 WM_PAINTICON = &H26 WM_PALETTECHANGED = &H311 WM_PALETTEISCHANGING = &H310 WM_PARENTNOTIFY = &H210 WM_PASTE = &H302 WM_PENWINFIRST = &H380 WM_PENWINLAST = &H38F WM_POWER = &H48 WM_PRINT = &H317 WM_PRINTCLIENT = &H318 WM_QUERYDRAGICON = &H37 WM_QUERYENDSESSION = &H11 WM_QUERYNEWPALETTE = &H30F WM_QUERYOPEN = &H13 WM_QUEUESYNC = &H23 WM_QUIT = &H12 WM_RBUTTONDBLCLK = &H206 WM_RBUTTONDOWN = &H204 WM_RBUTTONUP = &H205 WM_RENDERALLFORMATS = &H306 WM_RENDERFORMAT = &H305 WM_SETCURSOR = &H20 WM_SETFOCUS = &H7 WM_SETFONT = &H30 WM_SETHOTKEY = &H32 WM_SETICON = &H80 WM_SETREDRAW = &HB WM_SETTEXT = &HC WM_SETTINGCHANGE = &H1A WM_SHOWWINDOW = &H18 WM_SIZE = &H5 WM_SIZECLIPBOARD = &H30B WM_SIZING = &H214 WM_SPOOLERSTATUS = &H2A WM_STYLECHANGED = &H7D WM_STYLECHANGING = &H7C WM_SYNCPAINT = &H88 WM_SYSCHAR = &H106 WM_SYSCOLORCHANGE = &H15 WM_SYSCOMMAND = &H112 WM_SYSDEADCHAR = &H107 WM_SYSKEYDOWN = &H104 WM_SYSKEYUP = &H105 WM_TCARD = &H52 WM_TIMECHANGE = &H1E WM_TIMER = &H113 WM_UNDO = &H304 WM_UNINITMENUPOPUP = &H125 WM_USER = &H400 WM_USERCHANGED = &H54 WM_VKEYTOITEM = &H2E WM_VSCROLL = &H115 WM_VSCROLLCLIPBOARD = &H30A WM_WINDOWPOSCHANGED = &H47 WM_WINDOWPOSCHANGING = &H46 WM_WININICHANGE = &H1A End Enum ''' <summary> ''' Raises the <see cref="Quit"/> event ''' </summary> Protected Sub OnQuit() #If OnSourceInitialized Then CommandBinding_Close_Executed(Me,Nothing) #Else MenuCloseTab_Click(Me,Nothing) #End If RaiseEvent Quit(Me,EventArgs.Empty) End Sub ''' <summary> ''' Raised when the browser application quits ''' </summary> ''' <remarks> ''' Do not confuse this with DWebBrowserEvents2.Quit... That's something else. ''' </remarks> Public Event Quit As EventHandler #End Region