6

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

Const OLECMDID_OPTICAL_ZOOM = 63
Const OLECMDEXECOPT_DONTPROMPTUSER = 2

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

当我使用代码时,出现以下运行时错误:

-2147221248 (80040100):自动化错误

有任何想法吗?

编辑:我使用你提供的代码。一旦我使用 exe 并运行它显示以下错误,它在调试模式下工作正常。在此处输入图像描述

4

1 回答 1

3

这仅在文档加载后才有效,然后似乎会持续用于后续导航。

如果在没有 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
于 2012-11-14T11:59:40.127 回答