Disable WebBrowser Control's Accelerator Keys (VB.NET)

Category:

C#, VB.NET, ASP.NET

Type:

Snippets

Difficulty:

Intermediate

Author:

m.posseth@work

Version Compatibility: Visual Basic.NET

More information:

Disables context menu , ctrl + P , Backspace with history -1 but stil allows input clearing :-) , etc etc etc capable of clearing all accelerator keys (like using wbcustomizer.dll, or subclassing the webbrowser control in VB6)

This is a very simple VB.NET implementation. I looked for something on the NET that could do something like this code does but I couldn`t find it anywher so i decided to do some pioneering ...

This code is especially usefull for those peolpe who like HTML GUIS in there applications ( like me :-) for an example of such a GUI look at http://www.toolbase.nl/screenshots.aspx

As usual with my shared code this code is public domain it is a gift from me to you, don`t bother to name me in any way although it would be apreciated if you did.

Coded By : M. Posseth (MCP)

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' in the form where you use the webbrowser control Implements IMessageFilter Private Bstop As Boolean

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 :-)