在csdn上找到了vb.net的代码,但是看不明白
以下是完整的代码，实现了右键屏蔽和滚动条滚到底部的功能
'------------------------------------------------------
' 程序名称:WebBrowserDemo
' 功 能:屏蔽鼠标右键,控制滚动条位置
' 作 者:lyserver
'------------------------------------------------------
Option Explicit
Dim WithEvents m_pDoc As MSHTML.HTMLDocument
Private Sub Form_Load()
Me.WebBrowser1.Navigate2 "http://www.google.cn"
End Sub
Private Function m_pDoc_oncontextmenu() As Boolean
'屏蔽鼠标右键
m_pDoc_oncontextmenu = False
End Function
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim Item As Object
Dim strHTML As String
'设置滚动条到底部
WebBrowser1.Document.parentWindow.Scroll 0, WebBrowser1.Document.Body.scrollHeight
'设置Document,将事件引入窗口的消息泵,实现鼠标右键的屏蔽
Set m_pDoc = WebBrowser1.Document
End Sub
