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

Question

这是用于缩小网页浏览器的代码

Const OLECMDID_OPTICAL_ZOOM = 63
Const OLECMDEXECOPT_DONTPROMPTUSER = 2

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

当我使用代码时，我得到以下运行时错误：

  

-2147221248（80040100）：自动化错误

有什么想法吗？

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

Answer 1

这仅在文档加载后才有效，然后似乎会持续进行后续导航。

如果在没有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