引用Microsoft HTML OBject Library窗体代码:Dim WithEvents M_Dom As MSHTML.HTMLDocument Private Function M_Dom_oncontextmenu() As Boolean M_Dom_oncontextmenu = False End Function Private Sub Webbrowser1_DownloadComplete() Set M_Dom = Webbrowser1.Document End Sub好了,右键菜单没有了
Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False
End Function Private Sub Webbrowser1_DownloadComplete()
Set M_Dom = Webbrowser1.Document
End Sub好了,右键菜单没有了