Code:
'in your forms load procedure Private Sub FormMain_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load Application.AddMessageFilter(Me) End Sub 'in your webbrowsers before navigate2 event (my webbrowsers name = wbmain) Private Sub wbMain_BeforeNavigate2(ByVal sender As System.Object, ByVal e As AxSHDocVw.DWebBrowserEvents2_BeforeNavigate2Event) Handles wbMain.BeforeNavigate2 If Not Bstop Then 'csite.CreatePage(e) ' my program uses a site class to generate a html page so no need for you to implement this Else ' this cancels the backspace key for navigate -1 'this implementation has as advantage that you can still clear ' inputboxes with the backspace key e.cancel = True End If End Sub 'and last but not least :-) the actuall handling code Public Function PreFilterMessage(ByRef m As System.Windows.Forms.Message) _ As Boolean Implements IMessageFilter.PreFilterMessage ' WM_KEYDOWN As Int32 = &H100 Private Const WM_KEYUP As Int32 = &H101 WM_SYSKEYDOWN As Integer = &H104 Dim keyCode As Keys = CType(m.WParam.ToInt32(), Keys) And Keys.KeyCode Static ControlP As Boolean Select Case keyCode ' have you seen those Internet keyboards ?? well we handle them to :-) Case Keys.BrowserBack : Return True Case Keys.BrowserFavorites : Return True Case Keys.BrowserForward : Return True Case Keys.BrowserHome : Return True Case Keys.BrowserRefresh : Return True Case Keys.BrowserSearch : Return True Case Keys.BrowserStop : Return True Case Keys.RButton : Return True 'right mousebutton Case Keys.Back ' backspace key to handle history -1 If m.Msg = &H100 Then Bstop = True 'stop this bb event ! Else Bstop = False End If Case Keys.F5 : Return True ' no refresh Case Keys.ControlKey ' control down ? then bypass P key If m.Msg = &H100 Then ControlP = True Else ControlP = False End If Case Keys.P If ControlP Then Return True Case Else If m.Msg = &H104 Then ' no more ALT shortcuts ( alt F4 etc etc ) Return True End If End Select End Function ' and that`s all folks :-)