help.. please?

[Z]

Can someone tell me if there is a way to turn off the popup menu on the web browser control? (happens when you right click it)

Or any way to stop it from appearing?

Thanks, Z

[richie]

I don't know about that, but if you're a serious developer there's a great browser control at www.homepagesoftware.com. (I think that's the address. If not, just type 'Webster pro' in any search engine). You can disable the right click in that - can even make you're own menu. You can download a free demo - and best of all you don't have to impose IE on your end users.

[Serge]

Sure thing:

Module code:

Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lparam As Any) As Long
Public Declare Function GetCurrentThreadId Lib "kernel32" () As Long
Public Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Public Const WM_RBUTTONUP = &H205
Public Const WH_MOUSE = 7
Public Type POINTAPI
    x As Long
    y As Long
End Type
Public Type MOUSEHOOKSTRUCT
    pt As POINTAPI
    hwnd As Long
    wHitTestCode As Long
    dwExtraInfo As Long
End Type
Public g_lngMouseHook As Long
    
Public Function MouseHookProc(ByVal nCode As Long, ByVal wParam As Long, structMouseHook As MOUSEHOOKSTRUCT) As Long
    Dim strBuffer As String
    Dim lngBufferLen As Long
    Dim strClassName As String
    Dim lngResult As Long
    
    If (nCode >= 0 And wParam = WM_RBUTTONUP) Then
            strBuffer = Space(255)
            'This is the class name for IE
            strClassName = "Internet Explorer_Server"
            'Get the classname for the Window that has been clicked
            lngResult = GetClassName(structMouseHook.hwnd, strBuffer, Len(strBuffer))
            If lngResult > 0 Then
                'Check to see if the class of the window we clicked on
                'is the same as IE's class
                If Left$(strBuffer, lngResult) = strClassName Then
                    MouseHookProc = 1
                    Exit Function
                End If
            End If
        End If
    MouseHookProc = CallNextHookEx(g_lngMouseHook, nCode, wParam, structMouseHook)
End Function

Form Code:

Private Sub Form_Load()
    WebBrowser.Navigate "http://www.vb-world.net"
    gLngMouseHook = SetWindowsHookEx(WH_MOUSE, AddressOf MouseHookProc, App.hInstance, GetCurrentThreadId)
End Sub

Regards,

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

Serge

Software Developer
[email protected]
[email protected]

[Alex1973]

Can I add my own pop-up menu? How do I know if the mouse is over a link so my menu can depend on that?
Thank you.