WebBrowser 우클릭 방지(Disable Right Click) in VB(Visual Basic) 6.0

안녕하세요. 공유민입니다.

VB에서 제공하는 WebBrowser에서 우클릭을 막는 방법을 정리하려고 합니다.

---

WebBrowser 우클릭 방지 

프로젝트(project) - 참조(reference)를 들어갑니다.

참조(reference)에서 Microsoft HTML Object Library를 추가하고 확인 버튼을 누릅니다.

Option Explicit
Dim WithEvents hDoc As HTMLDocument

를 추가하고,

Private Function hDoc_oncontextmenu() As Boolean
    hDoc_oncontextmenu = False
End Function
  
 
Private Sub WebBrowser1_BeforeNavigate2(ByVal pDisp As Object, URL As Variant, _
                                        flags As Variant, TargetFrameName As Variant, _
                                    PostData As Variant, Headers As Variant, Cancel As Boolean)
    Set hDoc = Nothing
End Sub
  
 
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
    Set hDoc = WebBrowser1.Document
End Sub

위 소스들을 추가합니다.

여기서 Function hDoc_oncontextmenu()는 호출하셔야 우클릭 방지가 적용 됩니다.

Private Sub Form_Load()
    WebBrowser1.Navigate "http://www.google.com"
    hDoc_oncontextmenu
End Sub