VB关于webbrowser相关操作大全

VB 关于 webbrowser 相关操作大全1、 防止新窗口里头打开网页代码 1：Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Dim frm As Form1Set frm = New Form1frm.Visible = TrueSet ppDisp = frm.WebBrowser1.objectEnd Sub代码 2：有这段代码， 有许多网页会出错，常常提示脚本错误，可以用 silent 属性为 True 来屏蔽，不过也有些不足！！！Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)Cancel = TrueWebBrowser1.Navigate2 WebBrowser1.Document.activeElement.hrefEnd Sub代码 3：Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean)On Error Resume NextDim frmWB As Form1Set frmWB = New Form1frmWB.WebBrowser1.RegisterAsBrowser = TrueSet ppDisp = frmWB.WebBrowser1.objectfrmWB.Visible = TruefrmWB.Top = Form1.TopfrmWB.Left = Form1.LeftfrmWB.Width = Form1.WidthfrmWB.Height = Form1.HeightEnd Sub功能差不多，任选一个。2、 去掉滚动条Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)WebBrowser1.Document.Body.Scroll = "no"End Sub实际上上面的效果不咋地，假如懂得 HTML 知识， 你可以在读取网页的时候，读取 HTML 源码， 查找替换， 再写入只需在 之间插入代码： 即可。其中 x 表示水平滚动条，将其改为 y的话就可以隐藏垂直滚动条。当然也有其他方法， 比如修改网页的尺寸呀？ 有的时候部分元素的居中改为左对齐也能有效果将 WebBrower 放在 PictureBox 控件中，用 PictureBox 的边框挡住 WebBrower 的边框。例如,将 WebBrowser1 放大点,将 PictureBox 变小点...PictureBox 的 appearance 设置为0-flat，呵呵，OK~~3、 禁止鼠标右键Private Function M_Dom_oncontextmenu() As BooleanWebbrowser1.Document.oncontextmenu = FalseEnd Function'引用 Microsoft HTML OBject LibraryDim WithEvents M_Dom As MSHTML.HTMLDocumentPrivate Function M_Dom_oncontextmenu() As BooleanM_Dom_oncontextmenu = FalseEnd FunctionPrivate Sub Webbrowser1_DownloadComplete()Set M...