如何在vb6.0中显示缩小的web浏览器

这是我用于缩小web浏览器的代码

Const OLECMDID_OPTICAL_ZOOM = 63
Const OLECMDEXECOPT_DONTPROMPTUSER = 2

Web1.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, CLng(35), vbNull

当我使用代码时，会出现以下运行时错误：

-2147221248（80040100）：自动错误

有什么想法吗

编辑：

---

我使用你给出的代码。它在调试模式下工作正常，一旦我获取exe并运行它，它就会显示以下错误。

这只在加载文档后工作，然后似乎会保留以供后续导航

如果在没有DOM文档时尝试更改光学变焦，则会发生错误80040100

下面的代码只是在适当的时间初始设置缩放

Private Const OLECMDID_OPTICAL_ZOOM As Long = 63
Private Const OLECMDEXECOPT_DONTPROMPTUSER As Long = 2

Private mblHasSetZoom As Boolean

Private Sub Form_Load()
    web1.Navigate2 "http://www.google.com"
End Sub

Private Sub web1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If Not mblHasSetZoom Then
    web1.ExecWB OLECMDID_OPTICAL_ZOOM, OLECMDEXECOPT_DONTPROMPTUSER, 35&
    mblHasSetZoom = True
End If
End Sub

---

适用于我的win7x64/IE9，但如果在没有加载文档的情况下尝试更改，我可以复制；您是否确保仅在加载文档后更改缩放？嗨，Alex，谢谢您的回复。我正在使用Microsoft web浏览器控件在表单上显示internet页面。如何缩小页面以使其缩小35%？是否确保仅在加载文档后更改缩放？Alex，在运行时缩放文档的百分比取决于web浏览器的大小。我硬编码值的百分比（35%）smallerAlex，我只是运行上面的代码，我得到了运行时错误-2147221248（80040100）：自动化错误。错误消息是对象“IWebBrowser2”的方法ExecWB失败。我不确定，我唯一能得到错误的方法是在没有文档的情况下，上面的示例对我有效。如果您使用的是IE，请选择哪个版本？嗨，Alex，很抱歉，上述代码在windows 95中有效，但在windows 7 ultimate中不起作用。它显示了-2147221248（80040100）：自动错误即使在首次加载浏览器控件时，我也会收到错误。我只是加入了一个模糊不清的问题：下一步是错误恢复，它可以正常工作。