VB关于webbrowser相关操作大全.docVIP

VB关于webbrowser相关操作大全 日期：2011-2-17 文档收集者： 1、网页按钮的终极控制 1 防止新窗口里头打开网页 代码1： Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Dim frm As Form1 Set frm = New Form1 frm.Visible = True Set ppDisp = frm.WebBrowser1.object End Sub 代码2： 有这段代码， 有许多网页会出错，经常提示脚本错误，可以用silent属性为True来屏蔽，不过也有些不足！！！ Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) Cancel = True WebBrowser1.Navigate2 WebBrowser1.Document.activeElement.href End Sub 代码3： Private Sub WebBrowser1_NewWindow2(ppDisp As Object, Cancel As Boolean) On Error Resume Next Dim frmWB As Form1 Set frmWB = New Form1 frmWB.WebBrowser1.RegisterAsBrowser = True Set ppDisp = frmWB.WebBrowser1.object frmWB.Visible = True frmWB.Top = Form1.Top frmWB.Left = Form1.Left frmWB.Width = Form1.Width frmWB.Height = Form1.Height End Sub 功能差不多，任选一个。 去掉滚动条 Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) WebBrowser1.Document.Body.Scroll = no End Sub 实际上上面的效果不咋地，如果懂得HTML知识， 你可以在读取网页的时候，读取HTML源码， 查找替换， 再写入只需在 body /body 之间插入代码： body style= overflow-x:hidden;overflow-y:hidden 即可。其中x表示水平滚动条，将其改为y的话就可以隐藏垂直滚动条。 当然也有其他方法， 比如修改网页的尺寸呀？ 有的时候部分元素的居中改为左对齐也能有效果 将WebBrower放在PictureBox控件中，用PictureBox的边框挡住WebBrower的边框。 例如,将WebBrowser1放大点,将PictureBox变小点...PictureBox的appearance设置为0-flat，呵呵，OK~~ 禁止鼠标右键 Private Function M_Dom_oncontextmenu() As Boolean Webbrowser1.Document.oncontextmenu = False End Function 引用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 如何获得网页的内容 先给个例子： innerHTML:设置或获取位于对象起始和结束标签内的 HTML 测试一下： div id=d style=background-color:#ff9966这是一个层/div input type=button value=获取innerHTML onclick=getinnerHTML() input type=button value=设置innerHTML onclick=setinnerHTML() script language=javascript function getinnerHTML() { alert(document.getElementById(d).innerHTML) } function setinnerHT