VB与VBA WebBrowser操作全解析：新窗口控制与滚动条隐藏技巧

4星 · 超过85%的资源需积分: 50 49 浏览量更新于2024-07-31 3 收藏 115KB DOC 举报

本文档详细介绍了在VB (Visual Basic) 和 VBA (Visual Basic for Applications) 中使用WebBrowser控件进行网页浏览和交互的一系列操作。VBWebBrowser控件是用于嵌入浏览器功能到Windows应用程序中的重要组件，它允许开发者直接与网页内容进行交互，包括但不限于新窗口处理、脚本错误管理、窗口位置调整以及滚动条控制。 1. **网页按钮的终极控制 - 防止新窗口打开** 作者提供两种方法来防止在WebBrowser对象的新窗口中自动加载新的网页。第一种方法是通过`NewWindow2`事件处理程序，当用户试图打开新窗口时，创建一个新的Form，并将新窗口的WebBrowser控件设置为该Form的可见部分。第二种方法则是利用`Cancel`参数，阻止新窗口的打开，并强制将当前网页的地址加载到当前的WebBrowser对象中。虽然这些方法可以避免默认行为，但可能会屏蔽掉某些网页的正常功能。 2. **屏蔽脚本错误** 遇到脚本错误时，可以设置`silent`属性为`True`，这有助于隐藏错误消息，但在某些情况下可能会影响用户体验。更安全的做法是在遇到错误时继续执行，通过`OnErrorResumeNext`语句来尝试恢复，如代码3所示，通过注册WebBrowser对象为浏览器并调整其位置和大小，以确保其与父窗体保持一致。 3. **去掉滚动条** `DocumentComplete`事件被用来在页面加载完成后处理，通过设置`WebBrowser1.Document.Body.Scroll`属性为"no"，可以暂时禁用滚动条。然而，为了达到更好的效果，熟悉HTML的开发者可以进一步解析HTML源码，选择性地修改CSS样式，例如添加`<body style="overflow-x:hidden;overflow-y:hidden">`来隐藏滚动条，这种方法提供了更高的灵活性。 4. **HTML源码操作** 对于高级用户，利用对HTML源码的直接访问，可以实现更为精确的定制。通过读取和修改HTML结构，可以实现自定义样式或功能，比如去除滚动条的同时，还可以针对特定区域应用自定义样式，或者动态调整网页布局。这篇文章涵盖了VB和VBA中WebBrowser控件的基础使用和高级技巧，适合开发人员在处理网页嵌入、错误处理和个性化用户界面时参考，尤其对于那些希望通过编程手段深入操控网页内容的开发者来说，这些操作是非常实用的。

4、如何获得网页的内容

先给个例子：

innerHTML:设置或获取位于对象起始和结束标签内的 HTML

测试一下：

<div id="d" style="background-color:#ff9966">这是一个层</div>

function getinnerHTML()

{

alert(document.getElementById("d").innerHTML)

}

function setinnerHTML()

{

document.getElementById("d").innerHTML="<div id='d' style='background-color:#449966'> 这

是一个层,嘿嘿</div>"

}

</script>

5、多框架框架页面访问

'下面两句可以访问到多框架内容

'.Document.ParentWindow.Frames.Length

'.Document.ParentWindow.Frames(1).Document.all.tags("a")

'等待多框架网页全部加载完毕，否则出错

While .Busy Or .ReadyState <> 4 Or .Document.ParentWindow.Frames.Length = 0

DoEvents

Wend

剩余19页未读，继续阅读

苦苦的潜行者

粉丝: 104

VB与VBA WebBrowser操作全解析：新窗口控制与滚动条隐藏技巧

VB webbrower操作网页代码汇总

IE WebBrowser控件基本使用

VB代码使用WebBrowser控件作为容器打开Word文档

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

Excel2007 VBA使用WebBrowser控件登录12306网站的演示

VB基于WebBrowser打开播放GIF 动画文件

使用VB程序发送微信.rar_VB如何发微信_vb WebBrowser_vb 网页_微信_微信自动

vb.net form WebBrowser1加载excel隐藏编辑栏

利用WebBrowser控件只读访问文档

搜集的VBA教程

最新资源