看了WebBrowser禁止右键的文章,把代码复制进去过后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已经引用了Microsoft HTML OBject Library
Private Function M_Dom_oncontextmenu() As Boolean
M_Dom_oncontextmenu = False
End Function Private Sub Webbrowser1_DownloadComplete()
Set M_Dom = Webbrowser1.Document
End Sub已经引用了Microsoft HTML OBject Library
解决方案 »
- 请问开发英语水平测试系统什么价格?多少时间完成
- 是否用add.new比insert安全?
- .LineUnitBefore = 1 '段前行距 '怎么自己改了?
- 求救:在VB中如何向EXCEL中插入图片?帮帮我。谢谢
- 使VB进度条变色的问题
- 求助各位大哥:小弟在一个聊天程序中为客户端分配IP时出错 希望高手帮忙解决
- 怎么能在一台机器上测试联机小游戏?
- vb实现图像的细化,矩形、圆的识别
- 如何使用vb6.0中的msflexgrid进行大量输入(vbqing)email:[email protected]
- 如何用API查找网络邻居?
- !!!!!!!!------>>>Method '_Default 'of object 'Sheets' is failed
- 散一元留三十块
不能把 WithEvents 变量声明为 As New。必须明确地创建事件源对象,并将它赋给 WithEvents 变量。
不能在标准模块中声明 WithEvents 变量。只能在类模块、窗体模块以及其它定义类的模块中声明。
不能创建 WithEvents 变量数组。