Hej!

Om man har en webbrowserkontroll och vill stänga av högerklicksmenyn, hur gör man då?

Hjälp!!!

Tror att jag kommmit på en lösning själv... Man får stoppa in lite javascript, även fast det blir lite mer komplicerat...

Min lösning:

Koden ska finnas i html-filen:

<code>
<script>
var bolReturnRight = false;
function switchRightX() {
bolReturnRight = !bolReturnRight;
}
document.switchRight=switchRightX
document.oncontextmenu = function() {return bolReturnRight;}
document.onmousedown = function e() {if(e.target==document)return bolReturnRight;}
</script>
</code>

Dessutom behövs följande kod i formuläret:

<code>
OBJECT.Document.switchRight
</code>


Vad det här gör är att från början stänga av högerklicks menyn. Om man anropar OBJECT.Document.switchRight så sätter den på högerklicks menyn och en gång till stänger av...


Ska nog göra ett tips av det här...

Tjenare..
Detta har funkart rätt bra för mig..

'Module

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 gLngMouseHook As Long

Public Function MouseHookProc(ByVal nCode As Long, ByVal wParam As Long, mhs 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

'Preinitialize string
strBuffer = Space(255)

' lngBufferLen = Len(strBuffer)

'This is the string that holds the class name that we are looking for
strClassName = "Internet Explorer_Server"

Debug.Print strClassName

'Get the classname for the Window that has been clicked, making sure something is returned
'If the function returns 0, it has failed
lngResult = GetClassName(mhs.hwnd, strBuffer, Len(strBuffer))

Debug.Print Left$(strBuffer, lngResult)

If lngResult > 0 Then

'Check to see if the class of the window we clicked on is the same as above
If Left$(strBuffer, lngResult) = strClassName Then

'Value is the same. Squash the command
MouseHookProc = 1

Exit Function

End If

End If

End If

MouseHookProc = CallNextHookEx(gLngMouseHook, nCode, wParam, mhs)
End Function


'Form


Private Const WM_NCLBUTTONDOWN As Long = &HA1&


'Start Trapping Right-Mouse clicks in WebBrowser Control:
gLngMouseHook = SetWindowsHookEx(WH_MOUSE, AddressOf MouseHookProc, App.hInstance,GetCurrentThreadId)


'Cancel the trapping of the code
UnhookWindowsHookEx gLngMouseHook


/Wolf

Det kommer väl fortfaranede att få upp menyn med "Contexmenu" knappen. Mellan höger windows- och ctrltangent.

det vet jag inte, men det spelar ingen roll, baa för att den inte skall irritera av misstag... lätt att den irriterar lite gran...

Det var till [61535] det behövdes...