غیرفعال کردن کلیدهای f5 و backspace در وب بروزر

[Shahab.]

سلام.
چطور میشه کلیدهای وب بروزر مثل f5 که باعث رفرش شدن صفحه میشه رو از کار انداخت؟
یا دکمه backspace کیبورد که باعث باز شدن صفحه قبلی میشه.
یعنی جوری بشه که کاربر هر چقدر هم روی f5 یا backspace زد بازم اتفاقی نیوفته
ممنون

[سید حمید حق پرست]

سلام علیکم
1- از منو Project گزینه References انتخاب و تیک Microsoft HTMLObject libary بزنید.
2- از کد زیر برای بلوک کردن و غیر فعال کردن F5 و Backspace در WebBrowser استفاده کنید :
Dim WithEvents Doc As HTMLDocument

Private Sub WebBrowser1_NavigateComplete2(ByVal pDisp As Object, URL As Variant)
Set Doc = pDisp.Document
End Sub

Private Sub Doc_onkeydown()
With Doc.parentWindow.event
If .keyCode = 116 Then 'F5
.cancelBubble = True
.keyCode = 0
End If
If .keyCode = 8 Then 'Backspace
.cancelBubble = True
.keyCode = 0
End If
End With
End Sub
موفق باشید.

یا علی (ع)